]> matita.cs.unibo.it Git - helm.git/commitdiff
Use replace when switching tabs (see previous commit).
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 15 Jul 2011 14:41:20 +0000 (14:41 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 15 Jul 2011 14:41:20 +0000 (14:41 +0000)
matita/matita/matitaScript.ml

index 13668a8aecc318d7df036bf406467826e8bb639a..931fb049a492d1befc65be17e7a65edd71ad4501 100644 (file)
@@ -256,8 +256,7 @@ let similarsymbols_tag = `NAME similarsymbols_tag_name in
 let initial_statuses current baseuri =
  let status = new MatitaEngine.status baseuri in
  (match current with
-     Some current ->
-      NCicLibrary.time_travel status;
+     Some current -> NCicLibrary.time_travel status;
 (*
       (* MATITA 1.0: there is a known bug in invalidation; temporary fix here *)
       NCicEnvironment.invalidate () *)
@@ -789,6 +788,7 @@ object (self)
     List.iter (fun o -> o status) observers
 
   method activate =
+    NCicLibrary.replace self#status;
     self#notify
 
   method loadFromFile f =