annotate waitbox.urs @ 30:c1f06342c81f

Add margin example
author Adam Chlipala <adam@chlipala.net>
date Sat, 12 May 2012 10:07:45 -0400
parents 37eefd0a2ed4
children
rev   line source
adam@0 1 (** Textboxes with an event for "no change in N milliseconds" *)
adam@0 2
adam@0 3 type t
adam@0 4
adam@0 5 val create : int -> transaction t
adam@0 6
adam@0 7 val setAction : t -> (string -> transaction {}) -> transaction {}
adam@0 8
adam@0 9 val render : t -> xbody
adam@0 10
adam@0 11 val clear : t -> transaction {}
adam@0 12
adam@0 13 val tickle : t -> transaction {}
adam@0 14 (* Simulate the effect of the user making a change, which restarts the timer. *)
adam@0 15
adam@0 16 val trigger : t -> transaction {}
adam@0 17 (* Like [tickle], but triggering the action immediately, without waiting for
adam@0 18 * quiescence *)