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

diff --git a/helm/DEVEL/lablgtkmathview/test/test.ml b/helm/DEVEL/lablgtkmathview/test/test.ml
index 3e2edeed1..1f2718003 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 = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
+let sw = GFrame.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