From 990c57a4a4134947a7dbfcc043c4f1becd1ebacd Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 28 Aug 2011 17:52:13 -0700
Subject: [PATCH] Fix models.delay example

---
 basis/models/delay/delay-docs.factor | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/basis/models/delay/delay-docs.factor b/basis/models/delay/delay-docs.factor
index 742b6bf7e8..d8be7560ab 100644
--- 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:"
     { $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"
     }
 } ;