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 arrays ;
7 <gadget> 1array >>gadgets
13 { } [ <gadget> "g" set ] unit-test
15 { } [ "w" get "g" get { 0 0 } { 100 100 } <rect> show-glass ] unit-test
17 { } [ "g" get hide-glass ] unit-test
19 { f } [ "g" get parent>> parent>> ] unit-test
21 { t } [ "w" get layers>> empty? ] unit-test