diff options
author | Stephane Glondu <steph@glondu.net> | 2014-01-19 15:09:23 +0100 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2014-01-19 15:09:23 +0100 |
commit | d2c5c5e616a6e118291fe1ce9965c731adac03a8 (patch) | |
tree | 7b000ad50dcc45ff1c63768a983cded1e23a07ca /ide/command_windows.ml | |
parent | db38bb4ad9aff74576d3b7f00028d48f0447d5bd (diff) |
Imported Upstream version 8.4pl3dfsgupstream/8.4pl3dfsg
Diffstat (limited to 'ide/command_windows.ml')
-rw-r--r-- | ide/command_windows.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ide/command_windows.ml b/ide/command_windows.ml index 470bd5b4..d496e9fd 100644 --- a/ide/command_windows.ml +++ b/ide/command_windows.ml @@ -84,10 +84,6 @@ object(self) ~packing:hbox#pack () in - let on_activate c () = - if List.mem combo#entry#text Coq_commands.state_preserving then c () - else prerr_endline "Not a state preserving command" - in let entry = GEdit.entry ~packing:(hbox#pack ~expand:true) () in entry#misc#set_can_default true; let r_bin = @@ -103,6 +99,10 @@ object(self) result#misc#modify_base [`NORMAL, `COLOR clr]; result#misc#set_can_focus true; (* false causes problems for selection *) result#set_editable false; + let on_activate c () = + if List.mem combo#entry#text Coq_commands.state_preserving then c () + else result#buffer#set_text "Error: Not a state preserving command" + in let callback () = let com = combo#entry#text in let phrase = @@ -111,7 +111,7 @@ object(self) in try result#buffer#set_text - (match Coq.interp !coqtop ~raw:true phrase with + (match Coq.interp !coqtop ~raw:true 0 phrase with | Interface.Fail (l,str) -> ("Error while interpreting "^phrase^":\n"^str) | Interface.Good results -> |