Mercurial > gui
annotate examples/datebox.ur @ 12:bbdedfde154e
Add a calendar control.
| author | Karn Kallio <kkallio@eka> |
|---|---|
| date | Thu, 28 Jul 2011 10:24:34 -0430 |
| parents | |
| children | 0827320b0f04 |
| rev | line source |
|---|---|
| kkallio@12 | 1 fun main () = |
| kkallio@12 | 2 |
| kkallio@12 | 3 tm <- now; |
| kkallio@12 | 4 |
| kkallio@12 | 5 dayCtl <- Datebox.createCalendarCtl tm; |
| kkallio@12 | 6 |
| kkallio@12 | 7 return |
| kkallio@12 | 8 <xml> |
| kkallio@12 | 9 <head><title>Datebox Example</title></head> |
| kkallio@12 | 10 <body> |
| kkallio@12 | 11 {Datebox.renderCalendarCtl (fn (d : Datebox.date) => alert (show d.Year)) dayCtl} |
| kkallio@12 | 12 </body> |
| kkallio@12 | 13 </xml> |