view calendar.urs @ 33:2e7f8f7d71d4

Update for Ur/Web's new tag name resolution
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Nov 2013 16:12:17 -0500
parents 5905b56e0cd9
children
line wrap: on
line source
type date = {Year : int, Month : int, Day : int}
val date_eq : eq date
val date_ord : ord date
val time : date -> time
val date : time -> date
(* A type to represent calendar dates and some operations on them. *)

type t
(* Interactive calendar control widgets. The date can be set and read.
 * They support adding a change listener which will be called on 
 * the new date.  They are displayed as pictures of calendars which
 * have clickable dates. *)

val onChange : t -> (date -> transaction {}) -> transaction unit
(* Add a change listener to a calendar control. *)

val set : t -> date -> transaction unit
(* Set the date of the calendar. *)

val value : t -> signal date
(* Read the date of the calendar. *)

val gui_t : Gui.gui t body'
(* Witness that this is a gui widget. *)

val create : time -> transaction t
(* Get a basic interactive calendar control widget. *)

style calendar
style prev
style this
style next
style weekday
style curday
style otherday
style selday
(* Styles for the calendar panel. *)