2007-09-20 18:09:08 -04:00
|
|
|
USING: ui.gadgets ui.gadgets.grids tools.test kernel arrays
|
2009-02-05 04:28:41 -05:00
|
|
|
namespaces math.rectangles accessors ui.gadgets.grids.private
|
2009-02-04 01:50:04 -05:00
|
|
|
ui.gadgets.debug sequences ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: ui.gadgets.grids.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-02-04 01:50:04 -05:00
|
|
|
[ { { { 1 "a" } { 1 "b" } } { { 2 "a" } { 2 "b" } } } ]
|
|
|
|
|
[ { 1 2 } { "a" "b" } cross-zip ] unit-test
|
|
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
[ { 0 0 } ] [ { } <grid> pref-dim ] unit-test
|
|
|
|
|
|
2009-02-04 01:50:04 -05:00
|
|
|
: 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ { 100 100 } ] [
|
|
|
|
|
100x100
|
|
|
|
|
1array 1array <grid> pref-dim
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 100 100 } ] [
|
|
|
|
|
100x100
|
|
|
|
|
1array 1array <grid> pref-dim
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 200 100 } ] [
|
|
|
|
|
100x100
|
|
|
|
|
100x100
|
|
|
|
|
2array 1array <grid> pref-dim
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 100 200 } ] [
|
|
|
|
|
100x100
|
|
|
|
|
100x100
|
2008-03-29 21:36:58 -04:00
|
|
|
[ 1array ] bi@ 2array <grid> pref-dim
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
100x100
|
|
|
|
|
100x100
|
2008-03-29 21:36:58 -04:00
|
|
|
[ 1array ] bi@ 2array <grid> layout
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 230 120 } { 100 100 } { 100 100 } ] [
|
|
|
|
|
100x100 dup "a" set
|
|
|
|
|
100x100 dup "b" set
|
|
|
|
|
2array 1array <grid>
|
2008-09-02 02:52:22 -04:00
|
|
|
{ 10 10 } >>gap
|
2007-09-20 18:09:08 -04:00
|
|
|
dup prefer
|
|
|
|
|
dup layout
|
2009-02-05 04:28:41 -05:00
|
|
|
dim>>
|
|
|
|
|
"a" get dim>>
|
|
|
|
|
"b" get dim>>
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
2009-02-04 01:50:04 -05:00
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
100x100 dup "a" set
|
|
|
|
|
100x100 dup "b" set
|
|
|
|
|
100x100 dup "c" set
|
|
|
|
|
[ 1array ] tri@ 3array
|
|
|
|
|
<grid>
|
|
|
|
|
{ 10 10 } >>gap "g" set
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "g" get prefer ] unit-test
|
|
|
|
|
[ ] [ "g" get layout ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 10 10 } ] [ "a" get loc>> ] unit-test
|
|
|
|
|
[ { 100 100 } ] [ "a" get dim>> ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 10 120 } ] [ "b" get loc>> ] unit-test
|
|
|
|
|
[ { 100 100 } ] [ "b" get dim>> ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 10 230 } ] [ "c" get loc>> ] unit-test
|
|
|
|
|
[ { 100 100 } ] [ "c" get dim>> ] unit-test
|
|
|
|
|
|
|
|
|
|
5 { 10 10 } <baseline-gadget>
|
|
|
|
|
10 { 10 10 } <baseline-gadget> 2array
|
|
|
|
|
1array <grid> f >>fill?
|
|
|
|
|
"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
|
