From c53f2f75375dfffd2f258c76f5b722d37ab0daf9 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Wed, 26 Aug 2015 00:47:26 +0200 Subject: Switching to an event-based mechanism for CoqIDE preferences. There is no remaining hook in the preferences. In particular, the refresh_editor_hook is gone. --- ide/wg_MessageView.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'ide/wg_MessageView.ml') diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index 7b7f0fab1..30bb48e3f 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -34,7 +34,6 @@ class type message_view = (** same as [add], but with an explicit level instead of [Notice] *) method buffer : GText.buffer (** for more advanced text edition *) - method modify_font : Pango.font_description -> unit end let message_view () : message_view = @@ -58,6 +57,8 @@ let message_view () : message_view = 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 + let cb ft = view#misc#modify_font (Pango.Font.from_string ft) in + stick text_font view cb; object (self) inherit GObj.widget box#as_widget @@ -87,6 +88,4 @@ let message_view () : message_view = method buffer = text_buffer - method modify_font fd = view#misc#modify_font fd - end -- cgit v1.2.3