=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: On_Key KeyName SEND Message {TO Object} {PRIVATE} Parameters: KeyName is a valid hot key name. Message is valid message name. Object is the a valid object name. Description: The ON_KEY command tells the menu manager to pass the specified Message code to the specified Object when the KeyNAme is pressed. If no Object name is passed, the current object is used. Passing MSG_NONE for Message causes the key to do nothing, passing MSG_DEFAULT_KEY will restore the default key definition. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= #COMMAND ON_KEY RULGBO#SDN "SEND" RLGBO#SDN """TO""PRIVATE" _DNOB """PRIVATE" . #IFSAME !4 PRIVATE ON_KEY !1 !2 !3 TO |CI-1 PRIVATE #ELSE #DATA #DPUSH !1 #IFSAME !4 TO #IFDEF !5 #DPUSH !5 #ELSE #IFDEF !5.OBJ #DPUSH !5.OBJ #ELSE #DPUSH |CI0 #FREF !5.OBJ !a,1 #ENDIF #ENDIF #ELSE #DPUSH |CI-1 #ENDIF #IFSAME !6 PRIVATE #DPUSH |CI1 #ENDIF #IFDEF !3 !A [] OBJ$ONKEY !3 |VL #ELSE #IFDEF MSG_!3 !A [] OBJ$ONKEY MSG_!3 |VL #ELSE // else the command is defined in flex code !A [] OBJ$ONKEY |CI0 |VL // get flex to fix the fwd ref #FREF MSG_!3 !a #ENDIF #ENDIF #ENDIF #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: END_OBJECT Parameters: None required Description: END_OBJECT tells the manager we are done defining an object. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND END_OBJECT // // The following section was added 01-08-90 by SAL to support inheritable // end-instance macros for classes // #IFSUB '!$$SC' //if flex-defined class #IFSUB '!$$EM' //if end-instance macro defined for class, !$$EM !$ !1 !2 !3 !4 !5 !6 !7 !8 !9 #ELSE FORWARD_END_CONSTRUCT !$ !1 !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ELSE DEFAULT_END_OBJECT //else use default #ENDIF #SPOP //restore old class name // // end of addition 01-08-90 by SAL // #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: DEFAULT_END_OBJECT Parameters: NONE Description: This command terminates an object declaration =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
!A [] OBJ$END //Mark the end of the object list. #POP ZI$ //restore sub_obj_count #POP ZB$ //restore current_dep #POP B$ //restore obj_flag #POP ZJ$ //restore temp label