From 4c202177e7d1a26f3b8bc105a1ceb604f178b584 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sun, 16 Aug 2015 05:00:48 +0200 Subject: 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. --- ide/wg_MessageView.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'ide/wg_MessageView.ml') diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index 3fff01945..7b7f0fab1 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -6,6 +6,8 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) +open Preferences + class type message_view_signals = object inherit GObj.misc_signals @@ -33,7 +35,6 @@ class type message_view = method buffer : GText.buffer (** for more advanced text edition *) method modify_font : Pango.font_description -> unit - method refresh_color : unit -> unit end let message_view () : message_view = @@ -53,6 +54,10 @@ let message_view () : message_view = let default_clipboard = GData.clipboard Gdk.Atom.primary in let _ = buffer#add_selection_clipboard default_clipboard in let () = view#set_left_margin 2 in + view#misc#show (); + 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 (self) inherit GObj.widget box#as_widget @@ -84,9 +89,4 @@ let message_view () : message_view = method modify_font fd = view#misc#modify_font fd - method refresh_color () = - let open Preferences in - let clr = Tags.color_of_string background_color#get in - view#misc#modify_base [`NORMAL, `COLOR clr] - end -- cgit v1.2.3