aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--ide/coqide.ml2
-rw-r--r--ide/wg_MessageView.ml5
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