Changeset 114 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_combobox_pm.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_combobox_pm.pro (modified) (4 diffs)

trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_combobox_pm.pro

@@ -145 +145 @@
 ;----------------------------------------------------------------------
 PRO cw_combobox_pm_set_value, id, value
+;
+  compile_opt idl2, strictarrsubs
+;
    ComboboxId = widget_info(id,find_by_uname = 'Combobox')
    if size(value, /type) eq 8 then BEGIN ; this is a structure
@@ -163 +166 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_combobox_pm_get_value, id
+;
+  compile_opt idl2, strictarrsubs
+;
    ComboboxId = widget_info(id,find_by_uname = 'Combobox')
    widget_control, ComboboxId, get_value = cmbbval
@@ -174 +180 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_combobox_pm_event, event
+;
+  compile_opt idl2, strictarrsubs
+;
    widget_control, event.id, get_uvalue=uval
 ;
@@ -205 +214 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_combobox_pm, parent, VALUE = value, UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _extra = ex
+;
+  compile_opt idl2, strictarrsubs
+;
 
    IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments'