2010-07-16 20:45

/*
GUIBEGIN
WINDOW , 33, 94, 151, 62, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Child script
	FONT 8, 400, MS Shell Dlg
	TEXT 5, 6, 111, 42, GROUP, , , , This is the child script.\nClose the window to end it
DEND
GUIEND
*/

/* This is just a child script that displays a simple
 * REXX GUI window.
 */

OPTIONS "C_CALL NOSOURCE"
LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1
guicreatewindow('NORMAL')

again:
DO FOREVER

	guigetmsg()

	CATCH SYNTAX
		CONDITION('M')
		SIGNAL again

	FINALLY
		guidestroywindow()
END

2010-07-16 20:45