comparison 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
comparison
equal deleted inserted replaced
12:bbdedfde154e 13:c016beb0ebac
235 <xml> 235 <xml>
236 <dyn signal={render' action ctl}/> 236 <dyn signal={render' action ctl}/>
237 </xml> 237 </xml>
238 238
239 fun setCalendarCtl action ctl day = 239 fun setCalendarCtl action ctl day =
240 minf <- rpc (monthInfo (day -- #Day));
240 action day; 241 action day;
242 set ctl.Month minf;
241 set ctl.Day day 243 set ctl.Day day
242 244
243 fun value [t ::: Type] (gd : givesDates t) t = signal (gd t) 245 fun value [t ::: Type] (gd : givesDates t) t = signal (gd t)