added sysprog entities

SYSPROG/STPROCINS/RTI_WIN_INSERT.txt

@@ -0,0 +1,48 @@
+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