Changeset 49 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.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/changefile.pro (copied) (copied from trunk/WIDGET/AUTOUR_de_XXX/changefile.pro) (5 diffs)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

@@ -1 @@
-PRO changefile, base, newfilename, BOITE = boite, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname
-
+PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname
+;
    widget_control, base, /hourglass
    widget_control, base, get_uvalue = top_uvalue
@@ -14 +14 @@
    oldfilename = filelist[oldfile]
 ; a-t-on reelement change de fichier?
-   if oldfile EQ newfile AND NOT (keyword_set(BOITE) OR keyword_set(DATE1) OR keyword_set(DATE2) OR keyword_set(FIELDNAME)) then return
+   if oldfile EQ newfile AND NOT (keyword_set(BOXZOOM) OR keyword_set(DATE1) OR keyword_set(DATE2) OR keyword_set(FIELDNAME)) then return
 ;--------------
    widget_control, base, update = 0
@@ -40 +40 @@
 ; on a modifiee le nom de la variable?
    if newfieldname NE oldfieldname then BEGIN
-      changefield, base, newfieldname, BOITE = boite
+      changefield, base, newfieldname, BOXZOOM = boxzoom
       widget_control, champid, set_droplist_select = indexvar
    ENDIF
@@ -54 +54 @@
       date1id = widget_info(base, find_by_uname = 'calendar1')
       if NOT keyword_set(date1) then widget_control, date1id, get_value = date1
-      if (where(newcalendar EQ juldate(date1,/vraidate)))[0] EQ -1 then date1 = newcalendar[0]
+      if (where(newcalendar EQ juldate(date1)))[0] EQ -1 then date1 = newcalendar[0]
       date2id = widget_info(base, find_by_uname = 'calendar2')
       if NOT keyword_set(date2) then widget_control, date2id, get_value = date2
-      if (where(newcalendar EQ juldate(date2,/vraidate)))[0] EQ -1 then date2 = date1
+      if (where(newcalendar EQ juldate(date2)))[0] EQ -1 then date2 = date1
       if date2 LT date1 THEN date2 = date1
       widget_control, date1id, /destroy
       widget_control, date2id, /destroy
       base12 = widget_info(base, find_by_uname = 'base12')
-      rien = cw_calendar(base12,newcalendar, juldate(date1,/vraidate), uname = 'calendar1' $
+      rien = cw_calendar(base12,newcalendar, juldate(date1), uname = 'calendar1' $
                          , uvalue = {name:'calendar1'}, /frame)
-      rien = cw_calendar(base12,newcalendar, juldate(date2,/vraidate), uname = 'calendar2' $
+      rien = cw_calendar(base12,newcalendar, juldate(date2), uname = 'calendar2' $
                          , uvalue = {name:'calendar2'}, /frame)
    ENDIF ELSE BEGIN 
@@ -81 +81 @@
    newgrid = *(extractatt(top_uvalue, 'meshparameters'))[newfile]
    change = changegrid(newgrid)
-   if change OR keyword_set(boite) then BEGIN
-      if NOT keyword_set(boite) then boite = -1
+   if change OR keyword_set(boxzoom) then BEGIN
+      if NOT keyword_set(boxzoom) then boxzoom = -1
       domainid = widget_info(base, find_by_uname = 'domain')
-      widget_control, domainid, set_value = boite
+      widget_control, domainid, set_value = boxzoom
    endif
 ;--------------