diff datebox.ur @ 13:c016beb0ebac

Repair calendarCtl : adjust monthinfo when set.
author Karn Kallio <kkallio@eka>
date Thu, 28 Jul 2011 11:51:10 -0430
parents bbdedfde154e
children 0827320b0f04
line wrap: on
line diff
--- a/datebox.ur	Thu Jul 28 10:24:34 2011 -0430
+++ b/datebox.ur	Thu Jul 28 11:51:10 2011 -0430
@@ -237,7 +237,9 @@
     </xml>
 
 fun setCalendarCtl action ctl day =
+    minf <- rpc (monthInfo (day -- #Day));
     action day;
+    set ctl.Month minf;
     set ctl.Day day
 
 fun value [t ::: Type] (gd : givesDates t) t = signal (gd t)