57 lines
1.4 KiB
Factor
57 lines
1.4 KiB
Factor
|
IN: temporary
|
||
|
|
USING: gadgets kernel namespaces test ;
|
||
|
|
|
||
|
|
[ "Hello world" ]
|
||
|
|
[
|
||
|
|
<frame> "frame" set
|
||
|
|
"Hello world" <label> 1 2 "frame" get set-frame-child
|
||
|
|
1 2 "frame" get frame-child label-text
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { { 2 2 2 } { 3 3 3 } { 4 4 4 } } ] [
|
||
|
|
{
|
||
|
|
{ { 0 0 0 } { 1 1 1 } { 2 2 2 } }
|
||
|
|
{ { 0 0 0 } { 3 3 3 } { 0 0 0 } }
|
||
|
|
{ { 0 0 0 } { 0 0 0 } { 4 4 4 } }
|
||
|
|
} reduce-grid
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { 9 9 9 } ] [
|
||
|
|
{
|
||
|
|
{ { 0 0 0 } { 1 1 1 } { 2 2 2 } }
|
||
|
|
{ { 0 0 0 } { 3 3 3 } { 0 0 0 } }
|
||
|
|
{ { 0 0 0 } { 0 0 0 } { 4 4 4 } }
|
||
|
|
} frame-pref-dim
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ { 1 2 0 } { 2 2 0 } { 3 2 0 } }
|
||
|
|
{ { 1 4 0 } { 2 4 0 } { 3 4 0 } }
|
||
|
|
}
|
||
|
|
] [
|
||
|
|
{ 1 2 3 } { 2 4 } frame-layout
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
: sized-gadget ( dim -- gadget )
|
||
|
|
<gadget> [ set-rect-dim ] keep ;
|
||
|
|
|
||
|
|
[ { 90 120 0 } ]
|
||
|
|
[
|
||
|
|
<frame> "frame" set
|
||
|
|
{ 10 20 0 } sized-gadget 1 2 "frame" get set-frame-child
|
||
|
|
{ 30 40 0 } sized-gadget 2 0 "frame" get set-frame-child
|
||
|
|
{ 50 60 0 } sized-gadget 0 1 "frame" get set-frame-child
|
||
|
|
"frame" get pref-dim
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ { 140 250 0 } ]
|
||
|
|
[
|
||
|
|
<frame> "frame" set
|
||
|
|
{ 10 20 0 } sized-gadget 1 2 "frame" get set-frame-child
|
||
|
|
{ 30 40 0 } sized-gadget 2 0 "frame" get set-frame-child
|
||
|
|
{ 50 60 0 } sized-gadget 0 1 "frame" get set-frame-child
|
||
|
|
{ 100 150 0 } sized-gadget 1 1 "frame" get set-frame-child
|
||
|
|
"frame" get pref-dim
|
||
|
|
] unit-test
|