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

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