From 505c7b0881d68670af24fd8fe0e3c28157b2c90d Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sun, 24 Jun 2012 02:18:32 +0000
Subject: Cosmetic changes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15489 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coqide.ml         | 2 +-
 ide/wg_MessageView.ml | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'ide')

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
 
-- 
cgit v1.2.3