Fix models.delay example

diff --git a/basis/models/delay/delay-docs.factor b/basis/models/delay/delay-docs.factor
index 742b6bf7e81d72a42d4664605d5f6a31f0888f6c..d8be7560aba850e9c96e04afa4bd4fed3833f506 100644 (file)
--- a/basis/models/delay/delay-docs.factor
+++ b/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:"\r
     { $code\r
         "USING: models models.delay models.arrow models.range"\r
-        "ui.gadgets ui.gadgets.labels ui.gadgets.sliders ui.gadgets.panes"\r
-        "math.parser calendar ;"\r
+        "ui ui.gadgets ui.gadgets.labels ui.gadgets.sliders"\r
+        "ui.gadgets.panes math.parser calendar ;"\r
         ""\r
-        ": <funny-slider> ( -- slider )"\r
-        "    0 10 0 100 <range> horizontal <slider> ;"\r
-        ""\r
-        "<funny-slider> dup gadget."\r
-        "model>> 1/2 seconds <delay> [ unparse ] <arrow>"\r
-        "<label-control> gadget."\r
+        "<pile>"\r
+        "0 10 0 100 1 <range>"\r
+        "[ horizontal <slider> add-gadget ]"\r
+        "["\r
+        "    1/2 seconds <delay>"\r
+        "    [ unparse ] <arrow>"\r
+        "    <label-control> add-gadget"\r
+        "] bi"\r
+        "\"Test\" open-window"\r
     }\r
 } ;\r
 \r