49 lines
1.8 KiB
Plaintext
49 lines
1.8 KiB
Plaintext
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
|