open

pfcmain.pbl   >   pfc_w_master   >   open

Name	Datatype
li_rc	Integer

event open;//////////////////////////////////////////////////////////////////////////////
//
//	Object Name:  pfc_w_master
//
//	Description:
//	The ancestor to all PFC window classes
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//	6.0   Added MRU and Logical Unit of Work service code
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Integer li_rc

// Allow for pre and post open events to occur
This.Event pfc_preopen()
This.Post Event pfc_postopen()

// Default window title is application title
If Len (This.title) = 0 Then
	If IsValid (gnv_app.iapp_object) Then
		This.title = gnv_app.iapp_object.DisplayName
	End If
End If

// Allow preference service to restore settings if necessary
If IsValid(inv_preference) Then
	If gnv_app.of_IsRegistryAvailable() Then
		If Len(gnv_app.of_GetUserKey())> 0 Then 
			li_rc = inv_preference.of_Restore( &
				gnv_app.of_GetUserKey()+'\'+this.ClassName()+'\Preferences')
		ElseIf IsValid(gnv_app.inv_debug) Then				
			of_MessageBox ("pfc_master_open_preferenceregistrydebug", &
				"PowerBuilder Foundation Class Library", "The PFC User Preferences service" +&
				" has been requested but The UserRegistrykey property has not" +&
				" been Set on The application manager Object.~r~n~r~n" + &
  				"Call of_SetRegistryUserKey on The Application Manager" +&
				" to Set The property.", &
				Exclamation!, OK!, 1)
		End If
	Else
		If Len(gnv_app.of_GetUserIniFile()) > 0 Then
			li_rc = inv_preference.of_Restore (gnv_app.of_GetUserIniFile(), This.ClassName()+' Preferences')
		ElseIf IsValid(gnv_app.inv_debug) Then		
			of_MessageBox ("pfc_master_open_preferenceinidebug", &
				"PowerBuilder Class Library", "The PFC User Preferences service" +&
				" has been requested but The UserINIFile property has not" +&
				" been Set on The application manager Object.~r~n~r~n" + &
  				"Call of_SetUserIniFile on The Application Manager" +&
				" to Set The property.", &
				Exclamation!, OK!, 1)		
		End If
	End If
End If

// Allow MRU service to restore settings if necessary
If IsValid(gnv_app.inv_mru) Then
	this.event pfc_mrurestore()
End if

end event

Name	Owner
pfc_w_splash.open	pfc_w_splash
pfc_w_about.open	pfc_w_about
pfc_w_logon.open	pfc_w_logon
pfc_w_find.open	pfc_w_find
pfc_w_pagesetup.open	pfc_w_pagesetup
pfc_w_print.open	pfc_w_print
pfc_w_replace.open	pfc_w_replace
pfc_w_selection.open	pfc_w_selection
pfc_w_filterextended.open	pfc_w_filterextended
pfc_w_filtersimple.open	pfc_w_filtersimple
pfc_w_restorerow.open	pfc_w_restorerow
pfc_w_sortdragdrop.open	pfc_w_sortdragdrop
pfc_w_sortmulti.open	pfc_w_sortmulti
pfc_w_sortsingle.open	pfc_w_sortsingle
pfc_w_zoom.open	pfc_w_zoom
pfc_w_dwpropertyservices.open	pfc_w_dwpropertyservices
pfc_w_toolbars.open	pfc_w_toolbars

Name	Owner
powerobject.classname	powerobject
systemfunctions.isvalid	systemfunctions
systemfunctions.len	systemfunctions
n_cst_demopfc.of_isregistryavailable	n_cst_demopfc
pfc_n_cst_appmanager.of_getuserinifile	pfc_n_cst_appmanager
pfc_n_cst_appmanager.of_getuserkey	pfc_n_cst_appmanager
pfc_w_master.of_messagebox	pfc_w_master
pfc_n_cst_winsrv_preference.of_restore	pfc_n_cst_winsrv_preference
pfc_n_cst_winsrv_preference.of_restore	pfc_n_cst_winsrv_preference
pfc_w_master.pfc_preopen	pfc_w_master
pfc_w_master.pfc_postopen	pfc_w_master
pfc_w_master.pfc_mrurestore	pfc_w_master

Full name
demopfc