ui.tools.listener.completion: color private vocabs red in completion-mode.

2012-09-25 14:49:49 -07:00 · 2012-09-25 14:49:49 -07:00 · 80e2309e17
parent 2f4573b6f4
commit 80e2309e17
1 changed files with 3 additions and 1 deletions
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@ -76,7 +76,9 @@ M: word-completion row-color
    } cond 2nip ;

 M: vocab-completion row-color
-    drop vocab? COLOR: black COLOR: dark-gray ? ;
+    drop dup vocab? [
+        name>> ".private" tail? COLOR: dark-red COLOR: black ?
+    ] [ drop COLOR: dark-gray ] if ;

 M: color-completion row-color
    drop named-color ;