2008-07-12 00:57:27 -04:00
|
|
|
USING: kernel ui.gadgets ui.gadgets.tracks tools.test math.geometry.rect ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: ui.gadgets.tracks.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ { 100 100 } ] [
|
|
|
|
|
[
|
|
|
|
|
<gadget> { 100 100 } over set-rect-dim 1 track,
|
|
|
|
|
] { 0 1 } make-track pref-dim
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 100 110 } ] [
|
|
|
|
|
[
|
|
|
|
|
<gadget> { 10 10 } over set-rect-dim f track,
|
|
|
|
|
<gadget> { 100 100 } over set-rect-dim 1 track,
|
|
|
|
|
] { 0 1 } make-track pref-dim
|
|
|
|
|
] unit-test
|
