Mercurial > gui

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/datebox.ur	Thu Jul 28 10:24:34 2011 -0430
@@ -0,0 +1,13 @@
+fun main () =
+
+tm <- now;
+
+dayCtl <- Datebox.createCalendarCtl tm;
+
+return
+    <xml>
+      <head><title>Datebox Example</title></head>
+      <body>
+        {Datebox.renderCalendarCtl (fn (d : Datebox.date) => alert (show d.Year)) dayCtl}
+      </body>
+    </xml>