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

   1 IN: ui.gadgets.glass.tests
   2 USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
   3 math.rectangles namespaces accessors models sequences ;
   4
   5 <gadget> "" f <model> <world>
   6 { 1000 1000 } >>dim
   7 "w" set
   8
   9 [ ] [ <gadget> "g" set ] unit-test
  10
  11 [ ] [ "w" get "g" get { 0 0 } { 100 100 } <rect> show-glass ] unit-test
  12
  13 [ ] [ "g" get hide-glass ] unit-test
  14
  15 [ f ] [ "g" get parent>> parent>> ] unit-test
  16
  17 [ t ] [ "w" get layers>> empty? ] unit-test