Changeset 49 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcommand.pro

Timestamp:

05/09/06 11:47:44 (18 years ago)

Author:

pinsard

Message:

upgrade of AUTOUR_de_XXX according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcommand.pro (copied) (copied from trunk/WIDGET/AUTOUR_de_XXX/buildreadcommand.pro) (5 diffs)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcommand.pro

@@ -31 +31 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-FUNCTION buildreadcommand, base, snameexp, procedure, type, BOITE = boite, COMPLETE = complete, NAMEFIELD = namefield
+FUNCTION buildreadcommand, base, snameexp, procedure, type, BOXZOOM = boxzoom, COMPLETE = complete, NAMEFIELD = namefield
 ;------------------------------------------------------------
 ; on recuper les ID des differents widgets 
@@ -44 +44 @@
 ;------------------------------------------------------------
    widget_control,base, get_uvalue = top_uvalue
-   numdessinin = (extractatt(top_uvalue, 'petitin'))[2]-1
-   numdessinout = (extractatt(top_uvalue, 'petitout'))[2]-1
+   numdessinin = (extractatt(top_uvalue, 'smallin'))[2]-1
+   numdessinout = (extractatt(top_uvalue, 'smallout'))[2]-1
 ;---------------
 ; determination du nom du fichier
@@ -103 +103 @@
    sdate1 = strtrim(date1, 1) & sdate2 = strtrim(date2, 1)
 ;---------------
-; determination du nom de la boite 
+; determination du nom de la boxzoom 
 ;---------------
-   if NOT keyword_set(boite) then widget_control, domainid, get_value = boite
+   if NOT keyword_set(boxzoom) then widget_control, domainid, get_value = boxzoom
 ; ecriture de celle-ci sous forme d''un string
-   box = '['+strtrim(boite[0], 1)
-   for i = 1, (n_elements(boite)-1) < (3+2*(strpos(type, 'z') EQ -1)) do $
-    box = box+', '+strtrim(boite[i], 1)
+   box = '['+strtrim(boxzoom[0], 1)
+   for i = 1, (n_elements(boxzoom)-1) < (3+2*(strpos(type, 'z') EQ -1)) do $
+    box = box+', '+strtrim(boxzoom[i], 1)
    if strpos(type, 'z') NE -1 then BEGIN
       @common
@@ -140 +140 @@
                   , 'if keyword_set(date2in) then date2 = date2in else date2 = '+sdate2 $
                   , 'litchamp('+funclec_name+'('+snomvariable+', date1, date2,'+snameexp $
-                  +',parent='+strtrim(base, 1)+',boite='+box+' $',', filename='+sfilename+' $' $
+                  +',parent='+strtrim(base, 1)+',boxzoom='+box+' $',', filename='+sfilename+' $' $
                   , ', _extra=mixstru(ex, extra)))']
       (*top_uvalue[1, findline(top_uvalue, 'champs')])[*, numdessinout] = [filename, nomvariable]
@@ -149 +149 @@
                   , 'if keyword_set(date2in) then date2 = date2in else date2 = '+sdate2 $
                   , 'litchamp('+funclec_name+'('+snomvariable+', date1, date2,'+snameexp $
-                  +',parent='+strtrim(base, 1)+',boite='+box+' $',', filename='+sfilename+' $' $
+                  +',parent='+strtrim(base, 1)+',boxzoom='+box+' $',', filename='+sfilename+' $' $
                   , ', _extra=mixstru(ex, extra)))']
    ENDELSE