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

139 lines
3.1 KiB
Factor
Raw Normal View History

Split off baseline alignment code into ui.baseline-alignment, and add cap-height generic word
2009-02-17 07:10:02 -05:00
USING: ui.gadgets.packs ui.gadgets.packs.private
ui.gadgets.labels ui.gadgets ui.gadgets.debug ui.render
ui.baseline-alignment kernel namespaces tools.test math.parser
Removing integers-as-sequences
2010-01-14 10:10:13 -05:00
sequences math.rectangles accessors math ;
New convention for unit tests
2008-03-01 17:00:45 -05:00
IN: ui.gadgets.packs.tests
Initial import
2007-09-20 18:09:08 -04:00
[ t ] [
{ 0 0 } { 100 100 } <rect> clip set
ui.gadgets.packs.tests: fix test
2008-07-14 16:11:58 -04:00
<pile>
Removing integers-as-sequences
2010-01-14 10:10:13 -05:00
100 [ number>string <label> add-gadget ] each-integer
Initial import
2007-09-20 18:09:08 -04:00
dup layout
visible-children [ label? ] all?
] unit-test
Code cleanup: refactoring usages of rot and -rot to use newer idioms instead
2008-11-30 18:47:29 -05:00
[ { { 10 30 } } ] [
{ { 10 20 } }
{ { 100 30 } }
Add horizontal and vertical orientation constants, working on baseline alignment
2009-02-02 01:02:55 -05:00
<gadget> vertical >>orientation
Code cleanup: refactoring usages of rot and -rot to use newer idioms instead
2008-11-30 18:47:29 -05:00
orient
] unit-test
Add horizontal and vertical orientation constants, working on baseline alignment
2009-02-02 01:02:55 -05:00
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
! Test baseline alignment
Add horizontal and vertical orientation constants, working on baseline alignment
2009-02-02 01:02:55 -05:00
<shelf> +baseline+ >>align
New baseline alignment algorithm uses cap-height/2 as graphics baseline instead of ascent/2
2009-02-17 14:41:19 -05:00
5 5 { 10 10 } <baseline-gadget> add-gadget
10 10 { 10 10 } <baseline-gadget> add-gadget
Add horizontal and vertical orientation constants, working on baseline alignment
2009-02-02 01:02:55 -05:00
"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
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
] unit-test
! Test mixed baseline and ordinary alignment
<shelf> +baseline+ >>align
<gadget> { 20 20 } >>dim add-gadget
New baseline alignment algorithm uses cap-height/2 as graphics baseline instead of ascent/2
2009-02-17 14:41:19 -05:00
10 10 { 10 10 } <baseline-gadget> add-gadget
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
"g" set
[ { 30 20 } ] [ "g" get pref-dim ] unit-test
[ ] [ "g" get layout ] unit-test
[ V{ { 0 0 } { 20 5 } } ] [
"g" get children>> [ loc>> ] map
] unit-test
<shelf> +baseline+ >>align
<gadget> { 15 15 } >>dim add-gadget
New baseline alignment algorithm uses cap-height/2 as graphics baseline instead of ascent/2
2009-02-17 14:41:19 -05:00
5 5 { 10 10 } <baseline-gadget> add-gadget
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
"g" set
[ { 25 15 } ] [ "g" get pref-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
[ ] [ "g" get prefer ] unit-test
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
[ ] [ "g" get layout ] unit-test
[ V{ { 0 0 } { 15 5 } } ] [
"g" get children>> [ loc>> ] map
] unit-test
<shelf> +baseline+ >>align
<gadget> { 20 20 } >>dim add-gadget
New baseline alignment algorithm uses cap-height/2 as graphics baseline instead of ascent/2
2009-02-17 14:41:19 -05:00
30 30 { 10 50 } <baseline-gadget> add-gadget
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
"g" set
[ { 30 50 } ] [ "g" get pref-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
[ ] [ "g" get prefer ] unit-test
Add support for Joe's "graphics baseline" idea
2009-02-12 17:52:24 -05:00
[ ] [ "g" get layout ] unit-test
[ V{ { 0 5 } { 20 0 } } ] [
"g" get children>> [ loc>> ] map
New baseline alignment algorithm uses cap-height/2 as graphics baseline instead of ascent/2
2009-02-17 14:41:19 -05:00
] unit-test
<shelf> +baseline+ >>align
<gadget> { 30 30 } >>dim add-gadget
30 4 { 30 30 } <baseline-gadget> add-gadget
"g" set
[ { 60 43 } ] [ "g" get pref-dim ] unit-test
[ ] [ "g" get prefer ] unit-test
Fix baseline alignment to work like align=1/2 if there is no text in the layout, also fix nested baseline alignment in the no-text case
2009-04-10 15:11:05 -04:00
[ ] [ "g" get layout ] unit-test
! Baseline alignment without any text gadgets should behave like align=1/2
<shelf> +baseline+ >>align
<gadget> { 30 30 } >>dim add-gadget
<gadget> { 30 20 } >>dim add-gadget
"g" set
[ { 60 30 } ] [ "g" get pref-dim ] unit-test
[ ] [ "g" get prefer ] unit-test
[ ] [ "g" get layout ] unit-test
[ V{ { 0 0 } { 30 5 } } ]
[ "g" get children>> [ loc>> ] map ] unit-test
<shelf> +baseline+ >>align
<gadget> { 30 30 } >>dim add-gadget
10 10 { 10 10 } <baseline-gadget> add-gadget
"g" set
[ ] [ "g" get prefer ] unit-test
[ ] [ "g" get layout ] unit-test
[ V{ { 0 0 } { 30 10 } } ]
[ "g" get children>> [ loc>> ] map ] unit-test
<shelf> +baseline+ >>align
<shelf> <gadget> { 30 30 } >>dim add-gadget add-gadget
10 10 { 10 10 } <baseline-gadget> add-gadget
"g" set
[ ] [ "g" get prefer ] unit-test
[ ] [ "g" get layout ] unit-test
[ V{ { 0 0 } { 30 10 } } ]
ui.gadgets.packs: add failing unit test
2009-04-13 15:41:08 -04:00
[ "g" get children>> [ loc>> ] map ] unit-test
<shelf> +baseline+ >>align
<gadget> { 24 24 } >>dim add-gadget
12 9 { 15 15 } <baseline-gadget> add-gadget
"g" set
[ { 39 24 } ] [ "g" get pref-dim ] unit-test