ui.gadgets.packs.tests: fix test

2008-07-14 15:11:58 -05:00 · 2008-07-14 15:11:58 -05:00 · 50e1c47dec
parent 6eace82101
commit 50e1c47dec
1 changed files with 2 additions and 4 deletions
--- a/extra/ui/gadgets/packs/packs-tests.factor
+++ b/extra/ui/gadgets/packs/packs-tests.factor
@ -5,10 +5,8 @@ kernel namespaces tools.test math.parser sequences math.geometry.rect ;
 [ t ] [
    { 0 0 } { 100 100 } <rect> clip set

-    [
-        100 [ number>string <label> gadget, ] each
-    ] make-pile
-
+    <pile>
+      100 [ number>string <label> add-gadget ] each
    dup layout

    visible-children [ label? ] all?