From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 7 Jul 2005 08:41:05 +0000 (+0000)
Subject: fixed a problem when newScript was called
X-Git-Tag: V_0_7_1~38
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=10df455f8e84b4b1f793e26d432dc19ba4ee93a0;p=helm.git

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 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