X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaMathView.ml;h=ea9683e188bd6232c3e2996806541fed68a2d56a;hb=b0eb62e60a2fd73ba39c7a0df112f04131528602;hp=e62c9f32cdb77d882296be9750f33fcd51a316f8;hpb=b2290acc0159c6ef4ccb1f628e3b649413fad87b;p=helm.git diff --git a/matita/matita/matitaMathView.ml b/matita/matita/matitaMathView.ml index e62c9f32c..ea9683e18 100644 --- a/matita/matita/matitaMathView.ml +++ b/matita/matita/matitaMathView.ml @@ -205,6 +205,7 @@ class sequentsViewer ~(notebook:GPack.notebook) ~(cicMathView:cicMathView) () = changed :-( *) w#hadjustment#set_value w#hadjustment#upper; w#hadjustment#set_value w#hadjustment#lower; + w#vadjustment#set_value w#vadjustment#lower; w#vadjustment#set_value (w#vadjustment#upper -. w#vadjustment#page_size)); with Not_found -> assert false) @@ -332,7 +333,9 @@ class cicBrowser_impl ~(history:MatitaTypes.mathViewer_entry MatitaMisc.history) HExtlib.safe_remove filename in object (self) - val mutable gviz_uri = NReference.reference_of_string "cic:/dummy.dec"; + val mutable gviz_uri = + let uri = NUri.uri_of_string "cic:/dummy/dec.con" in + NReference.reference_of_spec uri NReference.Decl; val dep_contextual_menu = GMenu.menu ()