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

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

@@ -2 +2 @@
 ;*****************************************************
 PRO cw_specifie_set_value, id, value
+;
+  compile_opt idl2, strictarrsubs
+;
 @cm_general
    if size(value, /type) NE 8 then return
@@ -26 +29 @@
 ;*****************************************************
 FUNCTION cw_specifie_get_value, id
+;
+  compile_opt idl2, strictarrsubs
+;
 @cm_general
    widget_control, widget_info(id,find_by_uname='min'), get_value = min
@@ -53 +59 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
+;
+  compile_opt idl2, strictarrsubs
+;
   widget_control, event.id, get_uvalue = uval
   widget_control, event.top, get_uvalue = top_uvalue
@@ -87 +96 @@
 FUNCTION cw_specifie, parent, ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname, FRAME = frame, FORXXX = forxxx, _extra = ex
 ; cheking exclusive keywords
+;
+  compile_opt idl2, strictarrsubs
+;
    column = keyword_set(column)*(1-keyword_set(row))
    row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column)