Mercurial > gui
comparison examples/dateboxMain.ur @ 29:93140c5cc972
Clean up dependencies and examples; add Style module
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sat, 12 May 2012 10:03:44 -0400 |
| parents | examples/datebox.ur@554e342665fe |
| children |
comparison
equal
deleted
inserted
replaced
| 28:7d0014542199 | 29:93140c5cc972 |
|---|---|
| 1 fun main () = | |
| 2 tm <- now; | |
| 3 | |
| 4 dayCtl <- Datebox.create tm; | |
| 5 | |
| 6 load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day))); | |
| 7 | |
| 8 return | |
| 9 <xml> | |
| 10 <head><title>Datebox Example</title></head> | |
| 11 <body onload={load}> | |
| 12 {Gui.toXml dayCtl} | |
| 13 </body> | |
| 14 </xml> |