====== 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:

<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
</code>
 

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