diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-07-29 16:10:30 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-08-05 18:24:50 +0200 |
commit | 35ff66308bee60f5c0e0e917a8ad4b817bc36851 (patch) | |
tree | 3451d3ffb77a2ac7dacfb2bf264e578f346c14b9 /ide/coqide_main.ml4 | |
parent | 6458868b7ba2eb04cad7bf670dda6ba4f01f7c80 (diff) |
Coqide: annoying popups with GTK errors only in debug mode
Diffstat (limited to 'ide/coqide_main.ml4')
-rw-r--r-- | ide/coqide_main.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ide/coqide_main.ml4 b/ide/coqide_main.ml4 index aad70197e..03aa9b754 100644 --- a/ide/coqide_main.ml4 +++ b/ide/coqide_main.ml4 @@ -33,7 +33,9 @@ let catch_gtk_messages () = |`FATAL -> let () = GToolbox.message_box ~title:"Error" (header ^ msg) in Coqide.crash_save 1 - |`ERROR -> GToolbox.message_box ~title:"Error" (header ^ msg) + |`ERROR -> + if !Flags.debug then GToolbox.message_box ~title:"Error" (header ^ msg) + else Printf.eprintf "%s\n" (header ^ msg) |`DEBUG -> Minilib.log msg |level when Sys.os_type = "Win32" -> Minilib.log ~level msg |_ -> Printf.eprintf "%s\n" msg |