compile insert RTI_WIN_INSERT
/*	----------------------------------------------------------------------------
	Author	: David Goddard
	Created	: 15 Sept 2009
	Version	: 10.0
	Purpose : Standard window communter module insert
	
	Modification Info: 
	----------------------------------------------------------------------------
	Date	Who	Version	Notes
	----------------------------------------------------------------------------
	090513	WER			Changed WWA To RTI

	120312	DGG	1.0.0.4 Added wwa_sys_settings delcare function
	
	110822	DGG	1.0.0.3	Updated to use WWA nampespace
	
	110715	DGG	1.0.0.2	Added wwa_win_memory function
	
	--------------------------------------------------------------------------*/
	
declare function get_property, set_property, send_event, send_message
declare subroutine rti_win_setProperties
declare function rti_win_collector_io, rti_win_edittable, rti_win_combobox
declare function rti_win_memory, rti_sys_settings

/* setup a common area for use with rti_win_setproperties routine */
common /rti_win_common/ win.ctrls@, win.props@, win.vals@

win.ctrls@ = rti_null$
win.props@ = rti_null$
win.vals@ = rti_null$

/* check for unassigned variables */
if assigned(ctrlEntId) else ctrlEntId = rti_null$
if assigned(event) else event = rti_null$
if assigned(param1) else param1 = rti_null$
if assigned(param2) else param2 = rti_null$
if assigned(param3) else param3 = rti_null$
if assigned(param4) else param4 = rti_null$
if assigned(param5) else param5 = rti_null$
if assigned(param6) else param6 = rti_null$	

/* initialise variables */ 
window = ctrlEntId[1,"F."]	;* the name of the current window
ctrl = ctrlEntId[-1,"B."]	;* the name of the current control

result = rti_true$				;* initialise result, 0 for failure an 1 for success