diff options
| author | ppedrot | 2012-04-19 14:02:14 +0000 |
|---|---|---|
| committer | ppedrot | 2012-04-19 14:02:14 +0000 |
| commit | ff58b467f93a3c4bfa16ef8ea28f3c7eb2b1b007 (patch) | |
| tree | 69d1d13d6f66737f8275ad98d45355daf1699215 /ide/coqide.ml | |
| parent | 6b0199b638da7bdc648fa4e53c94544d9c5b57cb (diff) | |
Fixed color refresh of command pane
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15218 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/coqide.ml')
| -rw-r--r-- | ide/coqide.ml | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 358302d3c4..a299ffda00 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -2804,24 +2804,24 @@ let main files = refresh_font_hook := (fun () -> let fd = !current.text_font in - List.iter - (fun {script=view; proof_view=prf_v; message_view=msg_v} -> - view#misc#modify_font fd; - prf_v#misc#modify_font fd; - msg_v#misc#modify_font fd - ) - session_notebook#pages; + let iter_page p = + p.script#misc#modify_font fd; + p.proof_view#misc#modify_font fd; + p.message_view#misc#modify_font fd; + p.command#refresh_font () + in + List.iter iter_page session_notebook#pages; ); refresh_background_color_hook := (fun () -> let clr = Tags.color_of_string !current.background_color in - List.iter - (fun {script=view; proof_view=prf_v; message_view=msg_v} -> - view#misc#modify_base [`NORMAL, `COLOR clr]; - prf_v#misc#modify_base [`NORMAL, `COLOR clr]; - msg_v#misc#modify_base [`NORMAL, `COLOR clr] - ) - session_notebook#pages; + let iter_page p = + p.script#misc#modify_base [`NORMAL, `COLOR clr]; + p.proof_view#misc#modify_base [`NORMAL, `COLOR clr]; + p.message_view#misc#modify_base [`NORMAL, `COLOR clr]; + p.command#refresh_color () + in + List.iter iter_page session_notebook#pages; ); resize_window_hook := (fun () -> w#resize |