Hi,
I'm trying to add a new menu item with 3 buttons. For some reason when it is displayed the very first button is insensitive. I've tried to set the sensitivity but it makes no difference.
Here is a cut down version of my procedure.
PRO MyMenu
wTopLevelBase = Widget_Base(/COLUMN, UNAME='wTopLevelBase', Title='Test', MBAR=wMenuBase)
wFileMenu = Widget_Button(wMenuBase, UNAME='wFileMenu', /MENU, VALUE='File')
wExitButton = Widget_Button(wFileMenu, UNAME='wExitButton', VALUE='Close', Event_Pro='vExitCb')
wViewMenu = Widget_Button(wMenuBase, UNAME='wViewMenu', /MENU, VALUE='View', Event_Pro='vViewChangeCb')
wViewListButton = Widget_Button(wViewMenu, UNAME='wViewListButton', VALUE='List', UVALUE='List', /CHECKED_MENU)
wViewShortButton = Widget_Button(wViewMenu, UNAME='wViewShortButton', VALUE='Short', UVALUE='Short', /CHECKED_MENU)
wViewDetailsButton = Widget_Button(wViewMenu, UNAME='wViewDetailsButton', VALUE='Details', UVALUE='Details', /CHECKED_MENU)
Widget_Control, wTopLevelBase, /REALIZE
Widget_Control, wViewListButton, Set_Button=1
Widget_Control, wViewListButton, /SENSITIVE
Widget_Control, wViewShortButton, /SENSITIVE
Widget_Control, wViewDetails, /SENSITIVE
XMANAGER, 'Test', wTopLevelBase, /NO_BLOCK
End MyMenu
Any ideas ?
Thanks
|