2008-03-01 17:00:45 -05:00
|
|
|
IN: ui.gadgets.packs.tests
|
2009-02-02 01:02:55 -05:00
|
|
|
USING: ui.gadgets.packs ui.gadgets.packs.private
|
|
|
|
|
ui.gadgets.labels ui.gadgets ui.render
|
2008-11-30 18:47:29 -05:00
|
|
|
kernel namespaces tools.test math.parser sequences math.geometry.rect
|
|
|
|
|
accessors ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
{ 0 0 } { 100 100 } <rect> clip set
|
|
|
|
|
|
2008-07-14 16:11:58 -04:00
|
|
|
<pile>
|
2009-02-02 01:02:55 -05:00
|
|
|
100 [ number>string <label> add-gadget ] each
|
2007-09-20 18:09:08 -04:00
|
|
|
dup layout
|
|
|
|
|
|
|
|
|
|
visible-children [ label? ] all?
|
|
|
|
|
] unit-test
|
2008-11-30 18:47:29 -05:00
|
|
|
|
|
|
|
|
[ { { 10 30 } } ] [
|
|
|
|
|
{ { 10 20 } }
|
|
|
|
|
{ { 100 30 } }
|
2009-02-02 01:02:55 -05:00
|
|
|
<gadget> vertical >>orientation
|
2008-11-30 18:47:29 -05:00
|
|
|
orient
|
|
|
|
|
] unit-test
|
2009-02-02 01:02:55 -05:00
|
|
|
|
|
|
|
|
TUPLE: baseline-gadget < gadget baseline ;
|
|
|
|
|
|
|
|
|
|
M: baseline-gadget baseline baseline>> ;
|
|
|
|
|
|
|
|
|
|
: <baseline-gadget> ( baseline dim -- gadget )
|
|
|
|
|
baseline-gadget new-gadget
|
|
|
|
|
swap >>dim
|
|
|
|
|
swap >>baseline ;
|
|
|
|
|
|
|
|
|
|
<shelf> +baseline+ >>align
|
|
|
|
|
5 { 10 10 } <baseline-gadget> add-gadget
|
|
|
|
|
10 { 10 10 } <baseline-gadget> add-gadget
|
|
|
|
|
"g" set
|
|
|
|
|
|
|
|
|
|
[ ] [ "g" get prefer ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 20 15 } ] [ "g" get dim>> ] unit-test
|
|
|
|
|
|
|
|
|
|
[ V{ { 0 5 } { 10 0 } } ] [
|
|
|
|
|
"g" get
|
|
|
|
|
dup layout
|
|
|
|
|
children>> [ loc>> ] map
|
|
|
|
|
] unit-test
|
