steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.gadgets.packs.tests: fix test

db4
Eduardo Cavazos 2008-07-14 15:11:58 -05:00
parent 6eace82101
commit 50e1c47dec
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ui/gadgets/packs/packs-tests.factor
View File

@ -5,10 +5,8 @@ kernel namespaces tools.test math.parser sequences math.geometry.rect ;
[ t ] [ [ t ] [
{ 0 0 } { 100 100 } <rect> clip set { 0 0 } { 100 100 } <rect> clip set
[ <pile>
100 [ number>string <label> gadget, ] each 100 [ number>string <label> add-gadget ] each
] make-pile
dup layout dup layout
visible-children [ label? ] all? visible-children [ label? ] all?