Michael S 2008-08-30 14:33

/*

GUIBEGIN


WINDOW , 1, 2, 361, 73, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , SHB trace
	FONT 8, 400, MS Shell Dlg
	STATUS BOTTOM|GRIP, status_bar
	PUSH 169, 31, 20, 14, DEFAULT|TABSTOP, , ok_button, , OK
DEND
GUIEND

*/

/* Load the REXX GUI functions. */
LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1

guicreatewindow()
/* Now sync all the controls with their variables' values. */
guisetctlvalue()
guisetctlplacement(,,,,,,'NORMAL')

/* Uncomment to check for function name conflicts. */
/* RxFuncQuery() */

again:
DO FOREVER
	guigetmsg()
	IF EXISTS('GuiObject') == 0 THEN 
		DO
			IF EXISTS('GuiSignal') THEN
				DO
					SELECT guisignal
						WHEN 'POST CLOSE' THEN
							LEAVE
						WHEN 'OTHER_OPTION' THEN
							NOP
						OTHERWISE
							NOP
					END		
				END
		END
	CATCH SYNTAX
		CONDITION('M')
		SIGNAL again

	CATCH HALT
	FINALLY
		/* If you have any special cleanup to do, then you put it in this FINALLY. */
		guidestroywindow()
END

RETURN
/*************************************************************/
wm_click_cancel_button:
CALL wm_close()
RETURN
/**************************************************************
 Closing down the window - clean up as rired              	 
**************************************************************/
wm_close:
RETURN
/*******************************************************************

*******************************************************************/
wm_click_ok_button:

guigetctlvalue()

createobject("rpc_run_error_child_window.rex", "tracechk.", ,'Tracechk', 'BR')
/* tracechk_list_handle = tracechk.~progress_list_handle() */
rc = test2.rex()
RETURN

Michael S 2008-08-30 14:33