PRO multi_level_menu
; This code is designed strictly to show how a top-level menu bar can be
; written to include multiple tiers of sub-popup menus.

tlb = Widget_Base(xsize=300, ysize=300, title='Multi-Level Menu Demo' , $
	mbar=ml_mbar)


mFile = Widget_Button(ml_mbar, /menu, value='&File')
mOpen = Widget_Button(mFile, value='&Open')
mSave = Widget_Button(mFile, value='&Save')
mExit = Widget_Button(mFile, /separator, value='E&xit')


mDynamenu = Widget_Button(ml_mbar, /menu, value='My&DynamicMenu')

m1to3 = Widget_Button(mDynamenu, /MENU, value='Buttons &1 - 3')
mButton1 = Widget_Button(m1to3, value='Button&1')
mButton2 = Widget_Button(m1to3, value='Button&2')
mButton3 = Widget_Button(m1to3, value='Button&3')

m4to5 = Widget_Button(mDynamenu, /menu, value='Buttons &4 - 5')
mButton4 = Widget_Button(m4to5, value='Button&4')
mButton5= Widget_Button(m4to5, value='Button&5')

Widget_Control, /realize, tlb
XManager, 'multi_level_menu', tlb,/no_block

end