diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-16 05:00:48 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-16 17:53:34 +0200 |
commit | 4c202177e7d1a26f3b8bc105a1ceb604f178b584 (patch) | |
tree | d8dc7180712a34a44cfecc218761820011d2afc4 /ide/coqOps.ml | |
parent | cda147bf2b22e5230abd6fb604e9b8c105828717 (diff) |
Using the new preference mechanism for colors in CoqIDE.
A lot of legacy code has been removed in the process in favour of
signal-based interactions.
Diffstat (limited to 'ide/coqOps.ml')
-rw-r--r-- | ide/coqOps.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 7f44ec2aa..b178ba4ae 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -160,12 +160,11 @@ object end let flags_to_color f = - let of_col c = `NAME (Tags.string_of_color c) in if List.mem `PROCESSING f then `NAME "blue" else if List.mem `ERROR f then `NAME "red" else if List.mem `UNSAFE f then `NAME "orange" else if List.mem `INCOMPLETE f then `NAME "gray" - else of_col (Tags.get_processed_color ()) + else `NAME Preferences.processed_color#get module Doc = Document |