When matita is started on a non-existent file, it avoids creating it

immediately!

diff --git a/helm/matita/matita.txt b/helm/matita/matita.txt
index 23bd0c42eec458436252170b98d5df3e3864e03f..19c78922ff19a1498a20f7080ef19d75fdef1196 100644 (file)
--- a/helm/matita/matita.txt
+++ b/helm/matita/matita.txt
@@ -59,8 +59,6 @@ TODO
   - keybinding globali: CTRL-{su,giu,...} devono fungere anche quando altre
     finestre hanno il focus (e.g. cicBrowser). C'e' gia' da qualche parte il
     codice che aggiunge i keybinding a tutte le eventBox, e' da ripristinare
-  - fare "matita foo" (dove foo non esiste), cambiare qualcosa e uscire senza
-    salvare. In verita' foo e' stato scritto lo stesso!
   - sensitiveness per copy/paste/cut/delete nel menu Edit
   - sensitiveness per goto begin/end/etc.
 
@@ -79,12 +77,11 @@ TODO
   - matitamake foo/a.ma non funziona; bisogna chiamarlo con
     matitamake /x/y/z/foo/a.ma
   - notazione -> Luca e Zack
-  - copiare nel .moo la baseuri e poi il matitaclean la legge da li e non dal
-    .ma (si evita il syntax error e il cambio di una baseuri non causa 
-    sporcizia)
   - non chiudere transitivamente i moo ?? 
 
 DONE
+- fare "matita foo" (dove foo non esiste), cambiare qualcosa e uscire senza
+  salvare. In verita' foo e' stato scritto lo stesso! -> CSC
 - matitaclean deve rimuovere anche i .moo; in alternativa il makefile
   non deve basarsi sui .moo per decidere se qualcosa e' stato compilato o meno
   -> CSC, Gares

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index 8dc0cf3135a56b0e4a85e0984d6ad9ef8cc799c3..108b36bfb3f8738ac008a02f65bf1e7207488ef6 100644 (file)
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -596,7 +596,7 @@ class gui () =
                 script#reset (); 
                 script#assignFileName f;
                 source_view#source_buffer#begin_not_undoable_action ();
-                script#loadFromFile (); 
+                script#loadFromFile f; 
                 source_view#source_buffer#end_not_undoable_action ();
                 console#message ("'"^f^"' loaded.\n");
                 self#_enableSaveTo f
@@ -713,18 +713,15 @@ class gui () =
       let script = MatitaScript.instance () in
       script#reset (); 
       script#assignFileName file;
-      if not (Sys.file_exists file) then
-        begin
-          let oc = open_out file in
-          let template = MatitaMisc.input_file BuildTimeConf.script_template in 
-          output_string oc template;
-          close_out oc
-        end;
-      source_view#source_buffer#begin_not_undoable_action ();
-      script#loadFromFile ();
-      source_view#source_buffer#end_not_undoable_action ();
-      console#message ("'"^file^"' loaded.");
-      self#_enableSaveTo file
+      let content =
+       if Sys.file_exists file then file
+       else BuildTimeConf.script_template
+      in
+       source_view#source_buffer#begin_not_undoable_action ();
+       script#loadFromFile content;
+       source_view#source_buffer#end_not_undoable_action ();
+       console#message ("'"^file^"' loaded.");
+       self#_enableSaveTo file
       
     method setStar name b =
       let l = main#scriptLabel in

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index f339ebb40f3547756b9349666d1637408b98371d..ad1530d4ea15220171ec175aa0eebb1cc7e108f4 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -542,8 +542,8 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     let status = self#status in
     List.iter (fun o -> o status) observers
 
-  method loadFromFile () =
-    buffer#set_text (MatitaMisc.input_file self#getFilename);
+  method loadFromFile f =
+    buffer#set_text (MatitaMisc.input_file f);
     self#goto_top;
     buffer#set_modified false
     

diff --git a/helm/matita/matitaScript.mli b/helm/matita/matitaScript.mli
index 5266a61e04ee1c05ebc0e234cf5360521061f07a..258a72e0c13fc3cc748e578073a0ef12dcfcb92e 100644 (file)
--- a/helm/matita/matitaScript.mli
+++ b/helm/matita/matitaScript.mli
@@ -46,7 +46,7 @@ object
   (** {2 Load/save} *)
 
   method assignFileName : string -> unit (* to the current active file *)
-  method loadFromFile : unit -> unit
+  method loadFromFile : string -> unit
   method saveToFile : unit -> unit
 
   (** {2 Current proof} (if any) *)