clicked

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_services   >   cb_enable   >   clicked

Name	Datatype
lb_desiredestate	boolean
ll_currentrow	long
ls_servicename	string

event clicked;call super::clicked;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  Clicked
//
//	Description:  Enable the current service.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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.
//
//////////////////////////////////////////////////////////////////////////////

long		ll_currentrow
string 	ls_servicename
boolean	lb_desiredestate = True

// Get the current row.
ll_currentrow = dw_services.GetRow()

If ll_currentrow > 0 Then
	// Get the name of the current service.	
	ls_servicename = dw_services.Object.servicename.Primary[ll_currentrow]
	If IsNull(ls_servicename) or Len(Trim(ls_servicename)) = 0 Then Return
	
	// Change the current estate of the checkbox.
	dw_services.Object.serviceenabled.Primary[ll_currentrow] = SERVICE_ENABLED
	
	// Notify the estate has been changed to Enabled.
	Parent.Event pfc_PropertyApplyImmediate(ls_servicename, lb_desiredestate)	
	
	// Refresh the available buttons.
	Parent.Event pfc_PropertyEnableButtons()
	
	// Set focus to the appropriate button.
	cb_disable.SetFocus()
End If
end event

Name	Owner
dragobject.setfocus	dragobject
datawindow.getrow	datawindow
systemfunctions.isnull	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
commandbutton.clicked	commandbutton
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