Create the Promoted Event Processing Code

This is the function (PE_GotFocus) that performs the required processing. In this case, the function will update an EDITLINE control named STATUSLINE with some help text.

Create a new stored procedure and paste the following code:

compile function PE_GotFocus( CtrlEntID, CtrlClassID, PrevFocusID)

*  This function performs the actual processing necessary.  In this case we update the

*  EDITLINE control named STATUSLINE with the control type of the current control

Declare Function Get_Property, Set_Property

Val = Set_Property( @window : '.STATUSLINE', 'TEXT', CtrlClassId)

return 1

* Return 1 continues up the event chain

* Return 0 terminates the event chain

Save and compile this function as PE_GotFocus. This is the function called from the PE_GotFocus_Shell commuter module.