Mercurial > gui
annotate waitbox.urs @ 7:48a4180171b0
Shifted some more generic theme navigation code to the library.
Also generalized formatting options a bit for popupNav.
| author | Karn Kallio <kkallio@eka> |
|---|---|
| date | Fri, 06 May 2011 23:00:22 -0430 |
| 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 *) |