Adding The Main Menu

We add a main menu to the program now:

 #include "hmg.ch"
 Function Main
     DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'Tutor 02 - Property Test' ;
        MAIN 
        DEFINE MAIN MENU
           POPUP "First Popup"
             ITEM 'Change Window Title' ACTION  Win_1.Title := 'New Title'
             ITEM 'Retrieve Window Title' ACTION  MsgInfo ( Win_1.Title )
           END POPUP
        END MENU
    END WINDOW
    ACTIVATE WINDOW Win_1
 Return

As you can see it is pretty easy and intuitive.

All the main menu stuff will be between DEFINE MAIN MENU \/ END MENU statements.

Each individual menu popup will be between POPUP \/ END POPUP statements.

Each individual menu item will be coded via the ITEM statement.

You can use as popups as you need and you can nest it without any limit.

The MsgInfo() Function

This is a very useful function. It will show a little message window (with the system information icon) and a message (character type) passed as parameter.

You can optionally add a title (passed as the second parameter)