From 4027d612bc9c0a38fac53666a21e390683c5076d Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 7 Jul 2005 09:31:36 +0000
Subject: [PATCH] notify was not called when Margin was raised. Fixed.

---
 helm/matita/matitaScript.ml | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index e76f011ff..5fbcc4092 100644
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -396,13 +396,13 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     try
       self#_advance ?statement ();
       self#notify
-    with Margin -> ()
+    with Margin -> self#notify
 
   method retract () =
     try
       self#_retract ();
       self#notify
-    with Margin -> ()
+    with Margin -> self#notify
 
   method private getFuture =
     buffer#get_text ~start:(buffer#get_iter_at_mark (`MARK locked_mark))
@@ -436,6 +436,7 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     observers <- o :: observers
 
   method private notify =
+prerr_endline ("************* NOTIFICATO");
     let status = self#status in
     List.iter (fun o -> o status) observers
 
@@ -499,7 +500,7 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
           in
           dowhile (getpos ());
           self#notify 
-        with Margin -> ())
+        with Margin -> self#notify)
     | `Cursor ->
         let locked_iter () = buffer#get_iter_at_mark (`NAME "locked") in
         let cursor_iter () = buffer#get_iter_at_mark `INSERT in
@@ -521,7 +522,7 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
             (back_until_cursor (); self#notify)
           else                  (* cursor = locked *)
               ()
-        with Margin -> ())
+        with Margin -> self#notify)
 
   method onGoingProof () =
     match self#status.proof_status with
-- 
2.39.2