steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/tools/listener/completion/completion.factor
View File

@ -76,7 +76,9 @@ M: word-completion row-color
} cond 2nip ; } cond 2nip ;
M: vocab-completion row-color 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 M: color-completion row-color
drop named-color ; drop named-color ;