aboutsummaryrefslogtreecommitdiffhomepage
path: root/ide/wg_MessageView.ml
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2015-08-26 00:47:26 +0200
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2015-08-31 09:09:21 +0200
commitc53f2f75375dfffd2f258c76f5b722d37ab0daf9 (patch)
tree9897889d0f6470ccc93af255c975c04520ba89ee /ide/wg_MessageView.ml
parentf1ecbf5014dac5a1bfbd4a5bb352fe303280e44b (diff)
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.
Diffstat (limited to 'ide/wg_MessageView.ml')
-rw-r--r--ide/wg_MessageView.ml5
1 files changed, 2 insertions, 3 deletions
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