Changeset 69 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

File:

• trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro (modified) (1 diff)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

@@ -1 +1 @@
 PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname
 ;
-   widget_control, base, /hourglass
-   widget_control, base, get_uvalue = top_uvalue
-   filelist = extractatt(top_uvalue, 'filelist')
-   newfile = (where(filelist EQ newfilename))[0]
-   if newfile EQ -1 then begin
-      nothing, report('invalid filename')
-      return
-   endif
-   listid = widget_info(base, find_by_uname = 'filelist')
-   widget_control, listid, set_list_select = newfile
-   oldfile = extractatt(top_uvalue, 'currentfile')
-   oldfilename = filelist[oldfile]
-; a-t-on reelement change de fichier?
-   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, /hourglass
+  widget_control, base, get_uvalue = top_uvalue
+  filelist = extractatt(top_uvalue, 'filelist')
+  IF size(newfilename, /type) EQ 7 THEN newfile = (where(filelist EQ newfilename))[0] $
+  ELSE newfile = newfilename    ; it is already the index of the new file
+  if newfile EQ -1 then begin
+    nothing, report('invalid filename')
+    return
+  endif
+  oldfile = extractatt(top_uvalue, 'currentfile')
+  oldfilename = filelist[oldfile]
+
+; did we really change the file???
+  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
+  widget_control, base, update = 0
 ;--------------
 ;
-; on update l''element currentfile de la top_uvalue
+; we update currentfile element of the top_uvalue
 ;
-   *top_uvalue[1, findline(top_uvalue, 'currentfile')] = newfile
-; on s''occupe du nom de la variable
-   oldlistvar = (*(extractatt(top_uvalue, 'fileparameters'))[oldfile]).listvar
-   newlistvar = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).listvar
+  *top_uvalue[1, findline(top_uvalue, 'currentfile')] = newfile
 ;
-   champid = widget_info(base, find_by_uname = 'champ') 
-   oldindexvar = widget_info(champid,/droplist_select)
-   oldfieldname = oldlistvar[oldindexvar]
-; a-t-on change de liste de variables ?
-   if n_elements(oldlistvar) NE n_elements(newlistvar) $
-    OR total(oldlistvar NE newlistvar) NE 0 THEN $
-    widget_control, champid, set_value = newlistvar
+; Calendar
 ;
-   if keyword_set(fieldname) then newfieldname = fieldname ELSE newfieldname = oldfieldname
-   indexvar = where(newlistvar EQ newfieldname) & indexvar = 0 > indexvar[0]
-   if oldindexvar NE indexvar then widget_control, champid, set_droplist_select = indexvar
-   newfieldname = newlistvar[indexvar]
-; on a modifiee le nom de la variable?
-   if newfieldname NE oldfieldname then BEGIN
-      changefield, base, newfieldname, BOXZOOM = boxzoom
-      widget_control, champid, set_droplist_select = indexvar
-   ENDIF
+  oldcalendar = (*(extractatt(top_uvalue, 'fileparameters'))[oldfile]).time_counter
+  newcalendar = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).time_counter
+; Did we change the calendar?
+  if array_equal(oldcalendar, newcalendar) NE 1 then begin
+@cm_4cal ; for key_caltype
+    key_caltype = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).caltype
+; Which dates were selected?    
+    date1id = widget_info(base, find_by_uname = 'calendar1')
+    if NOT keyword_set(date1) then widget_control, date1id, get_value = date1
+    jdate1 = date2jul(date1)
+    if (where(newcalendar EQ jdate1))[0] EQ -1 then jdate1 = newcalendar[0]
+    date2id = widget_info(base, find_by_uname = 'calendar2')
+    if NOT keyword_set(date2) then widget_control, date2id, get_value = date2
+    jdate2 = date2jul(date2)
+    if (where(newcalendar EQ jdate2))[0] EQ -1 then jdate2 = date1
+    if jdate2 LT jdate1 THEN jdate2 = jdate1
+    widget_control, date1id, /destroy
+    widget_control, date2id, /destroy
+    basecal = widget_info(base, find_by_uname = 'basecal')
+    rien = cw_calendar(basecal, newcalendar, jdate1, uname = 'calendar1' $
+                       , uvalue = {name:'calendar1'}, /frame)
+    rien = cw_calendar(basecal, newcalendar, jdate2, uname = 'calendar2' $
+                       , uvalue = {name:'calendar2'}, /frame)
+  ENDIF ELSE BEGIN 
+    if keyword_set(date1) then begin
+      date1id = widget_info(base, find_by_uname = 'calendar1')
+      widget_control, date1id, set_value = date1
+    endif
+    if keyword_set(date2) then begin
+      date2id = widget_info(base, find_by_uname = 'calendar2')
+      widget_control, date2id, set_value = date2
+    endif
+  ENDELSE
 ;
