kkallio@12: fun main () = adam@20: tm <- now; kkallio@12: adam@20: dayCtl <- Datebox.create tm; kkallio@12: adam@20: load <- return (Datebox.onChange dayCtl (fn d => alert (show d.Day))); kkallio@14: adam@20: return adam@20: adam@20: Datebox Example adam@20: adam@20: {Gui.toXml dayCtl} adam@20: adam@20: