2008-03-01 17:00:45 -05:00
|
|
|
IN: ui.gadgets.packs.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
USING: ui.gadgets.packs ui.gadgets.labels ui.gadgets ui.render
|
2008-07-12 00:57:27 -04:00
|
|
|
kernel namespaces tools.test math.parser sequences math.geometry.rect ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
{ 0 0 } { 100 100 } <rect> clip set
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
100 [ number>string <label> gadget, ] each
|
|
|
|
|
] make-pile
|
|
|
|
|
|
|
|
|
|
dup layout
|
|
|
|
|
|
|
|
|
|
visible-children [ label? ] all?
|
|
|
|
|
] unit-test
|
