X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGeneratedGui.ml;h=689984774b7369816c5f9ced0825d143b049a5b3;hb=3c9c376401844c389d682ba835845443105e4b1a;hp=e9db307d44f8a1ec41ce34fc2038709352181f18;hpb=d0991ea0c7c83c100b2d223644cb2f11a8554fa1;p=helm.git diff --git a/helm/matita/matitaGeneratedGui.ml b/helm/matita/matitaGeneratedGui.ml index e9db307d4..689984774 100644 --- a/helm/matita/matitaGeneratedGui.ml +++ b/helm/matita/matitaGeneratedGui.ml @@ -841,14 +841,14 @@ class browserWin ?(file="matita.glade") ?domain ?autoconnect(*=true*) () = new GMisc.image (GtkMisc.Image.cast (Glade.get_widget_msg ~name:"image187" ~info:"GtkImage" xmldata)) method image187 = image187 - val browserNotebook = - new GPack.notebook (GtkPack.Notebook.cast - (Glade.get_widget_msg ~name:"BrowserNotebook" ~info:"GtkNotebook" xmldata)) - method browserNotebook = browserNotebook - val label9 = - new GMisc.label (GtkMisc.Label.cast - (Glade.get_widget_msg ~name:"label9" ~info:"GtkLabel" xmldata)) - method label9 = label9 + val frame1 = + new GBin.frame (GtkBin.Frame.cast + (Glade.get_widget_msg ~name:"frame1" ~info:"GtkFrame" xmldata)) + method frame1 = frame1 + val scrolledBrowser = + new GBin.scrolled_window (GtkBin.ScrolledWindow.cast + (Glade.get_widget_msg ~name:"ScrolledBrowser" ~info:"GtkScrolledWindow" xmldata)) + method scrolledBrowser = scrolledBrowser method reparent parent = browserWinEventBox#misc#reparent parent; toplevel#destroy ()