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 | |
| 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')
| -rw-r--r-- | ide/command_windows.ml | 3 | ||||
| -rw-r--r-- | ide/command_windows.mli | 2 | ||||
| -rw-r--r-- | ide/coqide.ml | 2 |
3 files changed, 4 insertions, 3 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 () = diff --git a/ide/command_windows.mli b/ide/command_windows.mli index 9a073d38f7..1eb118359c 100644 --- a/ide/command_windows.mli +++ b/ide/command_windows.mli @@ -7,7 +7,7 @@ (************************************************************************) class command_window : - Coq.coqtop -> + Coq.coqtop -> Preferences.pref ref -> object method new_command : ?command:string -> ?term:string -> unit -> unit method frame : GBin.frame diff --git a/ide/coqide.ml b/ide/coqide.ml index adce4f9f47..aaa17d5175 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1422,7 +1422,7 @@ let create_session () = let basename = GMisc.label ~text:"*scratch*" () in let stack = Stack.create () in let ct = ref (Coq.spawn_coqtop !sup_args) in - let command = new Command_windows.command_window !ct in + let command = new Command_windows.command_window !ct current in let legacy_av = new analyzed_view script proof message stack ct in let _ = script#buffer#create_mark ~name:"start_of_input" script#buffer#start_iter in |