comparison calendar.ur @ 23:7c734edc6301

Merge from Adam.
author Karn Kallio <kkallio@eka>
date Sat, 24 Sep 2011 18:55:27 -0430
parents 554e342665fe
children a037ed3854e3
comparison
equal deleted inserted replaced
22:4362b15220e4 23:7c734edc6301
205 205
206 fun onChange ctl f = 206 fun onChange ctl f =
207 SourceL.onChange ctl.Day f 207 SourceL.onChange ctl.Day f
208 208
209 val gui_t = Gui.mkGui 209 val gui_t = Gui.mkGui
210 (fn ctl => 210 (fn [body ~ []] ctl =>
211 <xml> 211 <xml>
212 <dyn signal={render' ctl}/> 212 <dyn signal={render' ctl}/>
213 </xml>) 213 </xml>)
214 214
215 fun set ctl day = 215 fun set ctl day =