Mercurial > gui

comparison examples/datebox.ur @ 20:554e342665fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a new parameter to Gui.gui
author Adam Chlipala <adam@chlipala.net>
date Sat, 24 Sep 2011 15:47:00 -0400
parents 8300d5f0dc19
children
comparison
equal deleted inserted replaced
19:3a303df9ae92 20:554e342665fe
1 fun main () = 1 fun main () =
2 tm <- now;
2 3
3 tm <- now; 4 dayCtl <- Datebox.create tm;
4 5
5 dayCtl <- Datebox.create tm; 6 load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day)));
6 7
7 load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day))); 8 return
8 9 <xml>
9 return 10 <head><title>Datebox Example</title></head>
10 <xml> 11 <body onload={load}>
11 <head><title>Datebox Example</title></head> 12 {Gui.toXml dayCtl}
12 <body onload={load}> 13 </body>
13 {Datebox.render dayCtl} 14 </xml>
14 </body>
15 </xml>