Changeset 114 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_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_slider_pm.pro (modified) (6 diffs)

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

@@ -136 +136 @@
 ;----------------------------------------------------------------------
 FUNCTION decvalue, value
+;
+  compile_opt idl2, strictarrsubs
+;
   a = float(value[0])
   return, strtrim(string(floor(a) + 0.1*indgen(10), format = '(f15.1)'), 2)
@@ -141 +144 @@
 ;----------------------------------------------------------------------
 FUNCTION decind, value
+;
+  compile_opt idl2, strictarrsubs
+;
   a = float(value[0])
   return, round(10*(a - floor(a))) ; !! computation accuracy
@@ -146 +152 @@
 ;----------------------------------------------------------------------
 PRO cw_slider_pm_set_value, id, value
+;
+  compile_opt idl2, strictarrsubs
+;
   sbid = widget_info(id, find_by_uname = 'SliderBar')
   dcid = widget_info(id, find_by_uname = 'decimal')
@@ -195 +204 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_slider_pm_get_value, id
+;
+  compile_opt idl2, strictarrsubs
+;
   sbid = widget_info(id, find_by_uname = 'SliderBar')
   dcid = widget_info(id, find_by_uname = 'decimal')
@@ -203 +215 @@
 ;----------------------------------------------------------------------
 FUNCTION cw_slider_pm_event, event
+;
+  compile_opt idl2, strictarrsubs
+;
   widget_control, event.id, get_uvalue = uval
 ;
@@ -237 +252 @@
                        , STRMINLEN = strminlen, VALUE = value, UVALUE = uvalue $
                        , UNAME = uname, title = title, _extra = ex
+;
+  compile_opt idl2, strictarrsubs
+;
 
   IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments'