Changeset 74 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.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/COMPOUND_WIDGET/cw_calendar.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro

@@ -116 +116 @@
     month = (where(allmonths EQ wid_value.combobox_gettext))[0] + 1 
     date = date + 100L * long(month)
-  ENDIF ELSE date = date + (oldate MOD 10000L)/100L
+  ENDIF ELSE date = date + (oldate MOD 10000L)/100L*100L
 ;-------------year----------------
   wid_id = widget_info(id, find_by_uname = 'year')
@@ -237 +237 @@
   compile_opt strictarr, strictarrsubs 
 ;
-  winfo_id = widget_info(event.top, find_by_uname = 'infocal')
+  winfo_id = widget_info(event.handler, find_by_uname = 'infocal')
   widget_control, winfo_id, get_uvalue = infowid
   key_caltype = infowid.caltype
@@ -290 +290 @@
   if n_elements(jdate0) EQ 0 then jdate0 = calendar[0]
   if (where(calendar EQ jdate0))[0] EQ -1 then jdate0 = calendar[0]
-
+;
   caldat, jdate0, month0, day0, year0
 ; test the type of calendar