view datebox.urs @ 18:16447dc6a68c

Introduction of multi-parameter type class for gui components
author Ron de Bruijn <rmbruijn@gmail.com>
date Thu, 22 Sep 2011 19:24:01 +0200
parents 8300d5f0dc19
children 3a303df9ae92
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 render : t -> xbody
(* Draws the datebox as a piece of xml. *)