annotate examples/datebox.ur @ 17:2947170fcfd6

Fix sign error in clock skew correction
author Adam Chlipala <adam@chlipala.net>
date Sun, 21 Aug 2011 11:27:41 -0400
parents 8300d5f0dc19
children 554e342665fe
rev   line source
kkallio@12 1 fun main () =
kkallio@12 2
kkallio@12 3 tm <- now;
kkallio@12 4
kkallio@14 5 dayCtl <- Datebox.create tm;
kkallio@14 6
adam@15 7 load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day)));
kkallio@12 8
kkallio@12 9 return
kkallio@12 10 <xml>
kkallio@12 11 <head><title>Datebox Example</title></head>
kkallio@14 12 <body onload={load}>
kkallio@14 13 {Datebox.render dayCtl}
kkallio@12 14 </body>
kkallio@12 15 </xml>