Mercurial > gui
view examples/datebox.ur @ 19:3a303df9ae92
Partial generalize togglePanel solution (breaks build)
author | Ron de Bruijn <rmbruijn@gmail.com> |
---|---|
date | Fri, 23 Sep 2011 13:30:01 +0200 |
parents | 8300d5f0dc19 |
children | 554e342665fe |
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}> {Datebox.render dayCtl} </body> </xml>