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