/*
GUIBEGIN
WINDOW ,0,0,400,200, POPUP|CAPTION|SYSMENU|THICK|MINBOX|MAXBOX, , My Window
	FONT 8, 400, MS Shell Dlg
DEND
GUIEND
*/

/* Creates a custom Window Layout Script. */
OPTIONS "C_CALL NOSOURCE"

/* Here's my skeleton script */
skeleton = "/*" || "0D0A"X || "GUIBEGIN" || "0D0A"X ||,
/* Change the following line if you want a different WINDOW */,
"WINDOW ,0,0,400,200, POPUP|CAPTION|SYSMENU|THICK|MINBOX|MAXBOX, , My Window" || "0D0A"X ||,
"09"X || "FONT 8, 400, MS Shell Dlg" || "0D0A"X ||,
/* Add extra CONTROL lines here. Start each line with "09"X and end with || "0D0A"X ||, */,
"DEND"  || "0D0A"X || "GUIEND" || "0D0A"X || "*/" || "0d0a0d0a"X ||,
/* Change the following line if you want a different script description */,
"/* This is my skeleton script */" ||,
"0d0a0d0a"X || 'OPTIONS "c_call labelcheck nosource"' || "0d0a0d0a"X || "/* Load and register add-on functions. */" || "0d0a"X || "DO" || "0d0a09"X || "RXFUNCADD('rexxgui')" || "0d0a"X ||,
/* Insert lines here to RxFuncAdd() or FuncDef() any additional DLLs you use. Begin each line with "09"x and end with  || "0D0A"X ||, */ ,
"0D0A09"x || "CATCH FAILURE" || "0D0A0909"x || 'CONDITION("M")' || "0D0A0909"x || "RETURN" || "0D0A"x || "END" || "0D0A0D0A"x ||,
/* Change the following line to tailor error handling */,
'GuiErr = "SYNTAX"' || "0D0A"x || "GuiHeading = 1" ||,
"0D0A0D0A"x || "/* Create our window, and activate/show it */" || "0d0a"X || "guicreatewindow('NORMAL')" ||,
/* Insert lines here to initialize controls. End each line with  || "0D0A"X ||, */,
"Again:" || "0D0A"x || "DO FOREVER" || "0D0A0D0A09"x || "GuiGetMsg()"  || "0D0A09"x || "IF EXISTS('GuiObject') == 0 THEN DO" || "0D0A0909"x || "IF EXISTS('GuiSignal') THEN DO" ||,
"0D0A0909"x || "/* Insert handling for one of the main script's handlers calling GuiWake() */" ||,
"0d0a0909"X || "END" || "0d0a09"X || "END" || "0d0a09"X || "ELSE DO" || "0d0a0909"X || "IF EXISTS('GuiSignal') == 0 THEN DROP (guiobject)" || "0d0a0909"X || "ELSE SELECT guiobject"  || "0d0a0909"X ||,
"/* Here you add a WHEN clause for each child object variable name. You"  || "0D0A090909"X || "must uppercase the name. Then look at GuiSignal and do... whatever. */"  || "0d0a090909"X || "WHEN 0 THEN NOP" || "0d0a0d0a090909"X || "OTHERWISE" || "0d0a0909"X ||,
"END /* SELECT GuiObject */"  || "0d0a09"X || "END /* Some child script signaled us */" || "0d0a0d0a09"X ||, 
"CATCH SYNTAX" || "0d0a0909"X || "CONDITION('M')" || "0d0a0909"X || "SIGNAL again" || "0d0a0d0a09"X || "FINALLY" ||,
/* If you have any special cleanup to do, then you put it in this FINALLY. */,
"0D0A09"x || "GuiDestroyWindow()" || "0D0A"x || "END" || "0D0A"x ||  "RETURN"

rexxederr = "ERROR" /* Raise ERROR for any problems with RPC macro functions */
DO
	editopendoc() 			/* Open a new editor window */
	editselect(, , skeleton, 'TEXT')	/* Dump the contents of our skeleton Window Layout into it */
END
CATCH ERROR
	CONDITION("M")