diff options
| author | pboutill | 2011-06-17 16:22:57 +0000 |
|---|---|---|
| committer | pboutill | 2011-06-17 16:22:57 +0000 |
| commit | ef21e5edea48003aa21a4c0bebb69e0b263a674d (patch) | |
| tree | 28d8001b607c8243c7b3f94de2e530cfe39f3ac4 /ide/command_windows.ml | |
| parent | f854501ff2777353f5441e401715d3cf4c90bfb0 (diff) | |
Fix 2516: Utf8 font in Coqide Command panel
Not perfect, font of unactives command panels won't change on the fly. (As it is for others GtextArea.)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14213 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/command_windows.ml')
| -rw-r--r-- | ide/command_windows.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ide/command_windows.ml b/ide/command_windows.ml index 506b572ffe..e42c57abec 100644 --- a/ide/command_windows.ml +++ b/ide/command_windows.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -class command_window coqtop = +class command_window coqtop current = (* let window = GWindow.window ~allow_grow:true ~allow_shrink:true ~width:500 ~height:250 @@ -95,6 +95,7 @@ object(self) ~packing:(vbox#pack ~fill:true ~expand:true) () in let ok_b = GButton.button ~label:"Ok" ~packing:(hbox#pack ~expand:false) () in let result = GText.view ~packing:r_bin#add () in + result#misc#modify_font !current.Preferences.text_font; result#misc#set_can_focus true; (* false causes problems for selection *) result#set_editable false; let callback () = |