Mercurial > gui
annotate examples/datebox.ur @ 14:0827320b0f04
Write calendarCtl in terms of a source with a listener.
| author | Karn Kallio <kkallio@eka> |
|---|---|
| date | Fri, 05 Aug 2011 18:55:24 -0430 |
| parents | bbdedfde154e |
| children | 8300d5f0dc19 |
| rev | line source |
|---|---|
| kkallio@12 | 1 fun main () = |
| kkallio@12 | 2 |
| kkallio@12 | 3 tm <- now; |
| kkallio@12 | 4 |
| kkallio@14 | 5 dayCtl <- Datebox.create tm; |
| kkallio@14 | 6 |
| kkallio@14 | 7 load <- return (Datebox.addListener (fn d => alert (show d.Day)) dayCtl); |
| kkallio@12 | 8 |
| kkallio@12 | 9 return |
| kkallio@12 | 10 <xml> |
| kkallio@12 | 11 <head><title>Datebox Example</title></head> |
| kkallio@14 | 12 <body onload={load}> |
| kkallio@14 | 13 {Datebox.render dayCtl} |
| kkallio@12 | 14 </body> |
| kkallio@12 | 15 </xml> |