ported to new getter interface

[helm.git] / helm / matita / matitaGui.ml

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index fa6059d1ea0eebb8139ac900f86e767074daeacd..c9b387178bc8cd1c780de9940d481013a1d035a0 100644 (file)
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -186,9 +186,7 @@ class gui () =
         (* log *)
       MatitaLog.set_log_callback self#console#log_callback;
       GtkSignal.user_handler :=
-        (fun exn ->
-           MatitaLog.error
-             (sprintf "Uncaught exception: %s" (Printexc.to_string exn)));
+        (fun exn -> MatitaLog.error (MatitaExcPp.to_string exn));
         (* script *)
       let _ =
         match GSourceView.source_language_from_file BuildTimeConf.lang_file with
@@ -262,7 +260,9 @@ class gui () =
                 ()
             in
             match rc with
-            | `YES -> saveScript ();GMain.Main.quit ()
+            | `YES -> saveScript ();
+                      if not source_view#buffer#modified then
+                        GMain.Main.quit ()
             | `NO -> GMain.Main.quit ()
             | `CANCEL -> ()
           end else GMain.Main.quit ());