Merge branch 'master' of git://factorcode.org/git/factor
commit
59b77e7a58
|
@ -2,7 +2,7 @@ USING: continuations documents ui.tools.interactor
|
||||||
ui.tools.listener hashtables kernel namespaces parser sequences
|
ui.tools.listener hashtables kernel namespaces parser sequences
|
||||||
tools.test ui.commands ui.gadgets ui.gadgets.editors
|
tools.test ui.commands ui.gadgets ui.gadgets.editors
|
||||||
ui.gadgets.panes vocabs words tools.test.ui slots.private
|
ui.gadgets.panes vocabs words tools.test.ui slots.private
|
||||||
threads ;
|
threads arrays generic ;
|
||||||
IN: ui.tools.listener.tests
|
IN: ui.tools.listener.tests
|
||||||
|
|
||||||
[ f ] [ "word" source-editor command-map empty? ] unit-test
|
[ f ] [ "word" source-editor command-map empty? ] unit-test
|
||||||
|
@ -13,11 +13,11 @@ IN: ui.tools.listener.tests
|
||||||
|
|
||||||
"listener" get [
|
"listener" get [
|
||||||
[ "dup" ] [
|
[ "dup" ] [
|
||||||
\ dup "listener" get word-completion-string
|
\ dup word-completion-string
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ "USE: slots.private slot" ]
|
[ "equal?" ]
|
||||||
[ \ slot "listener" get word-completion-string ] unit-test
|
[ \ array \ equal? method word-completion-string ] unit-test
|
||||||
|
|
||||||
<pane> <interactor> "i" set
|
<pane> <interactor> "i" set
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue