Mercurial > gui

diff examples/dateboxMain.ur @ 29:93140c5cc972

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clean up dependencies and examples; add Style module
author Adam Chlipala <adam@chlipala.net>
date Sat, 12 May 2012 10:03:44 -0400
parents examples/datebox.ur@554e342665fe
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/dateboxMain.ur	Sat May 12 10:03:44 2012 -0400
@@ -0,0 +1,14 @@
+fun main () =
+    tm <- now;
+
+    dayCtl <- Datebox.create tm;
+
+    load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day)));
+
+    return
+        <xml>
+          <head><title>Datebox Example</title></head>
+          <body onload={load}>
+            {Gui.toXml dayCtl}
+          </body>
+        </xml>