diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-29 19:57:15 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-29 19:57:15 +0000 |
commit | 223400bd5f9afccdf2405af31cc37a1c92c9246c (patch) | |
tree | b209ae19feee8a2946295966dd08ece77e43e108 /ide/wg_Command.ml | |
parent | c62d49b036e48d2753ec4d859e98c4fe027aff66 (diff) |
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
Diffstat (limited to 'ide/wg_Command.ml')
-rw-r--r-- | ide/wg_Command.ml | 23 |
1 files changed, 15 insertions, 8 deletions
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)); |