diff options
| author | Hugo Herbelin | 2018-11-19 15:37:14 +0100 |
|---|---|---|
| committer | Vincent Laporte | 2019-03-19 08:40:20 +0000 |
| commit | b373967afc2ba95fdeb850c1af9c89637a2afbb4 (patch) | |
| tree | 58a891bd999cf0eb82774d989c91f017ce67d109 /ide/wg_MessageView.ml | |
| parent | a68bc1f4211f089f6030bf44d3f5df88db170c18 (diff) | |
CoqIDE: Use modify_bg rather than modify_base to change background color.
The effect of modify_base is told to be widget-dependent. It uses to
change the background with gtk2 but not with gtk3. So we use the more
explicit modify_bg.
Diffstat (limited to 'ide/wg_MessageView.ml')
| -rw-r--r-- | ide/wg_MessageView.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index b302cbc066..fd69d5e623 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -59,7 +59,7 @@ let message_view () : message_view = 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 cb clr = view#misc#modify_bg [`NORMAL, `NAME clr] in let _ = background_color#connect#changed ~callback:cb in let _ = view#misc#connect#realize ~callback:(fun () -> cb background_color#get) in let cb ft = view#misc#modify_font (Pango.Font.from_string ft) in |