HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main

	DEFINE WINDOW Main ;
		AT 0,0 ;
		WIDTH 550 ;
		HEIGHT 350 ;
		TITLE 'Menu Test' ;
		MAIN 
		 DEFINE MAIN MENU
				DEFINE POPUP "File"
					MENUITEM "exit" ACTION Main.Release
				END POPUP
				DEFINE POPUP "Help"
					MENUITEM "About..." ACTION MsgInfo("Test of Main Menu")
					MENUITEM "About HMG" ACTION MsgBox(HmgVersion())
				END POPUP
			END MENU

		@ 80,160 BUTTON Button_1 ;
			CAPTION "Press to activate second window" ;
			ACTION SecondWindow() ;
			WIDTH  200 ;
			HEIGHT 60 
    END WINDOW

		On KEY ESCAPE OF Main Action {|| msgBox("Ending program"), Main.Release}
        Main.Center
        Main.Activate
Return
*-----------------------------------------

function SecondWindow
	DEFINE WINDOW Second ;
		AT 200,200 ;
		WIDTH 550 ;
		HEIGHT 350 ;
		TITLE 'Menu Test' ;
		MODAL

		DEFINE MAIN MENU
			DEFINE POPUP "File"
				MENUITEM "Close this window" ACTION Second.Release
			END POPUP
			DEFINE POPUP "Help"
				MENUITEM "About..." ACTION MsgInfo("Test of Main Menu")
				MENUITEM "About HMG" ACTION MsgBox(HmgVersion())
			END POPUP
		END MENU

		@ 20,40 LABEL Label_1 WIDTH  260 HEIGHT 20 ;
			VALUE "This is second window" ;
			FONT "Arial" SIZE 14 

		@ 60,40 LABEL Label_2 WIDTH  380 HEIGHT 20 ;
			VALUE "Try to activate main menu pressing Alt-F" ;
			FONT "Arial" SIZE 14 

		@ 100,40 LABEL Label_3 WIDTH  320 HEIGHT 30 ;
			VALUE "Then press ESC key to close it" ;
			FONT "Arial" SIZE 14 

	END WINDOW
	// when you change code to like this:
	// Message is displayed, but releasing window Second is omitted.
	//On Key ESCAPE OF Second Action {|| msgbox("I'm closing second window") , Second.Release}

	On Key ESCAPE OF Second Action Second.Release

	activate window Second
 return