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/wg_ProofView.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/wg_ProofView.ml')
-rw-r--r-- | ide/wg_ProofView.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ide/wg_ProofView.ml b/ide/wg_ProofView.ml index 69d460b01..e3a741394 100644 --- a/ide/wg_ProofView.ml +++ b/ide/wg_ProofView.ml @@ -7,6 +7,7 @@ (************************************************************************) open Util +open Preferences class type proof_view = object @@ -193,6 +194,9 @@ let proof_view () = let () = Gtk_parsing.fix_double_click view in let default_clipboard = GData.clipboard Gdk.Atom.primary in let _ = buffer#add_selection_clipboard default_clipboard in + let cb clr = view#misc#modify_base [`NORMAL, `NAME clr] in + let _ = background_color#connect#changed cb in + let _ = view#misc#connect#realize (fun () -> cb background_color#get) in object inherit GObj.widget view#as_widget val mutable goals = None |