From 223400bd5f9afccdf2405af31cc37a1c92c9246c Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 29 Jun 2012 19:57:15 +0000
Subject: Now CoqIDE separates answer and messages. This should hopefully be
 backward compatible...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15501 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/wg_Command.ml | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

(limited to 'ide/wg_Command.ml')

diff --git a/ide/wg_Command.ml b/ide/wg_Command.ml
index a43fdc7c8..931572da2 100644
--- a/ide/wg_Command.ml
+++ b/ide/wg_Command.ml
@@ -111,14 +111,21 @@ object(self)
 	if String.get com (String.length com - 1) = '.'
 	then com ^ " " else com ^ " " ^ entry#text ^" . "
       in
-      Coq.try_grab coqtop begin fun handle ->
-          result#buffer#set_text
-            (match Coq.interp handle ~raw:true phrase with
-              | Interface.Fail (l,str) ->
-                  ("Error while interpreting "^phrase^":\n"^str)
-              | Interface.Good results ->
-                  ("Result for command " ^ phrase ^ ":\n" ^ results))
-      end ignore
+      let insert level message =
+        result#buffer#insert message;
+        result#buffer#insert "\n"
+      in
+      let process handle =
+        let answer = match Coq.interp handle insert ~raw:true phrase with
+        | Interface.Fail (l,str) ->
+            "Error while interpreting "^phrase^":\n"^str
+        | Interface.Good results ->
+            "Result for command " ^ phrase ^ ":\n" ^ results
+        in
+        result#buffer#insert answer
+      in
+      result#buffer#set_text "";
+      Coq.try_grab coqtop process ignore
     in
     ignore (combo#entry#connect#activate ~callback:(on_activate callback));
     ignore (ok_b#connect#clicked ~callback:(on_activate callback));
-- 
cgit v1.2.3