class main ?(file="cameleon/cameleon.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 hbox1 =
new GPack.box (GtkPack.Box.cast
(Glade.get_widget_msg ~name:"hbox1" ~info:"GtkHBox" xmldata))
method hbox1 = hbox1
val menubar =
new GMenu.menu_shell (GtkMenu.MenuBar.cast
(Glade.get_widget_msg ~name:"menubar" ~info:"GtkMenuBar" xmldata))
method menubar = menubar
val statusbar =
new GMisc.statusbar (GtkMisc.Statusbar.cast
(Glade.get_widget_msg ~name:"statusbar" ~info:"GtkStatusbar" xmldata))
method statusbar = statusbar
val hbox_buttons =
new GPack.box (GtkPack.Box.cast
(Glade.get_widget_msg ~name:"hbox_buttons" ~info:"GtkHBox" xmldata))
method hbox_buttons = hbox_buttons
method reparent parent =
hbox1#misc#reparent parent;
toplevel#destroy ()
method check_widgets () = ()
end