ui.tools.listener.completion: if listener is not accepting input, pressing TAB would throw an error (reported by Doug Coleman)

2009-07-03 22:35:34 -05:00 · 2009-07-03 22:35:34 -05:00 · 3aea2482e7
parent aaf41ce12c
commit 3aea2482e7
1 changed files with 1 additions and 0 deletions
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@ -63,6 +63,7 @@ M: definition-completion row-columns

 M: word-completion row-color
    [ vocabulary>> ] [ manifest>> ] bi* {
+        { [ dup not ] [ COLOR: black ] }
        { [ 2dup search-vocabs>> memq? ] [ COLOR: black ] }
        { [ over ".private" tail? ] [ COLOR: dark-red ] }
        [ COLOR: dark-gray ]