1 USING: accessors kernel namespaces tools.test ui.gadgets
2 ui.gadgets.frames ui.gadgets.grids ui.gadgets.labels ;
3 IN: ui.gadgets.frames.tests
5 { } [ 3 3 <frame> { 1 1 } >>filled-cell layout ] unit-test
10 <gadget> dup "c" set { 0 0 } grid-add
19 "Hello world" <label> { 0 0 } grid-add
20 "Hello world" <label> { 0 1 } grid-add
21 dup pref-dim "dim1" set
24 dup pref-dim "dim2" set
26 "dim1" get "dim2" get =
29 { { 5 20 } { 20 20 } } [
33 <gadget> { 10 10 } >>dim { 0 0 } grid-add
34 <gadget> { 10 10 } >>dim dup "c" set { 0 1 } grid-add
35 <gadget> { 10 20 } >>dim { 0 2 } grid-add
36 <gadget> { 30 10 } >>dim { 1 1 } grid-add
39 "c" get [ loc>> ] [ dim>> ] bi