Mercurial > gui
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) |