Mercurial > gui
annotate examples/datebox.ur @ 18:16447dc6a68c
Introduction of multi-parameter type class for gui components
| author | Ron de Bruijn <rmbruijn@gmail.com> |
|---|---|
| date | Thu, 22 Sep 2011 19:24:01 +0200 |
| 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> |