Mercurial > gui
view examples/dateboxMain.ur @ 33:2e7f8f7d71d4
Update for Ur/Web's new tag name resolution
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 21 Nov 2013 16:12:17 -0500 |
parents | 93140c5cc972 |
children |
line wrap: on
line source
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>