diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-25 23:29:52 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-26 00:34:21 +0200 |
| commit | 20ae742e391a8db65e203213a124126ce8621fe1 (patch) | |
| tree | 4b0e7ff8640323fc5c83bfec8f13d4e9ac45f710 /ide/wg_Command.ml | |
| parent | bfbb9f063434623d7c3dac8aa4aaf64c4ec84373 (diff) | |
Replacing old-style preferences in CoqIDE.
There is no remaining global preference record anymore, every preference
is now defined in the new event-based style.
Diffstat (limited to 'ide/wg_Command.ml')
| -rw-r--r-- | ide/wg_Command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/wg_Command.ml b/ide/wg_Command.ml index bfd37ea0e..1f342bbc4 100644 --- a/ide/wg_Command.ml +++ b/ide/wg_Command.ml @@ -85,7 +85,7 @@ object(self) ~packing:(vbox#pack ~fill:true ~expand:true) () in let result = GText.view ~packing:r_bin#add () in views <- (frame#coerce, result, combo#entry) :: views; - result#misc#modify_font current.text_font; + result#misc#modify_font (Pango.Font.from_string text_font#get); let cb clr = result#misc#modify_base [`NORMAL, `NAME clr] in let _ = background_color#connect#changed cb in let _ = result#misc#connect#realize (fun () -> cb background_color#get) in @@ -147,7 +147,7 @@ object(self) frame#visible method refresh_font () = - let iter (_,view,_) = view#misc#modify_font current.text_font in + let iter (_,view,_) = view#misc#modify_font (Pango.Font.from_string text_font#get) in List.iter iter views method private refresh_color clr = |