Mercurial > gui
annotate examples/datebox.ur @ 15:8300d5f0dc19
Replace ChangePoller with SourceL, plus some other rearrangements
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 07 Aug 2011 14:38:52 -0400 |
| parents | 0827320b0f04 |
| children | 554e342665fe |
| 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 |
| adam@15 | 7 load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day))); |
| 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> |