Datebox Example

kkallio@12: fun main () = kkallio@12: kkallio@12: tm <- now; kkallio@12: kkallio@12: dayCtl <- Datebox.createCalendarCtl tm; kkallio@12: kkallio@12: return kkallio@12: kkallio@12: Datebox Example kkallio@12: kkallio@12: {Datebox.renderCalendarCtl (fn (d : Datebox.date) => alert (show d.Year)) dayCtl} kkallio@12: kkallio@12: