X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaMathView.ml;h=09441303b02f7a4cd915098c788b6adce6bc9377;hb=33f8507cadd3b36dc9afa227d8968dda66fe2034;hp=13d1a240cea2134e9f76810d148f1fa191e69f1d;hpb=fe4e63f87929fc9d63db499c5035573683be34be;p=helm.git diff --git a/matita/matita/matitaMathView.ml b/matita/matita/matitaMathView.ml index 13d1a240c..09441303b 100644 --- a/matita/matita/matitaMathView.ml +++ b/matita/matita/matitaMathView.ml @@ -201,7 +201,11 @@ class sequentsViewer ~(notebook:GPack.notebook) ~(cicMathView:cicMathView) () = let w = new GBin.scrolled_window (Gobject.try_cast p#as_widget "GtkScrolledWindow") in - w#hadjustment#set_value 0.0; + (* The double change upper/lower is to trigger the emission of + 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)