Changeset 114 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_droplist_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_droplist_pm.pro (modified) (4 diffs)

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

@@ -144 +144 @@
 ;----------------------------------------------------------------------
 PRO cw_droplist_pm_set_value, id, value
+;
+  compile_opt idl2, strictarrsubs
+;
    DroplistId = widget_info(id,find_by_uname = 'Droplist')
    if size(value, /type) eq 8 then BEGIN ; this is a structure
@@ -160 +163 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_droplist_pm_get_value, id
+;
+  compile_opt idl2, strictarrsubs
+;
    DroplistId = widget_info(id,find_by_uname = 'Droplist')
    return, {droplist_number:widget_info(DroplistId, /droplist_number) $
@@ -167 +173 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_droplist_pm_event, event
+;
+  compile_opt idl2, strictarrsubs
+;
    widget_control, event.id, get_uvalue=uval
 ;
@@ -191 +200 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_droplist_pm, parent,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'