diff options
author | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-06-03 13:14:27 +0000 |
---|---|---|
committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-06-03 13:14:27 +0000 |
commit | 417f0d8373c6999e3ec77144685286cda30172c7 (patch) | |
tree | ae14df7f02226f8a002c1a756cf2afd718fa66b6 /ide | |
parent | dfe15296d76f590c8c89734d289f8e581b48760e (diff) |
whelp + correction bug affichage de coqide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7102 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
-rw-r--r-- | ide/coq_commands.ml | 3 | ||||
-rw-r--r-- | ide/coqide.ml | 12 |
2 files changed, 14 insertions, 1 deletions
diff --git a/ide/coq_commands.ml b/ide/coq_commands.ml index 0e16a18d4..4dde60111 100644 --- a/ide/coq_commands.ml +++ b/ide/coq_commands.ml @@ -211,6 +211,9 @@ let state_preserving = [ "Test Printing Let"; "Test Printing Synth"; "Test Printing Wildcard"; + + "Whelp Hint"; + "Whelp Locate"; ] diff --git a/ide/coqide.ml b/ide/coqide.ml index 63e6c1178..c838cd668 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -970,9 +970,11 @@ object(self) end with e -> (if show_error then + let msg = read_stdout () in + self#insert_message (if show_output then msg else ""); let (s,loc) = Coq.process_exn e in assert (Glib.Utf8.validate s); - self#set_message s; + self#insert_message s; message_view#misc#draw None; if localize then (match Util.option_app Util.unloc loc with @@ -2770,6 +2772,14 @@ with _ := Induction for _ Sort _.\n",61,10, Some GdkKeysyms._S); ~term ()) in + let _ = + queries_factory#add_item "_Whelp Locate" + ~callback:(fun () -> let term = get_current_word () in + (Command_windows.command_window ())#new_command + ~command:"Whelp Locate" + ~term + ()) + in (* Externals *) let externals_menu = factory#add_submenu "_Compile" in |