Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix models.delay example

  • Loading branch information...
commit b7fc127390a5dcefc1bd66b06a81203e33dbc12d 1 parent 411c1fd
Slava Pestov authored
Showing with 11 additions and 8 deletions.
  1. +11 −8 basis/models/delay/delay-docs.factor
19 basis/models/delay/delay-docs.factor
View
@@ -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"
}
} ;
Please sign in to comment.
Something went wrong with that request. Please try again.