fixed a problem when newScript was called

(the filename was not resetted properly)

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index c3e169c50a371c39051cc7b9863484cfc2f00053..540a839ddd99fec4fc09f04b1ee82875aa395c2d 100644 (file)
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -292,7 +292,8 @@ class gui () =
       let newScript () = 
         (s ())#reset (); 
         (s ())#template (); 
-        disableSave () 
+        disableSave ();
+        script_fname <- None
       in
       let cursor () =
         source_buffer#place_cursor

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index 5dd6550a9d49a8a81c059f1f223ab054a8ed9a5c..e76f011ff23ee0b088ba150f317282fd724798c1 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -326,17 +326,15 @@ object (self)
     match filename with Some f -> f | None -> sprintf ".unnamed%d.ma" scriptId
   
   initializer 
-    ignore(GMain.Timeout.add ~ms:30000 
+    ignore(GMain.Timeout.add ~ms:300000 
        ~callback:(fun _ -> self#_saveToBackuptFile ();true));
-    set_star self#ppFilename false;
     ignore(buffer#connect#modified_changed 
        (fun _ -> if buffer#modified then 
           set_star self#ppFilename true 
         else 
           set_star self#ppFilename false));
     self#reset ();
-    self#template ();
-    buffer#set_modified false
+    self#template ()
 
   val mutable statements = [];    (** executed statements *)
   val mutable history = [ init ];
@@ -478,11 +476,15 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
   method reset () =
     self#goto_top;
     buffer#delete ~start:buffer#start_iter ~stop:buffer#end_iter;
-    self#notify
+    self#notify;
+    buffer#set_modified false
 
   method template () =
     let template = MatitaMisc.input_file BuildTimeConf.script_template in 
-    buffer#insert ~iter:(buffer#get_iter `START) template
+    buffer#insert ~iter:(buffer#get_iter `START) template;
+    filename <- None;
+    buffer#set_modified false;
+    set_star self#ppFilename false
 
   method goto (pos: [`Top | `Bottom | `Cursor]) () =
     match pos with