=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND GET$SET #IFSAME !3 OF #IFSAME DFLT$!2 __X__ // is this a item type message? #IFSAME !5 ITEM // is the item keyword used? OBJECT$PROPERTIES !1 !2 !4 !6 !7 !8 !9 // pass it on #ELSE OBJECT$PROPERTIES !1 !2 !4 -99 !5 !6 !7 !8 !9 // use dflt #ENDIF #ELSE #IFSAME !5 TO OBJECT$PROPERTIES !1 !2 !4 !6 !7 !8 !9 // just supply args #ELSE OBJECT$PROPERTIES !1 !2 !4 !5 !6 !7 !8 !9 // just supply args #ENDIF #ENDIF #ELSE GET$SET !1 !2 OF CURRENT_OBJECT !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: OBJECT$PROPERTIES Parameters: {GET | SET} PROPERTY OBJECT { {ITEM #} | TO } VALUE {...} Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND OBJECT$PROPERTIES "GET""SET" RD#OBLG RSND#OBLG R #DATA #IFDEF !2 // is message in a variable? #DPUSH !2 // yes, just push the value #ELSE #IFDEF !1_!2 // is this message defined? #DPUSH !1_!2 // yes, push the definition #ELSE #DPUSH |CI0 // forward reference the message #FREF !1_!2 !a,0 // add the reference to be defined #ENDIF #ENDIF #PUSH !Zg #SET ZG$ 0 PROPERTY$HELP !4 !5 !6 !7 !8 !9 #POP ZG$ #IFDEF !3 !A [] OBJ$!1 !3 |VL #ELSE #IFDEF !3.OBJ !A [] OBJ$!1 !3.OBJ |VL #ELSE !A [] OBJ$!1 |CI0 |VL #FREF !3.OBJ !a #ENDIF #ENDIF #ENDCOMMAND JJT-5.1 #COMMAND PROPERTY$HELP #IF (!0>0) #IFSAME !1 TO #ELSE #IFSAME !1 ITEM #ELSE #SET ZG$ !ZG #IFDEF !1 #DPUSH !1 #ELSE #IFCLASS !1 0123456789ABCDEF #DPUSH !1 #ELSE #IFDEF MSG_!1 #DPUSH MSG_!1 #ELSE #DPUSH |CI0 #FREF MSG_!1 !a,!Zg #ENDIF #ENDIF #ENDIF #ENDIF #ENDIF PROPERTY$HELP !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Send Message {OptionalArguments...} {TO Object} {OptionalArguments...} Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND SEND RSD#OBLG #DATA #IFDEF !1 #DPUSH !1 #ELSE #IFDEF MSG_!1 #DPUSH MSG_!1 #ELSE #DPUSH |CI0 #FREF MSG_!1 !a,0 #ENDIF #ENDIF #IFSAME !2 TO SEND$HELP !4 !5 !6 !7 !8 !9 SEND$CMD TO !2 !3 #ELSE SEND$HELP !2 !3 !4 !5 !6 !7 !8 !9 SEND$CMD TO TO CURRENT_OBJECT #ENDIF #ENDCOMMAND JJT-5.1 #COMMAND SEND$HELP U #IF (!0>0) #DPUSH !1 SEND$HELP !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND #COMMAND SEND$CMD #IFSAME !1 !2 #IFDEF !3 // !A [] OBJ$SEND !3 |VL !A [] $044C !3 |VL #ELSE #IFDEF !3.OBJ !A [] OBJ$SEND !3.OBJ |VL #ELSE !A [] OBJ$SEND |CI0 |VL #FREF !3.OBJ !a #ENDIF #ENDIF #ELSE !A [] OBJ$SEND CURRENT_OBJECT |VL #ENDIF #ENDCOMMAND =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Procedure {Set} Message {FOR Class} {{Type Argument} ...} Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFSAME !1 SET
HANDLE$MESSAGE SET_!2 !3 !4 !5 !6 !7 !8 !9
#ELSE
HANDLE$MESSAGE MSG_!1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF