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