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_MessageView.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_MessageView.ml')
| -rw-r--r-- | ide/wg_MessageView.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index b99e5f8069..9d97b01a7a 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -28,6 +28,7 @@ end class type message_view = object inherit GObj.widget + method source_buffer : GSourceView3.source_buffer method connect : message_view_signals method clear : unit method add : Pp.t -> unit @@ -44,7 +45,9 @@ class type message_view = let message_view () : message_view = let buffer = GSourceView3.source_buffer ~highlight_matching_brackets:true - ~tag_table:Tags.Message.table () + ~tag_table:Tags.Message.table + ?language:(lang_manager#language source_language#get) + ?style_scheme:(style_manager#style_scheme source_style#get) () in let mark = buffer#create_mark ~left_gravity:false buffer#start_iter in let box = GPack.vbox () in @@ -88,6 +91,8 @@ let message_view () : message_view = val push = new GUtil.signal () + method source_buffer = buffer + method connect = new message_view_signals_impl box#as_widget push |