From 10df455f8e84b4b1f793e26d432dc19ba4ee93a0 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 7 Jul 2005 08:41:05 +0000
Subject: [PATCH] fixed a problem when newScript was called (the filename was
 not resetted properly)

---
 helm/matita/matitaGui.ml    |  3 ++-
 helm/matita/matitaScript.ml | 14 ++++++++------
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index c3e169c50..540a839dd 100644
--- 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 5dd6550a9..e76f011ff 100644
--- 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
-- 
2.39.2