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