class main ?(file="tdl/tdl.glade") ?domain ?autoconnect () =
let xmldata = Glade.create ~file ~root:"main" ?domain () in
object (self)
inherit Glade.xml ?autoconnect xmldata
val toplevel =
new GWindow.window (GtkWindow.Window.cast
(Glade.get_widget_msg ~name:"main" ~info:"GtkWindow" xmldata))
method toplevel = toplevel
val main =
new GWindow.window (GtkWindow.Window.cast
(Glade.get_widget_msg ~name:"main" ~info:"GtkWindow" xmldata))
method main = main
val vbox =
new GPack.box (GtkPack.Box.cast
(Glade.get_widget_msg ~name:"vbox" ~info:"GtkVBox" xmldata))
method vbox = vbox
val menuitem1_menu =
new GMenu.menu (GtkMenu.Menu.cast
(Glade.get_widget_msg ~name:"menuitem1_menu" ~info:"GtkMenu" xmldata))
method menuitem1_menu = menuitem1_menu
val menuitem2_menu =
new GMenu.menu (GtkMenu.Menu.cast
(Glade.get_widget_msg ~name:"menuitem2_menu" ~info:"GtkMenu" xmldata))
method menuitem2_menu = menuitem2_menu
val menuitem4_menu =
new GMenu.menu (GtkMenu.Menu.cast
(Glade.get_widget_msg ~name:"menuitem4_menu" ~info:"GtkMenu" xmldata))
method menuitem4_menu = menuitem4_menu
method reparent parent =
vbox#misc#reparent parent;
toplevel#destroy ()
method check_widgets () = ()
end