pfc_timer

pfcapsrv.pbl   >   pfc_n_cst_tmgsingle   >   pfc_timer

Name	Datatype
li_rc	integer

event pfc_timer;call super::pfc_timer;//////////////////////////////////////////////////////////////////////////////
//
//	Event: pfc_timer
//
//	Arguments: None
//
//	Returns:  integer
//	1 - Success
// 0 - Disabled
//	-1 - Error
//
//	Description:
//	Notify the registered object.
//
// Note:
//	While this process is going on, ignore any timer interrupts that may occur.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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.
//
//////////////////////////////////////////////////////////////////////////////

integer 	li_rc

If of_IsDisabled() Then 
	// We are busy then reject any timer interrupts
	Return 0
End If

If of_IsAutoDisable() Then
	// Disable the service.
	of_SetDisabled(True)
End If

If IsValid(ipo_notifyobject) And Len(Trim(is_notifyevent)) > 0 Then
	// Notify the object.
	If ii_notifystyle = TRIGGEREVENT Then
		ipo_notifyobject.TriggerEvent(is_notifyevent)
	Else
		ipo_notifyobject.PostEvent(is_notifyevent)
	End If
End If

If of_IsAutoDisable() Then
	// OK to start processing timer interrupts again
	of_SetDisabled(False)
End If

Return 1
end event

Name	Owner
pfc_n_tmg.timer	pfc_n_tmg

Name	Owner
powerobject.postevent	powerobject
powerobject.triggerevent	powerobject
systemfunctions.isvalid	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
pfc_n_cst_tmgsingle.of_isdisabled	pfc_n_cst_tmgsingle
pfc_n_cst_tmgsingle.of_setdisabled	pfc_n_cst_tmgsingle
pfc_n_cst_tmgsingle.of_isautodisable	pfc_n_cst_tmgsingle