copied text is unlocked :)

[helm.git] / helm / matita / matitaScript.ml

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index 7aa31d33b6b3367ef8f632316129cb000da1fe90..af38ff8c2c86589f306cfcdcebb2cf644f12a7ff 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -346,7 +346,7 @@ object (self)
 
   (** goal as seen by the user (i.e. metano corresponding to current tab) *)
   val mutable userGoal = ~-1
-
+  val mutable lock_mark_pos = 0
 
   (** text mark and tag representing locked part of a script *)
   val locked_mark =
@@ -413,6 +413,7 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     buffer#get_text ~start:(buffer#get_iter_at_mark (`MARK locked_mark))
       ~stop:buffer#end_iter ()
 
+      
   (** @param rel_offset relative offset from current position of locked_mark *)
   method private moveMark rel_offset =
     let mark = `MARK locked_mark in
@@ -427,6 +428,7 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     in
     buffer#move_mark mark ~where:new_mark_pos;
     buffer#apply_tag locked_tag ~start:buffer#start_iter ~stop:new_mark_pos;
+    lock_mark_pos <- new_mark_pos#offset;
     buffer#move_mark `INSERT old_insert;
     begin
      match self#status.proof_status with
@@ -435,6 +437,11 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     end ;
     while Glib.Main.pending () do ignore(Glib.Main.iteration false); done
 
+  method clean_dirty_lock =
+    let lock_mark_iter = buffer#get_iter (`OFFSET lock_mark_pos) in
+    buffer#remove_tag locked_tag ~start:buffer#start_iter ~stop:buffer#end_iter;
+    buffer#apply_tag locked_tag ~start:buffer#start_iter ~stop:lock_mark_iter
+
   val mutable observers = []
 
   method addObserver (o: MatitaTypes.status -> unit) =