Changeset 74 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

• trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

@@ -30 +30 @@
 ; Did we change the calendar?
   if array_equal(oldcalendar, newcalendar) NE 1 then begin
-@cm_4cal ; for key_caltype
+@cm_4cal 
+; for key_caltype
     key_caltype = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).caltype
+; fake or real calendar???
+    fakecal = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).fakecal
 ; Which dates were selected?    
     date1id = widget_info(base, find_by_uname = 'calendar1')
@@ -46 +49 @@
     basecal = widget_info(base, find_by_uname = 'basecal')
     rien = cw_calendar(basecal, newcalendar, jdate1, uname = 'calendar1' $
-                       , uvalue = {name:'calendar1'}, /frame)
+                       , FAKECAL = fakecal, uvalue = {name:'calendar1'}, /frame)
     rien = cw_calendar(basecal, newcalendar, jdate2, uname = 'calendar2' $
-                       , uvalue = {name:'calendar2'}, /frame)
+                       , FAKECAL = fakecal, uvalue = {name:'calendar2'}, /frame)
   ENDIF ELSE BEGIN 
     if keyword_set(date1) then begin