Mercurial > gui

comparison examples/datebox.ur @ 12:bbdedfde154e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a calendar control.
author Karn Kallio <kkallio@eka>
date Thu, 28 Jul 2011 10:24:34 -0430
parents
children 0827320b0f04
comparison
equal deleted inserted replaced
11:ccd0a169e827 12:bbdedfde154e
1 fun main () =
2
3 tm <- now;
4
5 dayCtl <- Datebox.createCalendarCtl tm;
6
7 return
8 <xml>
9 <head><title>Datebox Example</title></head>
10 <body>
11 {Datebox.renderCalendarCtl (fn (d : Datebox.date) => alert (show d.Year)) dayCtl}
12 </body>
13 </xml>