view datebox.urs @ 30:c1f06342c81f

Add margin example
author Adam Chlipala <adam@chlipala.net>
date Sat, 12 May 2012 10:07:45 -0400
parents 5905b56e0cd9
children
line wrap: on
line source
type t

(* The type of dateboxes, which are input elements allowing the user to select a
 * date from a popup calendar. *)

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
(* Type of dates and some useful utility functions. *)

val create : time -> transaction t
(* Get a datebox initially set to the given time. *)

val onChange : t -> (date -> transaction {}) -> transaction {}
(* Add an action to be run when the date changes. *)

val set : t -> date -> transaction {}
(* Call this to change the selected date. *)

val value : t -> signal date
(* Extract the current date value. *)

val gui_t : Gui.gui t body'
(* Draws the datebox as a piece of xml. *)