From 3aea2482e728c27409a073be2ac4d8701cf48ecc Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 3 Jul 2009 22:35:34 -0500 Subject: [PATCH] ui.tools.listener.completion: if listener is not accepting input, pressing TAB would throw an error (reported by Doug Coleman) --- basis/ui/tools/listener/completion/completion.factor | 1 + 1 file changed, 1 insertion(+) diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor index f215e297ff..760b959e78 100644 --- 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 ]