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.
