Changeset 226 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro (modified) (20 diffs)

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

@@ -12 +12 @@
 ;          widget_control, Id, set_value = boxzoom
 ;       END
-;       'get':BEGIN 
+;       'get':BEGIN
 ;          widget_control, Id, get_value = value
 ;          print,  value
@@ -45 +45 @@
 ; @categories
 ; Compound widget
-; 
+;
 ; @param ID
 ;
@@ -53 +53 @@
 ;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
@@ -86 +81 @@
 ; What is the type of boxzoom ?
    currentplot = (extractatt(top_uvalue, 'smallin'))[2]-1
-   options = extractatt(top_uvalue, 'options')   
+   options = extractatt(top_uvalue, 'options')
    flags = extractatt(top_uvalue, 'optionsflag')
    flags = flags[*, currentplot]
@@ -119 +114 @@
    Case N_Elements(Value) OF
       0:boxzoom = [lonn1, lonn2, latt1, latt2, vertf1, vertf2]
-      1:BEGIN 
+      1:BEGIN
          if value EQ -1 then boxzoom = [lonn1, lonn2, latt1, latt2, vertf1, vertf2] $
          ELSE boxzoom=[lonn1, lonn2, latt1, latt2, 0.,value[0]]
@@ -127 +122 @@
       5:boxzoom=[Value[0:3], 0, Value[4]]
       6:boxzoom = Value
-      Else:BEGIN 
+      Else:BEGIN
          rien = report('Wrong Definition of Boxzoom')
       END
@@ -151 +146 @@
       min = floor(min([glamt,glamf], max = max))
       max = ceil(max)
-   ENDIF ELSE BEGIN 
+   ENDIF ELSE BEGIN
       min = 0
       max = jpi-1
@@ -195 +190 @@
       min = floor(min([gphit,gphif], max = max))
       max = ceil(max)
-   ENDIF ELSE BEGIN 
+   ENDIF ELSE BEGIN
       min = 0
       max = jpj-1
@@ -250 +245 @@
       widget_control, dthlv2id, set_value = {value:strtrim(gdep2, 1)}
    ENDIF ELSE gdep2 = gdep1+1
-; We make sure that given depthes contain at least one level.
+; We make sure that given depths contains at least one level.
    if boxzoom[4] GT boxzoom[5] then begin
       rien = boxzoom[4]
@@ -256 +251 @@
       boxzoom[5] = rien
    endif
-; 
+;
    rien = where(gdep1 LT boxzoom[4], indice1)
    indice1 = indice1 < (jpk-1)
@@ -279 +274 @@
    widget_control, depth1id, set_value = {slider_min:min1, slider_max:max1, value:boxzoom[4]}
    min2 = gdep2[indice1]
-   if indice2 EQ jpk-1 then BEGIN 
+   if indice2 EQ jpk-1 then BEGIN
       max2 = max([gdept, gdepw])
       max2 = strtrim(string(max2,format='(e8.0)'), 1)
@@ -295 +290 @@
 ; @categories
 ; Compound widget
-; 
+;
 ; @param ID
 ;
 ;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
@@ -337 +327 @@
 ; @categories
 ; Compound widget
-; 
+;
 ; @param EVENT
 ;
 ;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
@@ -408 +393 @@
             widget_control, dthlv2id, set_value = {combobox_select:event.index}
 ; So we redefine the value and the max of the slider 2
-            if event.index EQ jpk-1 then BEGIN 
+            if event.index EQ jpk-1 then BEGIN
                max = max([gdept, gdepw])
                max = strtrim(string(max,format='(e8.0)'), 1)
@@ -417 +402 @@
 ; So we redefine the max of the slider 1
             widget_control, depth1id, set_value = {slider_max:gdep1[event.index]}
-         END 
-; We redefine the value and the min of the slider depth1 
+         END
+; We redefine the value and the min of the slider depth1
          if event.index EQ 0 then min = 0 ELSE min = gdep1[event.index-1]+1
          widget_control, depth1id, set_value = {slider_min:min, value:gdep1[event.index]}
@@ -443 +428 @@
 ; Se we redefine the min of the slider 2
             widget_control, depth2id, set_value = {slider_min:gdep2[event.index]}
-         END 
+         END
 ; We redefine the value and the max of the slider depth 2
-         if event.index EQ jpk-1 then BEGIN 
+         if event.index EQ jpk-1 then BEGIN
             max = max([gdept, gdepw])
             max = strtrim(string(max,format='(e8.0)'), 1)
@@ -488 +473 @@
             widget_control, dthlv2id, set_value = {combobox_select:indice}
 ; So we redefine the min of the slider 2
-            if indice EQ jpk-1 then BEGIN 
+            if indice EQ jpk-1 then BEGIN
                max = max([gdept, gdepw])
                max = strtrim(string(max,format='(e8.0)'), 1)
@@ -510 +495 @@
 ; @categories
 ; Compound widget
-; 
+;
 ; @param PARENT {in}{required}
 ; The widget ID of the parent widget.
-; 
+;
 ; @keyword UVALUE
 ; The user value to be associated with the widget.
-; 
+;
 ; @keyword UNAME
 ; The user name to be associated with the widget.
-; 
+;
 ; @keyword STRICT
 ;
@@ -527 +512 @@
 ;
 ; @keyword BOXZOOM
-; Vector indicating the geographic zone on which we want to cut the map. 
-; If BOXZOOM has : 
+; Vector indicating the geographic zone on which we want to cut the map.
+; If BOXZOOM has :
 ;   1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]]
 ;   2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]]
 ;   4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])]
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
-;   6 elements: The extraction is made on Boxzoom 
+;   6 elements: The extraction is made on Boxzoom
 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef!
 ;
 ; @keyword _EXTRA
 ; Used to pass your keywords
-; 
+;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;
 ; @todo
 ; seb: Documenter
-; 
+;
 ;-
 FUNCTION cw_domain, parent, BOXZOOM = boxzoom, STRICT = strict, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, _extra = ex
@@ -596 +576 @@
                      , FUNC_GET_VALUE = 'cw_domain_get_value' $
                      , PRO_SET_VALUE = 'cw_domain_set_value' $
-                     , UVALUE = uvalue, UNAME = uname, _extra = ex)   
+                     , UVALUE = uvalue, UNAME = uname, _extra = ex)
 ;------------------------------------------------
   baseh = widget_base(base, column = 1+keyword_set(unzoom), space = 0)