steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/ui/gadgets/grids/grids-tests.factor

104 lines
2.2 KiB
Factor
Raw Normal View History

Initial import
2007-09-20 18:09:08 -04:00
USING: ui.gadgets ui.gadgets.grids tools.test kernel arrays
Rename math.geometry.rect to math.rectangles Remove math.geometry.points Remove rect-loc and rect-dim words
2009-02-05 04:28:41 -05:00
namespaces math.rectangles accessors ui.gadgets.grids.private
ui.gadgets: make fast-children-on more flexible and take a quotation instead of always calling loc>> on elements of the children array. This enables a bug fix for M\ grid children-on, discovered from UI mis-rendering of '\ blend-mode help'
2010-01-25 01:10:17 -05:00
ui.gadgets.debug sequences classes ;
New convention for unit tests
2008-03-01 17:00:45 -05:00
IN: ui.gadgets.grids.tests
Initial import
2007-09-20 18:09:08 -04:00
[ { 0 0 } ] [ { } <grid> pref-dim ] unit-test
Grid layout now respects baselines when fill attribute is off Paragraph gadgets now compute a baseline
2009-02-04 01:50:04 -05:00
: 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
Initial import
2007-09-20 18:09:08 -04:00
ui.gadgets: make fast-children-on more flexible and take a quotation instead of always calling loc>> on elements of the children array. This enables a bug fix for M\ grid children-on, discovered from UI mis-rendering of '\ blend-mode help'
2010-01-25 01:10:17 -05:00
: 200x200 ( -- gadget ) <gadget> { 200 200 } >>dim ;
Initial import
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
Rename 2apply to bi@
2008-03-29 21:36:58 -04:00
[ 1array ] bi@ 2array <grid> pref-dim
Initial import
2007-09-20 18:09:08 -04:00
] unit-test
[ ] [
100x100
100x100
Rename 2apply to bi@
2008-03-29 21:36:58 -04:00
[ 1array ] bi@ 2array <grid> layout
Initial import
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>
fix ui unit tests for new accessors
2008-09-02 02:52:22 -04:00
{ 10 10 } >>gap
Initial import
2007-09-20 18:09:08 -04:00
dup prefer
dup layout
Rename math.geometry.rect to math.rectangles Remove math.geometry.points Remove rect-loc and rect-dim words
2009-02-05 04:28:41 -05:00
dim>>
"a" get dim>>
"b" get dim>>
Initial import
2007-09-20 18:09:08 -04:00
] unit-test
Grid layout now respects baselines when fill attribute is off Paragraph gadgets now compute a baseline
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
New baseline alignment algorithm uses cap-height/2 as graphics baseline instead of ascent/2
2009-02-17 14:41:19 -05:00
5 10 { 10 10 } <baseline-gadget>
10 10 { 10 10 } <baseline-gadget> 2array
Grid layout now respects baselines when fill attribute is off Paragraph gadgets now compute a baseline
2009-02-04 01:50:04 -05:00
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
ui.gadgets: make fast-children-on more flexible and take a quotation instead of always calling loc>> on elements of the children array. This enables a bug fix for M\ grid children-on, discovered from UI mis-rendering of '\ blend-mode help'
2010-01-25 01:10:17 -05:00
] unit-test
! children-on logic was insufficient
[ ] [
100x100 dup "a" set 200x200 2array
100x100 dup "b" set 200x200 2array 2array <grid> f >>fill? "g" set
] unit-test
[ ] [ "g" get prefer ] unit-test
[ ] [ "g" get layout ] unit-test
[ { 0 50 } ] [ "a" get loc>> ] unit-test
[ { 0 250 } ] [ "b" get loc>> ] unit-test
[ gadget { 200 200 } ]
[ { 120 20 } "g" get pick-up [ class ] [ dim>> ] bi ] unit-test
[ gadget { 200 200 } ]
[ { 120 220 } "g" get pick-up [ class ] [ dim>> ] bi ] unit-test