$PBExportHeader$n_pfcsecurity_appmanager.sru $PBExportComments$PFC Security Application manager object forward global type n_pfcsecurity_appmanager from n_cst_appmanager end type end forward global type n_pfcsecurity_appmanager from n_cst_appmanager end type global n_pfcsecurity_appmanager n_pfcsecurity_appmanager type variables n_tr inv_trans end variables event constructor;call super::constructor;ContextInformation lcx_key int li_major, li_minor date ld_now ld_now = Today ( ) /* Get PB Version. */ GetContextService ( "ContextInformation", lcx_key) lcx_key.GetMajorVersion ( li_major ) lcx_key.GetMinorVersion ( li_minor ) iapp_object.displayname = 'PFC Security Administration Utility' // The file name of the application INI file of_SetAppIniFile ('pfcsecad.ini') // The application version of_SetVersion ("Version " + String ( li_major ) + "." + String ( li_minor ) + ".00") // The application bitmap name of_SetLogo ("key.bmp") // The application bitmap name of_SetHelpFile ( "pbpfc" + String ( li_major ) + String ( li_minor ) + ".hlp") // The application's copyright message this.of_SetCopyright("Copyright (c) 2004-" + String ( Year ( ld_now ), "0000" ) + " Open Source PowerBuilder Foundation Class Libraries, All rights reserved.") inv_trans = create n_tr end event event destructor;If IsValid(inv_trans) Then destroy inv_trans End If end event on n_pfcsecurity_appmanager.create call super::create end on on n_pfcsecurity_appmanager.destroy call super::destroy end on
File: n_pfcsecurity_appmanager.sru
Size: 1568
Date: Tue, 22 Jan 2008 23:33:42 +0100
Size: 1568
Date: Tue, 22 Jan 2008 23:33:42 +0100
- n_cst_appmanager n_pfcsecurity_appmanager(sru)