2008-11-19 20:08:12 -05:00
|
|
|
USING: accessors tools.test ui.gadgets ui.gadgets.labels ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { 119 14 } } [
|
2008-11-19 20:08:12 -05:00
|
|
|
<gadget> { 100 14 } >>dim
|
|
|
|
|
<gadget> { 14 14 } >>dim
|
|
|
|
|
label-on-right { 5 5 } >>gap
|
|
|
|
|
pref-dim
|
|
|
|
|
] unit-test
|
