NewsForumsCodeLogsGallerySpecsSearch

How to create greyed out submenus?

BlitzMax Forums/MaxGUI Module/How to create greyed out submenus?

T-Light(Posted 2008) [#1]
This has to be simple, but the docs and the forums are coming up blank. All I need is a standard menu structure. Under 'File' for instance, the submenus would look something like this
New
Open
Save
Close

I'd like to grey out 'Open' 'Save' and 'Close' but just can't find the commands.

The commands DisableGadget(somemainmenu) will work, but only on the main menus (T:Gadgets), they won't work on submenus defined like this...
CreateMenu "O&pen", MENU_PROJECTOPEN, filemenu

Read on one of the threads about this command...
EnableMenuItem() which isn't in the docs.

Is there a working command that can disable submenu's or do any menus that need disabling have to be defined as menu gadgets?


Brucey(Posted 2008) [#2]
Try : DisableMenu(menu:TGadget)


SebHoll(Posted 2008) [#3]
You may have to call UpdateWindowMenu() after DisableMenu() so that the status is updated on the screen.


T-Light(Posted 2008) [#4]
Cheers guys, but that only works with the main menus.

Sub-menus defined like this...
"CreateMenu "O&pen", MENU_PROJECTOPEN, filemenu" , can't be called with the DisableMenu(menu:TGadget) command because it needs to be passed a TGadget. If I pass it the gadget name (in this case "file menu") it'll just grey out the main menu. It's just the some of the sub menu's I'd like to disable.


jsp(Posted 2008) [#5]
Local mainmenu:TGadget=WindowMenu(win)
Local menu:TGadget=CreateMenu("Menu",101,mainmenu)

You need to get the TGadget of the submenu and disable that one


T-Light(Posted 2008) [#6]
Righto, cheers, I haven't been creating the submenus with gadgets, I was using the basic examples from the docs which doesn't use sub menu gadgets, Is this out of date now then?

Local window:TGadget
Local filemenu:TGadget

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

filemenu=CreateMenu("&File",0,WindowMenu(window))
CreateMenu"&New",MENU_NEW,filemenu,KEY_N,MODIFIER_COMMAND
CreateMenu"&Open",MENU_OPEN,filemenu,KEY_O,MODIFIER_COMMAND
CreateMenu"&Close",MENU_CLOSE,filemenu,KEY_W,MODIFIER_COMMAND
CreateMenu"",0,filemenu
CreateMenu"&Save",MENU_SAVE,filemenu,KEY_S,MODIFIER_COMMAND
CreateMenu"",0,filemenu
CreateMenu"E&xit",MENU_EXIT,filemenu,KEY_F4,MODIFIER_COMMAND


Thanks for your help here chaps, I'll use the other way.


SebHoll(Posted 2008) [#7]
Righto, cheers, I haven't been creating the submenus with gadgets

Ah, OK, that would explain the confusion... ;-)

Is this out of date now then?

Well, not really out of date, more that it's bad practice as you no longer have *any* references to the sub-menu just created with which you would use to disable/enable or free (delete) the menu. It's best practice to store a handle to all gadgets you create somewhere in your program.


T-Light(Posted 2008) [#8]
Leans over and scribbles in notebook...
"If you want to do it right, whatever you do, don't copy the docs" :D

Cheers :)


Bobysait(Posted 2008) [#9]
There's a problem using UpdateWindowMenu inside loop:
If we use PopupMenu ( for mouse context )
The contextMenu is droped as a "normal" Menu

Only way I found is freeing the contextmenu, then Disable, Update and finally recreate the contextmenu...

Did Anyone solve this problem ?


SebHoll(Posted 2008) [#10]

There's a problem using UpdateWindowMenu inside loop:
If we use PopupMenu ( for mouse context )
The contextMenu is droped as a "normal" Menu

Only way I found is freeing the contextmenu, then Disable, Update and finally recreate the contextmenu...


Can you please post a working code example and I'll have a look into it for you?

Seb


Bobysait(Posted 2008) [#11]
Local win:TGadget		=	CreateWindow	("win"		,5,5,400,300,Null,WINDOW_MENU+WINDOW_TITLEBAR)

' WindowMenu
Local Menu:TGadget		=	CreateMenu		("Menu 1"	,01,win)
Local SubMenu:TGadget	=	CreateMenu		("Menu S1"	,11,Menu)
UpdateWindowMenu(win)

' PopupMenu
Local Popup:TGadget		=	CreateMenu		("Menu Pop",02,win) ' Here ! I have to set Parent to Null !!!
Local SubPopup:TGadget	=	CreateMenu		("UpdateWindowMenu",21,Popup)
HideGadget Popup

Local Pannel:TGadget=CreatePanel(5,5,380,250,win,PANEL_ACTIVE)
Local Event:Int=0
Repeat
	Event=PollEvent()
	Select Event
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_MOUSEUP		;	PopupWindowMenu(win,Popup)
		Case EVENT_MENUACTION
			Select CurrentEvent.data
				Case 21			;	UpdateWindowMenu(win)
			End Select
	End Select
Forever


I think i found the problem
the popupmenu must be created with no parent ( or everything but the window gadget )

replacing 
Local Popup:TGadget		=	CreateMenu		("Menu Pop",02,win)


by 

Local Popup:TGadget		=	CreateMenu		("Menu Pop",02,null)


seems to fix the problem.

It's just I didn't take care about parenting menu to the good gadget ^^