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 *)