Mercurial > gui

comparison examples/datebox.ur @ 23:7c734edc6301

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from Adam.
author Karn Kallio <kkallio@eka>
date Sat, 24 Sep 2011 18:55:27 -0430
parents 554e342665fe
children
comparison
equal deleted inserted replaced
22:4362b15220e4 23:7c734edc6301
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>