Changeset 310 for trunk/SRC/ToBeReviewed/WIDGET

Timestamp:

11/15/07 18:15:30 (17 years ago)

Author:

smasson

Message:

bugfix in xxx animations

File:

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

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

@@ -30 +30 @@
 ;
 @common
+
 ; We recuperate arguments contained in the widget
   if tag_names(event, /structure_name) NE 'WIDGET_BUTTON' then return
@@ -55 +56 @@
   widget_control, widget_info(event.top, find_by_uname = 'debut') $
                   , get_value = vdate1
-  index1 = where(calendar eq date2jul(vdate1)) & index1 = index1[0]
+  index1 = (where(abs(calendar - date2jul(vdate1)) LT 1./86400.))[0]
   if index1 EQ -1 then return
 ;
   widget_control, widget_info(event.handler, find_by_uname = 'fin') $
                   , get_value = vdate2
-  index2 = where(calendar eq date2jul(vdate2)) & index2 = index2[0]
+  index2 = (where(abs(calendar - date2jul(vdate2)) LT 1./86400.))[0]
   if index2 EQ -1 OR index2 LE index1 then return
 ; We delete the widget before create the file .ps