Bug fixed: the _advance method must delete the parsed text iff it was parsed

from the script itself (calling the getFuture method).

diff --git a/helm/matita/matita.txt b/helm/matita/matita.txt
index 8c7e574f988c95af59522e4b48865c38e7c3e3a7..68b73f36cf9ebd17e13e6d60e213b0939f310dbf 100644 (file)
--- a/helm/matita/matita.txt
+++ b/helm/matita/matita.txt
@@ -47,8 +47,6 @@ TODO
 
   GUI GRAFICA
   - integrare il famoso logo mancante (anche nell'About dialog)
-  - quando si fa una locate nel cicbrowser viene mangiato un pezzo di testo
-    dalla finestra principale!!!
   - highlight degli errori di parsing nello script (usando lo sfondo come per la
     parte lockata di testo, da ripulire quando si modifica il testo o si sposta
     il punto di esecuzione)
@@ -80,6 +78,8 @@ TODO
   - non chiudere transitivamente i moo ?? 
 
 DONE
+- quando si fa una locate nel cicbrowser viene mangiato un pezzo di testo
+  dalla finestra principale!!! -> CSC
 - sensitiveness per copy/paste/cut/delete nel menu Edit -> CSC
 - fare "matita foo" (dove foo non esiste), cambiare qualcosa e uscire senza
   salvare. In verita' foo e' stato scritto lo stesso! -> CSC

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index ad1530d4ea15220171ec175aa0eebb1cc7e108f4..4d092ca65e83d44c987c65d272f426349e03ebe3 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -454,13 +454,16 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     statements <- List.rev new_statements @ statements;
     let start = buffer#get_iter_at_mark (`MARK locked_mark) in
     let new_text = String.concat "" new_statements in
-    if new_text <> String.sub s 0 parsed_len then
+    if statement <> None then
+     buffer#insert ~iter:start new_text
+    else
+     if new_text <> String.sub s 0 parsed_len then
       begin
 (*       prerr_endline ("new:" ^ new_text); *)
 (*       prerr_endline ("s:" ^ String.sub s 0 parsed_len); *)
-      let stop = start#copy#forward_chars parsed_len in
-      buffer#delete ~start ~stop;
-      buffer#insert ~iter:start new_text;
+       let stop = start#copy#forward_chars parsed_len in
+        buffer#delete ~start ~stop;
+        buffer#insert ~iter:start new_text;
 (*       prerr_endline "AUTOMATICALLY MODIFIED!!!!!" *)
       end;
     self#moveMark (String.length new_text)