PROCEDURE EXPOSE guiwindow

ARG position, max_x, max_y, x_size, y_size

SELECT position
	WHEN 'TL' THEN
		DO
			SAY "About to do the guisetctlplacement"
			guisetctlplacement(,0,0)  /* Top left */
			SAY "After doing the guisetctlplacement"
		END	
	WHEN 'TR' THEN
		guisetctlplacement(,max_x - (x_size + 7),0) /* Top right */
	WHEN 'BL' THEN
		guisetctlplacement(,0,max_y - (y_size + 7)) /* Bottom left */
	WHEN 'BR' THEN
		guisetctlplacement(,max_x - (x_size + 7),max_y - (y_size + 7)) /* Bottom right */
	OTHERWISE
		NOP
END

SAY "About to return with 0 from place_window.rex"
RETURN 0

/*do
	catch error */
		SAY guisetctlplacement(, , , x_size, y_size, ,)
		SAY guigetctlplacement(, 'dummy1', 'dummy2', 'wdw_width', 'wdw_height')
		SAY place_window.rex('TL'/*, x_size, y_size, wdw_width, wdw_height*/)  
/*			CONDITION('M')
		return 0
end */

About to do the guisetctlplacement
After doing the guisetctlplacement

Line #589, err45.1: Data expected on RETURN instruction because routine "PLACE_WINDOW.REX" was used in an expression

/*
GUIBEGIN


WINDOW , 690, 12, 386, 133, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, ONTOP, TUPP codes
	FONT 8, 400, MS Shell Dlg
	MENU
DEND

MENU
	HEADING &Options, options
		HEADING &TUPP times, tupp_times
			ITEM &Today, tupp_today
			ITEM This &week, tupp_week
			ITEM This &month, tupp_month
		<
		ITEM
		ITEM T&ransfer TUPP times, transfer_tupp
		ITEM &Add time away from work, add_missed_time
		ITEM
		ITEM Time &worked today, worked_today
		ITEM
		ITEM Time trace, time_trace, , GRAY
	<
	HEADING &TUPP codes
		ITEM &Add/Delete TUPP code, add_delete_tupp
		ITEM &Change TUPP name, change_tupp_name
	<
	HEADING &Help
		ITEM &Open help, help_open
	<
DEND
GUIEND
*/

Tupp_codes_01.png

/********************************************************
 This handles all events for our window which REXX
 GUI doesn't know about. REXX GUI doesn't know about
 any of the tray events, so any tray event causes
 Reginald to call this handler.
*******************************************************/
wm_extra:

/*  say  'Arguments are 'arg(1) arg(2) arg(3) */
arg_1 = ARG(1)
arg_2 = ARG(2)
arg_3 = ARG(3)
	
/* rc = wdwsay.rex("Arg 1 2 & 3 "arg(1) arg(2) arg(3))*/
/* Figure out what to do based on the message number */
SELECT 
	WHEN arg_1 = 13 THEN
		DO
			/* We're restarting or shutting down Windows (at home) 
		     Save the TUPP data first */
			rc = save_all_data('SHUT')
			RETURN ''
		END	
	WHEN arg_2 = 0 & arg_3 = 59 THEN
		DO
			/* We're logging off, restarting or shutting down Windows (at work) 
		     Save the TUPP data first */
			rc = save_all_data('SHUT')
			RETURN ''
		END				
	/* It our custom event we used for the tray? If so, the
		 message number = 50000 because that's what we chose.
		 
		 The OS causes this even when some activity happens
		 with our tray icon.
		 
		 ARG(1) is the ID number we used for the icon. In this
		 example, it was 10.
		 ARG(2) is the message number sent from the icon.
	*/
	WHEN arg_3 <> 50000 THEN 
		NOP						/* Nothing to do with the tray */
	WHEN arg_2 = 516 THEN
	 	DO
			/* WM_RBUTTONDOWN - they right-clicked the mouse button - reshow the window */
			guisetctlplacement(guiwindow,,,,,,'NORMAL')
		END	
	OTHERWISE
		/* For all other messages, we have no processing */
		NOP
END /* SELECT message number */

/* Don't let Rexx Gui process this event. */
RETURN ""