Creating Pulldown Menus (continued)
|
Step 4: Program the Parts (continued)
Create PullDown_3 Menu
We then create the PullDown_3 menu, which results in the display shown in the
following figure. The "Quit" MENU BUTTON allows you to exit gracefully from this program.
1110 ! ****************************************************
1120 !
1130 ! Create menu for "PullDown_3" (using @Pd3 as PARENT).
1140 !
1150 S$="Button_1"
1160 ASSIGN @B31 TO WIDGET "MENU BUTTON";PARENT @Pd3,SET ("LABEL":S$)
1170 !
1180 S$="Button_2"
1190 ASSIGN @B32 TO WIDGET "MENU BUTTON";PARENT @Pd3,SET ("LABEL":S$)
1200 !
1210 S$="Button_3"
1220 ASSIGN @B33 TO WIDGET "MENU BUTTON";PARENT @Pd3,SET ("LABEL":S$)
1230 !
1240 ASSIGN @S34 TO WIDGET "MENU SEPARATOR";PARENT @Pd3
1250 !
1260 S$="Quit"
1270 ASSIGN @Quit TO WIDGET "MENU BUTTON";PARENT @Pd3,SET ("LABEL":S$)
1280 !
1290 ! ****************************************************
Pulldown_3 Menu Display