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

   1 IN: ui.gadgets.packs.tests
   2 USING: ui.gadgets.packs ui.gadgets.labels ui.gadgets ui.render
   3 kernel namespaces tools.test math.parser sequences math.geometry.rect
   4 accessors ;
   5
   6 [ t ] [
   7     { 0 0 } { 100 100 } <rect> clip set
   8
   9     <pile>
  10       100 [ number>string <label> add-gadget ] each
  11     dup layout
  12
  13     visible-children [ label? ] all?
  14 ] unit-test
  15
  16 [ { { 10 30 } } ] [
  17     { { 10 20 } }
  18     { { 100 30 } }
  19     <gadget> { 0 1 } >>orientation
  20     orient
  21 ] unit-test