MaxGUI Child gadgets (Menu)

BlitzMax Forums/BlitzMax Beginners Area/MaxGUI Child gadgets (Menu)

_PJ_	(Posted 2016) [#1]

I acquired a habit in Blitz Plus of definign sand declaring the particluar MENU gadgets with GLOBAL vars should they be required to be CHECKED/UNCHECKED or DISABLED/ENABLED etc.

This way I could reference the individual menu items themselves.

---

From what I can tell from BlitzMax MaxGUI, a similar method should work, although the documentation do not anywhere give such example nor indicate at all how one might idnetify the particular gadget otherwise.

---
Example:

(documentation)

CreateMenu"&New",MENU_NEW,filemenu,KEY_N,MODIFIER_COMMAND
CreateMenu"&Open",MENU_OPEN,filemenu,KEY_O,MODIFIER_COMMAND
CreateMenu"&Save",MENU_SAVE,filemenu,KEY_S,MODIFIER_COMMAND
CreateMenu"",0,filemenu
CreateMenu"&Close",MENU_CLOSE,filemenu,KEY_W,MODIFIER_COMMAND
CreateMenu"",0,filemenu

Let's say I would prefer only to have NEW or OPEN menu items in a situation where there is NO CONTENT (whatever it may be).

I would seek then to disable the SAVE and CLOSE menu gadgets.

The documentation explains this is simply a matter of
DisableMenu(MENUGADGET:TGadget)

My issue is with identifying MENUGADGET in this situation.

Should I adopt a similar process as I have used for BloitzPlus : i.-e.

Global SAVEMENUGADGET:TGadget
Global CLOSEMENUGADGET:TGadget

then actually assign these

SAVEMENUGADGET=CreateMenu"&Save",MENU_SAVE,filemenu,KEY_S,MODIFIER_COMMAND
CreateMenu"",0,filemenu
CLOSEMENUGADGET=CreateMenu"&Close",MENU_CLOSE,filemenu,KEY_W,MODIFIER_COMMAND

Or is there a 'better' practice way of doing this i.e. as some child object of the Menu object itself?

MYMENU.SubMenu(n)

where 'n' is a reference (such as the unique ID identifier)?

degac

(Posted 2016) [#2]

Not sure if I have understood correctly what you mean
You can use global to have each item menu (and enable, disable etc) them.
You can also use arrays, or maps to keep track of ID_MENU and menu-item.

' createmenu.bmx

Import MaxGui.Drivers

Strict 

Local window:TGadget
Local filemenu:TGadget
Local editmenu:TGadget
Local helpmenu:TGadget

Const MENU_NEW=101
Const MENU_OPEN=102
Const MENU_SAVE=103
Const MENU_SAVEAS=104
Const MENU_EXIT=105

window=CreateWindow("My Window",40,40,320,240)

filemenu=CreateMenu("&File",0,WindowMenu(window))

Global mnu_open:Tgadget,mnu_save:Tgadget,mnu_saveas:Tgadget,mnu_exit:Tgadget

mnu_open=CreateMenu("Open",MENU_OPEN,filemenu)
mnu_save=CreateMenu("Save",MENU_SAVE,filemenu)
mnu_saveas=CreateMenu("Save as",MENU_SAVEAS,filemenu)
mnu_exit=CreateMenu("Exit",MENU_EXIT,filemenu)


DisableGadget mnu_save
DisableGadget mnu_saveas


UpdateWindowMenu window

While True
	WaitEvent 
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_MENUACTION
			Select EventData()
				Case MENU_EXIT
					End
				Case MENU_OPEN
					EnableGadget mnu_save
					EnableGadget mnu_saveas
					
			End Select
	End Select
Wend

Midimaster

(Posted 2016) [#3]

First, there is no need for my way of keeping track of all those gadgets. But I handle them in arrays. MENUS in an array and BUTTONS in another one...

Only the important ones like the window or the canvas have a unique variable

the code is only symbolic:

Type Mdi
	Global Window:TGadget , Canvas:TGadget

	Global Menus:Tgadget[50]
	Const MENU_FILE%=1 , MENU_OPEN%=2 , MENU_FILE%=3 .....

	Global Panel:TGadget[30] , Slider:TGadget[30] , TextField:TGadget[30] , Button:TGadget[60], ComboBox:TGadget[10]

	Const PAN_EDIT%=1 , PAN_LEER%=0 , PAN_SPIEL%=3...
	Const SLID_ZAHL%=0 , SLID_NENN%=1 , SLID_TEMPO%=2 ...
	Const BUT_LANG%=0 , BUT_NOTE%=5 , BUT_PAUSE%= 12 ...
	Const COMBO_INSTR%=0 , COMBO_RASTER%=1 , COMBO_SUCH_REIHE%=2 ...
	.....
	
	Menus[MENU_BROWS]	= CreateMenu ("{{Exercise Browser}}                   " , MENU_BROWS , Menus[MENU_FILE],0,0)
	Menus[MENU_OPEN]	= CreateMenu ("{{Open}}                   " , MENU_OPEN , Menus[MENU_FILE],0,0)
	Menus[MENU_RECENT] = CreateMenu( "{{Automatic Exercises}}..." , 0 , Menus[MENU_FILE] ,0,0)

....

	Function MenuAction(Event%)
			Select Event
				Case MENU_OPEN
					AllLoadingActions
				Case MENU_BROWS
					LektionenBrowser.Show 0
				Case MENU_CLOSE
					StartAls 4

....

	Function Event (Event:TEvent)
		Local i%
		Local tmpGadget:TGadget = TGadget(Event.Source)
		If tmpGadget 
			If (GadgetClass(tmpGadget) =GADGET_BUTTON)
					If Button[BUT_LANG]=tmpGadget
					.....
			ElseIf (GadgetClass(tmpGadget) =GADGET_SLIDER)
					If  Slider[SLID_ZAHL] = tmpGadget
					.....