ui.tools.listener.completion: color private vocabs red in completion-mode.
parent
2f4573b6f4
commit
80e2309e17
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue