Browse files

Fix models.delay example

  • Loading branch information...
1 parent 411c1fd commit b7fc127390a5dcefc1bd66b06a81203e33dbc12d @slavapestov committed Aug 28, 2011
Showing with 11 additions and 8 deletions.
  1. +11 −8 basis/models/delay/delay-docs.factor
View
19 basis/models/delay/delay-docs.factor
@@ -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"
}
} ;

0 comments on commit b7fc127

Please sign in to comment.