X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaMathView.ml;h=3c4997aeca09e8437e9c6e9f647543fbae340983;hb=112afe13b5aef27425d1a0bc9c71a70b491069bf;hp=794b849c4918202171780c1b2c496c0b1b7a7a2e;hpb=aa0d60227b785da3355b31519ba11cb4fbd2c925;p=helm.git

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index 794b849c4..3c4997aec 100644
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -156,7 +156,6 @@ type selected_term =
 
 class clickableMathView obj =
 let text_width = 80 in
-let dummy_loc = HExtlib.dummy_floc in
 object (self)
   inherit GMathViewAux.multi_selection_math_view obj
 
@@ -580,7 +579,7 @@ class sequentsViewer ~(notebook:GPack.notebook) ~(cicMathView:cicMathView) () =
       goal2page <- [];
       goal2win <- [];
       _metasenv <- []; 
-      self#script#setGoal ~-1;
+      self#script#setGoal None
 
     method load_sequents { proof = (_,metasenv,_,_) as proof; stack = stack } =
       _metasenv <- metasenv;
@@ -655,7 +654,7 @@ class sequentsViewer ~(notebook:GPack.notebook) ~(cicMathView:cicMathView) () =
           let goal_switch =
             try List.assoc page page2goal with Not_found -> assert false
           in
-          self#script#setGoal (goal_of_switch goal_switch);
+          self#script#setGoal (Some (goal_of_switch goal_switch));
           self#render_page ~page ~goal_switch))
 
     method private render_page ~page ~goal_switch =