X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2FDEVEL%2Flablgtkmathview%2Ftest%2Ftest.ml;h=3e2edeed1b5ef1a05247d096329636154e64e427;hb=e4ea08104e12e2d9e546f37e2d4fbb4febe75d29;hp=1f27180039fe6b232c839be3badee0561800d3c3;hpb=4a97b3700b140024e1783ac12501ad5dfa4be9b5;p=helm.git

diff --git a/helm/DEVEL/lablgtkmathview/test/test.ml b/helm/DEVEL/lablgtkmathview/test/test.ml
index 1f2718003..3e2edeed1 100644
--- a/helm/DEVEL/lablgtkmathview/test/test.ml
+++ b/helm/DEVEL/lablgtkmathview/test/test.ml
@@ -256,7 +256,7 @@ let export_to_postscript (mathview : GMathView.math_view) () =
 (* Widget creation *)
 let main_window = GWindow.window ~title:"GtkMathView test" () in
 let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GFrame.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
+let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
 let mathview= GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
 let table = GPack.table ~rows:6 ~columns:5 ~packing:vbox#pack () in
 let button_gtk=GButton.button ~label:"activate Gtk fonts" ~packing:(table#attach ~left:0 ~top:0) () in