2009-02-18 22:01:27 -05:00
|
|
|
IN: ui.gadgets.glass.tests
|
|
|
|
|
USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
|
2009-05-04 10:44:26 -04:00
|
|
|
math.rectangles namespaces accessors models sequences arrays ;
|
2009-02-18 22:01:27 -05:00
|
|
|
|
2009-05-04 10:44:26 -04:00
|
|
|
[ ] [
|
|
|
|
|
<world-attributes>
|
|
|
|
|
<gadget> 1array >>gadgets
|
|
|
|
|
<world>
|
|
|
|
|
{ 1000 1000 } >>dim
|
|
|
|
|
"w" set
|
|
|
|
|
] unit-test
|
2009-02-18 22:01:27 -05:00
|
|
|
|
|
|
|
|
[ ] [ <gadget> "g" set ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "w" get "g" get { 0 0 } { 100 100 } <rect> show-glass ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "g" get hide-glass ] unit-test
|
|
|
|
|
|
2009-02-21 00:30:46 -05:00
|
|
|
[ f ] [ "g" get parent>> parent>> ] unit-test
|
2009-02-18 22:01:27 -05:00
|
|
|
|
|
|
|
|
[ t ] [ "w" get layers>> empty? ] unit-test
|
