/*
GUIBEGIN


WINDOW , 0, 0, 507, 193, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Trace results
	FONT 8, 400, MS Shell Dlg
	STATUS BOTTOM|GRIP, status_bar
	PUSH 389, 14, 50, 14, TABSTOP, , ok_button, , Fill view
	VIEW 13, 44, 473, 126, REPORT|SHARE|EDIT|BORDER, CLIENTEDGE, trace_view
DEND
GUIEND
*/

/* Load Rexx Gui functions. */
LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1

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

again:
/* Do our event loop for our main window. */
DO FOREVER

	/* Wait for some event to happen. */
	guigetmsg()

	/* Determine who woke us up from GuiGetMsg. Note: If the user has closed
	 * our main window, then Reginald has raised SYNTAX with a "No open windows"
	 * error. That's because we don't have a handler for WM_DESTROY that calls
	 * GuiWake.
	 */

	/* Did some handler for our main window call GuiWake()? Or perhaps it is
	 * someone other than a window signaling us?
	 */
	IF EXISTS('GuiObject') == 0 THEN DO

		/* Perhaps one of our window event handlers below, or a control event
		 * handler for some control in our main window, has called GuiWake()
		 * to have us handle the event here. In that case, some signal should have
		 * been passed to GuiWake() in order to let us know who signaled us and
		 * why. The particulars of what signal your handlers choose to use is
		 * totally open to your own design of your layout scripts and your main script.
		 *
		 * But if GuiObject is DROP'ed and GuiSignal is also DROP'ed, then this is
		 * Reginald signaling us to do nothing here.
		 */
		IF EXISTS('GuiSignal') THEN DO

			/* One of our handlers below called GuiWake() to tell us to do something here. */

		END

	END

	/* Some Child Window Layout script called GuiWake() to wake us up. GuiObject has
	 * been set to the name of its object variable, and GuiSignal to whatever.
	 */
	ELSE DO

		/* If GuiSignal is DROP'ed, assume the child wants us to simply DROP its object. */
		IF EXISTS('GuiSignal') == 0 THEN DROP (guiobject)

		/* The child script wants something else. GuiSignal is telling us what. Do
		 * a SELECT on GuiObject name to determine which window sent the signal.
		 */
		ELSE SELECT guiobject

			/* Here you add a WHEN clause for each child object variable name. You
			 * must uppercase the name. Then look at GuiSignal and do... whatever.
			 */
			WHEN 0 THEN NOP


			OTHERWISE
		END /* SELECT GuiObject */

	END /* Some child script signaled us */

	/* Report any SYNTAX error. To continue our event loop, we signal
	 * back to "Again". Otherwise, our application would terminate.
	 */
	CATCH SYNTAX
			CONDITION()
			SIGNAL again

	CATCH HALT

	/* If you have any special cleanup to do, then you put it in this FINALLY. */

	/* Let's make sure that our main window is destroyed. We do that
	 * by calling GuiDestroyWindow.
	 *
	 * NOTE: It is safe to call GuiDestroyWindow even if our
	 * GuiCreateWindow never succeeded.
	 */
	FINALLY
		guidestroywindow()
END
RETURN
/*****************************************************************
 Allows you to manipulate the controls - something you CAN'T do 
 until the window has been created
*****************************************************************/
post_create_window:

DO i = 1 TO 4
	
	SELECT i
		WHEN 1 THEN
			DO 
				mycolumn.!width = 40  /* 1/3 of the VIEW control's width */
				mycolumn.!text = "Module/section"
				mycolumn.!state = "LEFT"
			END	
		WHEN 2 THEN 
			DO
				mycolumn.!width = 20  /* 1/3 of the VIEW control's width */
				mycolumn.!text = "Start"
				mycolumn.!state = "LEFT"
			END	
		WHEN 3 THEN 
			DO
				mycolumn.!width = 20  /* 1/3 of the VIEW control's width */
				mycolumn.!text = "End"	
				mycolumn.!state = "LEFT"		
			END	
		OTHERWISE 
			DO
				mycolumn.!width = 20
				mycolumn.!text = "Time taken (secs)"
				mycolumn.!state = "RIGHT"
			END	
	END
		
	mycolumn.!subitem = i
	guiaddctltext("trace_view", "MyColumn", 1)
END

RETURN 0
/*******************************************************************
 Let's check that we've got a value in both the program name and
 the starting time
*******************************************************************/ 
wm_click_ok_button:

trace_event_type.0 = 5
DO i = 1 TO 5
	trace_text.i = 'Trace_text 'i
	trace_event_type.i = 'Trace_event_type 'i
END

DO i = 1 TO trace_event_type.0
	myitem.!item = i	/* First item */
	myitem.!subitem = 1	/* Under the first column */
	myitem.!text = trace_text.i
	myitem.!subitem = 2	/* Under the second column */
	myitem.!text = trace_event_type.i
	guiaddctltext("trace_View", "MyItem")
END 

RETURN 0

DO i = 1 TO trace_event_type.0
	myitem.!item = i	/* First item */
	myitem.!subitem = 1	/* Under the first column (ie, Name) */
	myitem.!text = trace_text.i
	guiaddctltext("trace_View", "MyItem")
	myitem.!subitem = 2	/* Under the first column (ie, Name) */
	myitem.!text = trace_event_type.i
	guiaddctltext("trace_View", "MyItem")
	myitem.!subitem = 3	/* Under the first column (ie, Name) */
	myitem.!text = trace_text.i
	guiaddctltext("trace_View", "MyItem")
	myitem.!subitem = 4	/* Under the first column (ie, Name) */
	myitem.!text = trace_event_type.i
	guiaddctltext("trace_View", "MyItem")
END

listboxline(handle, 393, i - 1, myline)

view 15, 96, 473, 126, report|share|edit|border, clientedge, trace_view

wm_columnclick_myview:
   /* Called when user clicks on a column header. The variable for our control is
     * set to which column was clicked upon.
     */
   guisay("User clicked upon column #" || myview)
   RETURN