Creating Pulldown Menus (continued)

 

Step 4: Program the Parts (continued)

 

Create Topmost PULLDOWN MENU Widgets

 

Now that the background is in place, we can start building the menu system itself. First we create the topmost PULLDOWN MENU widgets as follows:

 

750   ! ****************************************************

760   !

770   ! Create the PULLDOWN MENU widgets, using the PANEL widget as parent.

780   !

790   S$="PullDown_1"

800   ASSIGN @Pd1 TO WIDGET "PULLDOWN MENU";PARENT @P,SET ("LABEL":S$)

810   !

820   S$="PullDown_2"

830   ASSIGN @Pd2 TO WIDGET "PULLDOWN MENU";PARENT @P,SET ("LABEL":S$)

840   !

850   S$="PullDown_3"

860   ASSIGN @Pd3 TO WIDGET "PULLDOWN MENU";PARENT @P,SET ("LABEL":S$)

870   !

880   ! ****************************************************

 

The top-level menu automatically appears in a bar across the PANEL widget (see the following figure). Telling HTBasic to create a PULLDOWN MENU widget in a PANEL automatically creates a menu bar, and the PULLDOWN MENU entries are loaded into the bar in the order in which they are created.

 

Top-Level Menu Display