2007-09-20 18:09:08 -04:00
|
|
|
USING: ui.tools ui.tools.interactor ui.tools.listener
|
|
|
|
|
ui.tools.search ui.tools.workspace kernel models namespaces
|
2008-02-21 20:14:50 -05:00
|
|
|
sequences tools.test ui.gadgets ui.gadgets.buttons
|
2007-11-13 18:51:10 -05:00
|
|
|
ui.gadgets.labelled ui.gadgets.presentations
|
2008-07-15 03:00:05 -04:00
|
|
|
ui.gadgets.scrollers vocabs tools.test.ui ui accessors ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: ui.tools.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-07-14 19:20:44 -04:00
|
|
|
[ f ]
|
2007-09-20 18:09:08 -04:00
|
|
|
[
|
2008-09-27 15:36:04 -04:00
|
|
|
<gadget> 0 <model> >>model <workspace-tabs> children>> empty?
|
2008-07-14 19:20:44 -04:00
|
|
|
] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ ] [ <workspace> "w" set ] unit-test
|
|
|
|
|
[ ] [ "w" get com-scroll-up ] unit-test
|
|
|
|
|
[ ] [ "w" get com-scroll-down ] unit-test
|
|
|
|
|
[ t ] [
|
2008-09-02 02:52:22 -04:00
|
|
|
"w" get book>> children>>
|
2008-05-14 00:36:55 -04:00
|
|
|
[ tool-scroller ] map sift [ scroller? ] all?
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
[ ] [ "w" get hide-popup ] unit-test
|
|
|
|
|
[ ] [ <gadget> "w" get show-popup ] unit-test
|
|
|
|
|
[ ] [ "w" get hide-popup ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
<gadget> "w" get show-popup
|
|
|
|
|
<gadget> "w" get show-popup
|
|
|
|
|
"w" get hide-popup
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2007-11-16 01:19:13 -05:00
|
|
|
[ ] [ <workspace> [ ] with-grafted-gadget ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-16 01:19:13 -05:00
|
|
|
"w" get [
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-16 01:19:13 -05:00
|
|
|
[ ] [ "w" get "kernel" vocab show-vocab-words ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-16 01:19:13 -05:00
|
|
|
[ ] [ notify-queued ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-09-02 02:52:22 -04:00
|
|
|
[ ] [ "w" get popup>> content>>
|
|
|
|
|
list>> gadget-child "p" set ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-16 01:19:13 -05:00
|
|
|
[ t ] [ "p" get presentation? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "p" get <operations-menu> gadget-child gadget-child "c" set ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ notify-queued ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ "c" get button? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [
|
2008-09-02 02:52:22 -04:00
|
|
|
"w" get listener>> input>>
|
2007-11-16 01:19:13 -05:00
|
|
|
3 handle-parse-error
|
|
|
|
|
] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2007-11-16 01:19:13 -05:00
|
|
|
[ ] [ notify-queued ] unit-test
|
|
|
|
|
] with-grafted-gadget
|
