Adding The Main Menu
Lets add a main menu to the program now:
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Main Menu' ;
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
CENTER WINDOW Win_1
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.
This is HMG power !
Regards
esgici
