X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGui.ml;h=8351426f88702e4191141634596cafd1c2323c6a;hb=5b17a67ffd16485adf2e66a6241b72e91ed15621;hp=e2e4909428dc56f39c5bbde2edba05caaf9e7a27;hpb=1e9e21091e2e6e899578332f2e67b57fea8e9c0f;p=helm.git

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index e2e490942..8351426f8 100644
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -67,7 +67,8 @@ let clean_current_baseuri status =
 
 let ask_and_save_moo_if_needed parent fname status = 
   let save () =
-    MatitacLib.dump_moo_to_file fname status.MatitaTypes.moo_content_rev in
+    let moo_fname = MatitaMisc.obj_file_of_script fname in
+    MatitaMoo.save_moo moo_fname status.MatitaTypes.moo_content_rev in
   if (MatitaScript.instance ())#eos &&
      status.MatitaTypes.proof_status = MatitaTypes.No_proof
   then
@@ -494,9 +495,9 @@ class gui () =
             let fname = fileSel#fileSelectionWin#filename in
             if Sys.file_exists fname then
               begin
-                if is_regular fname && not(_only_directory) then 
+                if HExtlib.is_regular fname && not (_only_directory) then 
                   return (Some fname) 
-                else if _only_directory && is_dir fname then 
+                else if _only_directory && HExtlib.is_dir fname then 
                   return (Some fname)
               end
             else
@@ -548,7 +549,7 @@ class gui () =
         (tac_w_term (A.Transitivity (loc, hole)));
       connect_button tbar#assumptionButton (tac (A.Assumption loc));
       connect_button tbar#cutButton (tac_w_term (A.Cut (loc, None, hole)));
-      connect_button tbar#autoButton (tac (A.Auto (loc,None,None,None)));
+      connect_button tbar#autoButton (tac (A.Auto (loc,None,None,None,None)));
       MatitaGtkMisc.toggle_widget_visibility
        ~widget:(main#tacticsButtonsHandlebox :> GObj.widget)
        ~check:main#tacticsBarMenuItem;