Michael S 2008-08-30 14:33

/*

GUIBEGIN


WINDOW , 525, 5, 327, 310, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Progress
	FONT 8, 400, MS Shell Dlg
	MENU
	GROUP 4, 4, 320, 300, , , progress_group, , Progress
	LIST 8, 12, 307, 285, NOTIFY|REALHEIGHT|BORDER|VSCROLL|HSCROLL|TABSTOP, INDEX|CLIENTEDGE, progress_list
DEND

MENU
	HEADING Options, Options
		ITEM Print, print_menu
		ITEM Save, save_menu
		ITEM
		ITEM Clear, clear_menu
	<
DEND
GUIEND

*/

/* An OPTIONS "NOSOURCE" may appear here, but _not_ before the GUIBEGIN/GUIEND. */
OPTIONS "C_CALL LABELCHECK WINFUNC"
NUMERIC DIGITS 10
create:
/* wdw_position is the first argument to place_window, ie, where
   do we want the progress window shown on the screen */
PARSE ARG window_name, wdw_position 
/* Let REXX GUI raise SYNTAX for errors. */
guierr = "SYNTAX"
guiheading = 1
/* Hide temporarily */
guicreatewindow('HIDE')
/* Now sync all the controls with their variables' values. */
guisetctlvalue()
guisetctlplacement(,,,,,,'NORMAL')
RETURN
/*******************************************************************
 Let's make sure that our window is destroyed. We do that by calling
 GuiDestroyWindow. NOTE: It is safe to call GuiDestroyWindow even   
 if our GuiCreateWindow never succeeded.
*******************************************************************/
destroywindow:
destroy:
guidestroywindow()
RETURN
/**************** Close the window *****************/
wm_close:
RETURN

Michael S 2008-08-30 14:33