Mercurial > gui
diff waitbox.urs @ 0:37eefd0a2ed4
Import code from elsewhere
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 14 Dec 2010 10:55:22 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/waitbox.urs Tue Dec 14 10:55:22 2010 -0500 @@ -0,0 +1,18 @@ +(** Textboxes with an event for "no change in N milliseconds" *) + +type t + +val create : int -> transaction t + +val setAction : t -> (string -> transaction {}) -> transaction {} + +val render : t -> xbody + +val clear : t -> transaction {} + +val tickle : t -> transaction {} +(* Simulate the effect of the user making a change, which restarts the timer. *) + +val trigger : t -> transaction {} +(* Like [tickle], but triggering the action immediately, without waiting for + * quiescence *)