18 lines
451 B
Factor
18 lines
451 B
Factor
USING: accessors kernel namespaces tools.test ui.gadgets
|
|
ui.gadgets.frames ui.gadgets.grids ui.gadgets.labels ;
|
|
IN: ui.gadgets.frames.tests
|
|
|
|
[ ] [ <frame> layout ] unit-test
|
|
|
|
[ t ] [
|
|
<frame>
|
|
"Hello world" <label> @top grid-add
|
|
"Hello world" <label> @center grid-add
|
|
dup pref-dim "dim1" set
|
|
{ 1000 1000 } >>dim
|
|
dup layout*
|
|
dup pref-dim "dim2" set
|
|
drop
|
|
"dim1" get "dim2" get =
|
|
] unit-test
|