-; on s''occupe du calendrier
+; Grid parameters and domain
 ;
-   oldcalendar = (*(extractatt(top_uvalue, 'fileparameters'))[oldfile]).time_counter
-   newcalendar = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).time_counter
-; a-t-on change de calendrier ?
-   if n_elements(oldcalendar) NE n_elements(newcalendar) $
-    OR total(oldcalendar NE newcalendar) NE 0 then begin
-; quelles etaient les dates selectionnees ?    
-      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)))[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)))[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), uname = 'calendar1' $
-                         , uvalue = {name:'calendar1'}, /frame)
-      rien = cw_calendar(base12,newcalendar, juldate(date2), uname = 'calendar2' $
-                         , uvalue = {name:'calendar2'}, /frame)
-   ENDIF ELSE BEGIN 
-      if keyword_set(date1) then begin
-         date1id = widget_info(base, find_by_uname = 'calendar1')
-         widget_control, date1id, set_value = date1
-      endif
-      if keyword_set(date2) then begin
-         date2id = widget_info(base, find_by_uname = 'calendar2')
-         widget_control, date2id, set_value = date2
-      endif
-   ENDELSE
+  newgrid = *(extractatt(top_uvalue, 'meshparameters'))[newfile]
+  change = changegrid(newgrid)
+  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 = boxzoom
+  endif
 ;
-; parametres de la grille
+; file name
 ;
-   newgrid = *(extractatt(top_uvalue, 'meshparameters'))[newfile]
-   change = changegrid(newgrid)
-   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 = boxzoom
-   endif
+  IF oldfile NE newfile THEN BEGIN 
+    flstid = widget_info(base, find_by_uname = 'filelist')
+    widget_control, flstid, set_combobox_select =  newfile
+  ENDIF 
+;
+; Variables name
+;
+  vlstid = widget_info(base, find_by_uname = 'varlist')
+  oldfieldname = widget_info(vlstid, /combobox_gettext)
+; did we really change the liste of variables?
+  oldlistvar = (*(extractatt(top_uvalue, 'fileparameters'))[oldfile]).listvar
+  newlistvar = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).listvar
+  if array_equal(oldlistvar, newlistvar) NE 1 THEN $
+     widget_control, vlstid, set_value = newlistvar
+; set the liste of variables to the new variable name
+  if keyword_set(fieldname) then newfieldname = fieldname ELSE newfieldname = oldfieldname
+  indexvar = where(newlistvar EQ newfieldname) & indexvar = 0 > indexvar[0]
+  widget_control, vlstid, set_combobox_select = indexvar
+  newfieldname = newlistvar[indexvar]
+; did we change the name of the variable?
+  if newfieldname NE oldfieldname then BEGIN
+    changefield, base, newfieldname, BOXZOOM = boxzoom
+  ENDIF
+;
 ;--------------
-   widget_control, base, update = 1
+  widget_control, base, update = 1
 ;--------------
-   return
+  return
 end