class givesDates

type t
type calendarCtl

val givesDates_t : givesDates t
val givesDates_calendarCtl : givesDates calendarCtl

type date = {Year : int, Month : int, Day : int}
val date_ord : ord date
val time : date -> time
val date : time -> date

val create : time -> transaction t
val render : t -> xbody

val createCalendarCtl : time -> transaction calendarCtl
val renderCalendarCtl : (date -> transaction unit) -> calendarCtl -> xbody
val setCalendarCtl : (date -> transaction unit) -> calendarCtl -> date -> transaction unit

val value : t ::: Type -> givesDates t -> t -> signal date

style calendar
style prev
style this
style next
style weekday
style curday
style otherday
style selday