1 USING: ui.gadgets ui.gadgets.grids tools.test kernel arrays
2 namespaces math.rectangles accessors ui.gadgets.grids.private
3 ui.gadgets.debug sequences classes ;
4 IN: ui.gadgets.grids.tests
6 [ { 0 0 } ] [ { } <grid> pref-dim ] unit-test
8 : 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
10 : 200x200 ( -- gadget ) <gadget> { 200 200 } >>dim ;
14 1array 1array <grid> pref-dim
19 1array 1array <grid> pref-dim
25 2array 1array <grid> pref-dim
31 [ 1array ] bi@ 2array <grid> pref-dim
37 [ 1array ] bi@ 2array <grid> layout
40 [ { 230 120 } { 100 100 } { 100 100 } ] [
56 [ 1array ] tri@ 3array
58 { 10 10 } >>gap "g" set
61 [ ] [ "g" get prefer ] unit-test
62 [ ] [ "g" get layout ] unit-test
64 [ { 10 10 } ] [ "a" get loc>> ] unit-test
65 [ { 100 100 } ] [ "a" get dim>> ] unit-test
67 [ { 10 120 } ] [ "b" get loc>> ] unit-test
68 [ { 100 100 } ] [ "b" get dim>> ] unit-test
70 [ { 10 230 } ] [ "c" get loc>> ] unit-test
71 [ { 100 100 } ] [ "c" get dim>> ] unit-test
73 5 10 { 10 10 } <baseline-gadget>
74 10 10 { 10 10 } <baseline-gadget> 2array
75 1array <grid> f >>fill?
78 [ ] [ "g" get prefer ] unit-test
80 [ { 20 15 } ] [ "g" get dim>> ] unit-test
82 [ V{ { 0 5 } { 10 0 } } ] [
85 children>> [ loc>> ] map
88 ! children-on logic was insufficient
90 100x100 dup "a" set 200x200 2array
91 100x100 dup "b" set 200x200 2array 2array <grid> f >>fill? "g" set
94 [ ] [ "g" get prefer ] unit-test
95 [ ] [ "g" get layout ] unit-test
97 [ { 0 50 } ] [ "a" get loc>> ] unit-test
98 [ { 0 250 } ] [ "b" get loc>> ] unit-test
100 [ gadget { 200 200 } ]
101 [ { 120 20 } "g" get pick-up [ class-of ] [ dim>> ] bi ] unit-test
103 [ gadget { 200 200 } ]
104 [ { 120 220 } "g" get pick-up [ class-of ] [ dim>> ] bi ] unit-test