diff options
| author | Enrico Tassi | 2019-04-09 11:31:45 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-04-09 11:31:45 +0200 |
| commit | e3e3e6949f1c80abec9942ee0d258b58e5a7d382 (patch) | |
| tree | df3a99ba22ef7c934a5e8cb2e7d9360a8c79fcc2 /ide/wg_Command.ml | |
| parent | 0ec0512b63574c9e2190780217f7c006603ea8af (diff) | |
| parent | df91339e6b1da481b5cbb4db48a205a7a1bc906b (diff) | |
Merge PR #9928: Fix #9812: CoqIDE on gtk3 has wrong defaults for selection BG.
Reviewed-by: gares
Diffstat (limited to 'ide/wg_Command.ml')
| -rw-r--r-- | ide/wg_Command.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ide/wg_Command.ml b/ide/wg_Command.ml index be400a5f2d..2cadd7ffbf 100644 --- a/ide/wg_Command.ml +++ b/ide/wg_Command.ml @@ -100,9 +100,10 @@ object(self) router#register_route route_id result; r_bin#add_with_viewport (result :> GObj.widget); views <- (frame#coerce, result, combo#entry) :: views; - let cb clr = result#misc#modify_bg [`NORMAL, `NAME clr] in - let _ = background_color#connect#changed ~callback:cb in - let _ = result#misc#connect#realize ~callback:(fun () -> cb background_color#get) in +(* FIXME: handle this using CSS *) +(* let cb clr = result#misc#modify_bg [`NORMAL, `NAME clr] in *) +(* let _ = background_color#connect#changed ~callback:cb in *) +(* let _ = result#misc#connect#realize ~callback:(fun () -> cb background_color#get) in *) let cb ft = result#misc#modify_font (GPango.font_description_from_string ft) in stick text_font result cb; result#misc#set_can_focus true; (* false causes problems for selection *) @@ -171,8 +172,9 @@ object(self) self#new_page_maker; self#new_query_aux ~grab_now:false (); frame#misc#hide (); - let _ = background_color#connect#changed ~callback:self#refresh_color in - self#refresh_color background_color#get; +(* FIXME: handle this using CSS *) +(* let _ = background_color#connect#changed ~callback:self#refresh_color in *) +(* self#refresh_color background_color#get; *) ignore(notebook#event#connect#key_press ~callback:(fun ev -> if GdkEvent.Key.keyval ev = GdkKeysyms._Escape then (self#hide; true) else false |