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 [ ] [ 3 3 <frame> { 1 1 } >>filled-cell layout ] unit-test
   6
   7 [ { 1000 1000 } ] [
   8     1 1 <frame>
   9     { 0 0 } >>filled-cell
  10     <gadget> dup "c" set { 0 0 } grid-add
  11     { 1000 1000 } >>dim
  12     layout
  13     "c" get dim>>
  14 ] unit-test
  15
  16 [ t ] [
  17     1 2 <frame>
  18         { 0 0 } >>filled-cell
  19         "Hello world" <label> { 0 0 } grid-add
  20         "Hello world" <label> { 0 1 } grid-add
  21         dup pref-dim "dim1" set
  22         { 1000 1000 } >>dim
  23         dup layout*
  24         dup pref-dim "dim2" set
  25         drop
  26     "dim1" get "dim2" get =
  27 ] unit-test
  28
  29 [ { 5 20 } { 20 20 } ] [
  30     2 3 <frame>
  31     { 0 1 } >>filled-cell
  32     { 5 5 } >>gap
  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
  37     { 65 70 } >>dim
  38     layout
  39     "c" get [ loc>> ] [ dim>> ] bi
  40 ] unit-test