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

db4
John Benediktsson 2012-09-25 14:49:49 -07:00
parent 2f4573b6f4
commit 80e2309e17
1 changed files with 3 additions and 1 deletions

View File

@ -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 ;