(* Automatically generated from tdl/tdl.glade by lablgladecc *)

class main ?(file="tdl/tdl.glade") ?domain ?autoconnect(*=true*) () =
  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