basis/ui/gadgets/frames/frames-tests.factor

   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
   4
   5 [ ] [ <frame> layout ] unit-test
   6
   7 [ t ] [
   8     <frame>
   9         "Hello world" <label> @top grid-add
  10         "Hello world" <label> @center grid-add
  11         dup pref-dim "dim1" set
  12         { 1000 1000 } >>dim
  13         dup layout*
  14         dup pref-dim "dim2" set
  15         drop
  16     "dim1" get "dim2" get =
  17 ] unit-test