diff options
| author | Pierre-Marie Pédrot | 2020-04-20 12:18:20 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-04-20 12:18:20 +0200 |
| commit | e77b7aed145718b73ca58c75bc7ed01d2b55446f (patch) | |
| tree | 07b68aaa19cb0c33d135a28a16decfbe8a6d8ff9 /ide/wg_ProofView.ml | |
| parent | c8fc5a6f9294c8ed6c1e26cc8ca8317014e63b07 (diff) | |
| parent | cf97da30c680cc45113742e6744ed34fb87ab9f2 (diff) | |
Merge PR #12106: Coqide: Apply style scheme and language settings to the three sourceview buffers.
Ack-by: Zimmi48
Reviewed-by: ppedrot
Diffstat (limited to 'ide/wg_ProofView.ml')
| -rw-r--r-- | ide/wg_ProofView.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ide/wg_ProofView.ml b/ide/wg_ProofView.ml index 3e03ef11f7..b8ed3436ce 100644 --- a/ide/wg_ProofView.ml +++ b/ide/wg_ProofView.ml @@ -15,6 +15,7 @@ open Ideutils class type proof_view = object inherit GObj.widget + method source_buffer : GSourceView3.source_buffer method buffer : GText.buffer method refresh : force:bool -> unit method clear : unit -> unit @@ -195,7 +196,9 @@ let display mode (view : #GText.view_skel) goals hints evars = let proof_view () = let buffer = GSourceView3.source_buffer ~highlight_matching_brackets:true - ~tag_table:Tags.Proof.table () + ~tag_table:Tags.Proof.table + ?language:(lang_manager#language source_language#get) + ?style_scheme:(style_manager#style_scheme source_style#get) () in let text_buffer = new GText.buffer buffer#as_buffer in let view = GSourceView3.source_view @@ -217,6 +220,8 @@ let proof_view () = val mutable evars = None val mutable last_width = -1 + method source_buffer = buffer + method buffer = text_buffer method clear () = buffer#set_text "" |