diff options
-rw-r--r-- | ide/coqide.ml | 2 | ||||
-rw-r--r-- | ide/wg_MessageView.ml | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 58db83cef..7efd02c04 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1089,7 +1089,7 @@ let create_session file = let proof = GText.view ~buffer:(GText.buffer ~tag_table:Tags.Proof.table ()) - ~editable:false ~wrap_mode:`CHAR () in + ~editable:false ~wrap_mode:`WORD () in let message = Wg_MessageView.message_view () in let basename = GMisc.label ~text:(match file with |None -> "*scratch*" diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index b48afef58..cae6cf3c7 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -16,7 +16,10 @@ class type message_view = let message_view () : message_view = let buffer = GText.buffer ~tag_table:Tags.Message.table () in - let view = GText.view ~buffer ~editable:false ~wrap_mode:`WORD () in + let view = GText.view ~buffer + ~editable:false ~cursor_visible:false ~wrap_mode:`WORD () + in + let () = view#set_left_margin 2 in object inherit GObj.widget view#as_widget |