steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix models.delay example

db4
Slava Pestov 2011-08-28 17:52:13 -07:00
parent 2d74c3c9cb
commit 990c57a4a4
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/models/delay/delay-docs.factor
View File

@ -8,15 +8,18 @@ HELP: delay
"The following code displays a sliders and a label which is updated half a second after the slider stops changing:"
{ $code
"USING: models models.delay models.arrow models.range"
"ui.gadgets ui.gadgets.labels ui.gadgets.sliders ui.gadgets.panes"
"math.parser calendar ;"
"ui ui.gadgets ui.gadgets.labels ui.gadgets.sliders"
"ui.gadgets.panes math.parser calendar ;"
""
": <funny-slider> ( -- slider )"
" 0 10 0 100 <range> horizontal <slider> ;"
""
"<funny-slider> dup gadget."
"model>> 1/2 seconds <delay> [ unparse ] <arrow>"
"<label-control> gadget."
"<pile>"
"0 10 0 100 1 <range>"
"[ horizontal <slider> add-gadget ]"
"["
" 1/2 seconds <delay>"
" [ unparse ] <arrow>"
" <label-control> add-gadget"
"] bi"
"\"Test\" open-window"
}
} ;