LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1
guicreatewindow('NORMAL')
again:
DO FOREVER
guigetmsg()
CATCH SYNTAX
CONDITION('M')
SIGNAL again
CATCH HALT
FINALLY
guidestroywindow()
END
RETURN
wm_click_add1:
guiaddmenu("Heading 3", "HEADING", "3 0")
guiaddmenu('List','POPUP')
guisetctlplacement("Add1", , , , , "DISABLE")
RETURN
wm_click_add2:
guiaddmenu("Before 2", "HEADING", 2)
guisetctlplacement("Add2", , , , , "DISABLE")
RETURN
wm_click_additem1_3:
guiaddmenu("Inserted 1, , , MARK", "ITEM", "1 3")
guisetctlplacement("AddItem1_3", , , , , "DISABLE")
RETURN
wm_click_heading1_5:
guiaddmenu("Heading insert", "HEADING", "1 5")
guiaddmenu("Inserted sub", "ITEM", "1 5 1")
guisetctlplacement("Heading1_5", , , , , "DISABLE")
RETURN
wm_click_del1:
guiremovemenu("1 5")
guisetctlplacement("Del1", , , , , "DISABLE")
RETURN
wm_click_del2:
guiremovemenu("MySub2", "VAR")
guisetctlplacement("Del2", , , , , "DISABLE")
RETURN
wm_click_del3:
guiremovemenu("2")
guisetctlplacement("Del3", , , , , "DISABLE")
RETURN
|