49 lines
1.1 KiB
Factor
49 lines
1.1 KiB
Factor
IN: temporary
|
|
USING: gadgets-tracks gadgets test kernel namespaces math
|
|
sequences ;
|
|
|
|
[ { 1/3 1/2 1/6 } ] [
|
|
{ 1/3 1/2 1/6 } track-add-size 1 head* normalize-sizes
|
|
] unit-test
|
|
|
|
{
|
|
{
|
|
[ <gadget> { 100 200 } over set-rect-dim ]
|
|
f
|
|
f
|
|
1/2
|
|
}
|
|
{
|
|
[ <gadget> { 100 100 } over set-rect-dim ]
|
|
f
|
|
f
|
|
1/4
|
|
}
|
|
{
|
|
[ <gadget> { 100 100 } over set-rect-dim ]
|
|
f
|
|
f
|
|
1/4
|
|
}
|
|
} { 0 1 } make-track "track" set
|
|
|
|
"track" get dup prefer layout
|
|
|
|
[ { 100 416 } ] [ "track" get rect-dim ] unit-test
|
|
|
|
[ V{ { 100 200 } { 100 8 } { 100 100 } { 100 8 } { 100 100 } } ]
|
|
[ "track" get gadget-children [ rect-dim ] map ] unit-test
|
|
|
|
[ { 1/2 1/4 1/4 } ] [ "track" get track-sizes ] unit-test
|
|
|
|
<gadget> { 70 70 } over set-rect-dim "track" get track-add
|
|
"track" get layout
|
|
[ { 3/8 3/16 3/16 1/4 } ] [ "track" get track-sizes ] unit-test
|
|
|
|
"track" get [ gadget-children length 1- ] keep track-remove@
|
|
"track" get layout
|
|
[ { 1/2 1/4 1/4 } ] [ "track" get track-sizes ] unit-test
|
|
|
|
[ V{ { 100 200 } { 100 8 } { 100 100 } { 100 8 } { 100 100 } } ]
|
|
[ "track" get gadget-children [ rect-dim ] map ] unit-test
|