Creating Pulldown Menus (continued)
|
Step 4: Program the Parts (continued)
Create Cascade_1 Menu
This still leaves the Cascade_1 and Cascade_2 menus pending. We will
complete Cascade_1 first by assigning its MENU BUTTON entries. This results
in the following display.
1480 ! Create menu for "Cascade_1" (using @C1 as PARENT).
1490 !
1500 S$="Item_1"
1510 ASSIGN @B131 TO WIDGET "MENU BUTTON";PARENT @C13,SET ("LABEL":S$)
1520 !
1530 S$="Item_2"
1540 ASSIGN @B132 TO WIDGET "MENU BUTTON";PARENT @C13,SET ("LABEL":S$)
1550 !
1560 S$="Item_3"
1570 ASSIGN @B133 TO WIDGET "MENU BUTTON";PARENT @C13,SET ("LABEL":S$)
1580 !
Cascade_1 Menu Display
Create Cascade_2 Menu
The Cascade_2 menu is populated using the techniques shown so far, and adding
MENU TOGGLE widgets. This results in the following display.
1590 ! Create menu for "Cascade_2" (using @C14 as PARENT).
1600 !
1610 S$="Toggle_1"
1620 ASSIGN @T141 TO WIDGET "MENU TOGGLE";PARENT @C14,SET ("LABEL":S$)
1630 !
1640 S$="Toggle_2"
1650 ASSIGN @T142 TO WIDGET "MENU TOGGLE";PARENT @C14,SET ("LABEL":S$)
1660 !
1670 S$="Toggle_3"
1680 ASSIGN @T143 TO WIDGET "MENU TOGGLE";PARENT @C14,SET ("LABEL":S$)
1690 !
1700 ! Add "Cascade_3" as entry in "Cascade_2".
1710 !
1720 S$="Cascade_3"
1730 ASSIGN @C144 TO WIDGET "CASCADE MENU";PARENT @C14,SET ("LABEL":S$)
1740 !
Cascade_2 Menu Display