view examples/datebox.ur @ 24:d314d2ec3300

Be able to obtain the name from a navItem
author Ron de Bruijn <rmbruijn@gmail.com>
date Sun, 04 Dec 2011 16:45:31 +0100
parents 554e342665fe
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>