1 USING: help.syntax help.markup kernel math classes classes.tuple
\r
6 { $class-description "Delay models have the same value as their underlying model, however the value only changes after a timer expires. If the underlying model's value changes again before the timer expires, the timer restarts. Delay models are constructed by " { $link <delay> } "." }
\r
8 "The following code displays a sliders and a label which is updated half a second after the slider stops changing:"
\r
10 "USING: models models.delay models.arrow models.range"
\r
11 "ui ui.gadgets ui.gadgets.labels ui.gadgets.sliders"
\r
12 "ui.gadgets.panes math.parser calendar ;"
\r
15 "0 10 0 100 1 <range>"
\r
16 "[ horizontal <slider> add-gadget ]"
\r
18 " 1/2 seconds <delay>"
\r
19 " [ unparse ] <arrow>"
\r
20 " <label-control> add-gadget"
\r
22 "\"Test\" open-window"
\r
27 { $values { "model" model } { "timeout" duration } { "delay" delay } }
\r
28 { $description "Creates a new instance of " { $link delay } ". The timeout must elapse from the time the underlying model last changed to when the delay model value is changed and its connections are notified." }
\r
29 { $examples "See the example in the documentation for " { $link delay } "." } ;
\r
31 ARTICLE: "models-delay" "Delay models"
\r
32 "Delay models are used to implement delayed updating of gadgets in response to user input."
\r
38 ABOUT: "models-delay"
\r