/*
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