adam@20: type t = {Cal : Calendar.t, adam@20: Panel : TogglePanel.togglePanel Calendar.t []} adam@2: kkallio@14: type date = Calendar.date kkallio@14: val date_eq = Calendar.date_eq kkallio@14: val date_ord = Calendar.date_ord kkallio@14: val time = Calendar.time kkallio@14: val date = Calendar.date adam@2: adam@20: val format : TogglePanel.formatCtl [] = fn [body ~ []] => adam@20: TogglePanel.defaultFormat adam@20: -- #OpenCtl -- #CloseCtl adam@20: ++ {OpenCtl = fn behaviour =>