2007-09-20 18:09:08 -04:00
|
|
|
USING: ui.gadgets ui.gadgets.labels ui.gadgets.labelled
|
|
|
|
|
ui.gadgets.packs ui.gadgets.frames ui.gadgets.grids namespaces
|
|
|
|
|
kernel tools.test ui.gadgets.buttons sequences ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: ui.gadgets.labelled.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
TUPLE: testing ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
T{ testing } [ "Hey" <label> ] "Testing"
|
|
|
|
|
build-closable-gadget "g" set
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ "g" get testing? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ "g" get delegate closable-gadget? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ "g" get closable-gadget-content label? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
<pile> "p" set
|
|
|
|
|
"g" get "p" get add-gadget
|
|
|
|
|
"g" get @top grid-child @left grid-child
|
|
|
|
|
dup button-quot call
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "g" get "p" get gadget-children memq? ] unit-test
|
