itemchanged

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_services   >   dw_services   >   itemchanged

Name	Datatype
ls_servicename	string

event itemchanged;call super::itemchanged;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  itemchanged
//
//	Description:  	Catch the turning of the services on/off.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

string 	ls_servicename

If IsNull(dwo) then Return
If row <=0 Then Return 

If dwo.Name = 'serviceenabled' Then

	// Check if the state can be changed.
	If Upper(dw_services.Object.serviceswitchbuttons.Primary[row]) = 'N' Then
		// The state cannot be changed.
		Return 2
	End If		
		
	// If the service is being enabled, take immediate action.
	If (data = SERVICE_ENABLED) Then
		ls_servicename = dw_services.Object.servicename.Primary[row]
		If IsNull(ls_servicename) or Len(Trim(ls_servicename)) = 0 Then Return
		Parent.Event pfc_PropertyApplyImmediate(ls_servicename, True)
	End If

End If

// Make sure the appropriate buttons are available(post event). 
Parent.Post Event pfc_PropertyEnableButtons()

Return 
end event

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upper	systemfunctions
pfc_u_dw.itemchanged	pfc_u_dw
pfc_u_tabpg_dwproperty_services.pfc_propertyapplyimmediate	pfc_u_tabpg_dwproperty_services
pfc_u_tabpg_dwproperty_services.pfc_propertyenablebuttons	pfc_u_tabpg_dwproperty_services

Full name
pfc_u_tabpg_dwproperty_services