Changeset 114 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.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_domain.pro (modified) (5 diffs)

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

@@ -40 +40 @@
 ;*********************************************************************
 pro cw_domain_set_value, id, value
+;
+  compile_opt idl2, strictarrsubs
+;
 @cm_4mesh
 ;
@@ -257 +260 @@
 ;*********************************************************************
 FUNCTION cw_domain_get_value, id
+;
+  compile_opt idl2, strictarrsubs
+;
    box = lonarr(6)
    possiblecase = ['lon1', 'lon2', 'lat1', 'lat2', 'depth1', 'depth2']
@@ -268 +274 @@
 ;*********************************************************************
 FUNCTION cw_domain_event, event
+;
+  compile_opt idl2, strictarrsubs
+;
 @common
 ; help,  /struct, event
@@ -411 +420 @@
 FUNCTION cw_domain, parent, BOXZOOM = boxzoom, STRICT = strict, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, _extra = ex
 ;
+;
+  compile_opt idl2, strictarrsubs
+;
 @cm_4mesh
 @cm_4data
@@ -449 +461 @@
   min = floor(min([glamt, glamf], max = max))
   max = ceil(max)
-  IF max-min EQ 361 AND keyword_set(key_periodic) THEN max = max-1
+  IF max-min GT 360 AND keyword_set(key_periodic) THEN max = min+360
   lonbase = widget_base(baseh1, column = 2, space = 0, uname = 'lonbase', uvalue = {name:'geographic'})
   lon1id = cw_slider_pm(lonbase, value = min > boxzoom[0] < ((boxzoom[1] < max)-keyword_set(strict)) $