/*
GUIBEGIN


WINDOW , 0, 0, 400, 200, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , My Window
	FONT 8, 400, MS Shell Dlg
	ENTRY 100, 38, 139, 12, H_AUTO|BORDER|TABSTOP
	TEXT 35, 40, 55, 8, GROUP, , , , Text
DEND

MENU list
	HEADING List, List_menu
		ITEM Toggle, Toggle_menu
	<
DEND
GUIEND
*/

LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1
guicreatewindow('NORMAL')
sw_toggle = 0

again:

DO FOREVER

	guigetmsg()
	IF EXISTS('GuiObject') == 0 THEN DO
		IF EXISTS('GuiSignal') THEN DO
		END
	END
	ELSE DO
		IF EXISTS('GuiSignal') == 0 THEN DROP (guiobject)
		ELSE SELECT guiobject
			WHEN 0 THEN NOP
			OTHERWISE
		END /* SELECT GuiObject */

	END /* Some child script signaled us */
	CATCH SYNTAX
			CONDITION()
			SIGNAL again

	CATCH HALT

	FINALLY
		guidestroywindow()
END
RETURN
wm_contextmenu:
guiaddmenu('List')		
RETURN
toggle_menu:
IF sw_toggle = 0 THEN
	DO
		SAY 'Setting a MARK for toggle_menu'
		guisetmenuopts('Toggle_menu', 'MARK') 	
		sw_toggle = 1
	END
ELSE		
	DO
		SAY 'Clearing toggle_menu'
		guisetmenuopts('Toggle_menu', '') 	
		sw_toggle = 0
	END
RETURN