Mercurial > gui
annotate examples/datebox.ur @ 16:2e397d373289
Add RemotePager.
| author | Karn Kallio <kkallio@eka> |
|---|---|
| date | Thu, 18 Aug 2011 12:53:17 -0430 |
| parents | 8300d5f0dc19 |
| 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> |