Mercurial > gui

view examples/dateboxMain.ur @ 32:d32fb0f7b137

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update for Ur/Web's new type class handling
author Adam Chlipala <adam@chlipala.net>
date Sun, 29 Jul 2012 12:28:46 -0400
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>