Module Glade

module Glade: sig .. end

val init : unit -> unit
type glade_xml = [ `data | `glade_xml ] 
val create : ?file:string ->
?data:string ->
?root:string -> ?domain:string -> unit -> glade_xml Gtk.obj
val signal_autoconnect : [> `glade_xml ] Gtk.obj ->
f:(handler:string ->
signal:string ->
after:bool -> ?target:unit Gtk.obj -> unit Gtk.obj -> unit) ->
unit
val get_widget : [> `glade_xml ] Gtk.obj -> name:string -> Gtk.widget Gtk.obj
val get_widget_name : [> `widget ] Gtk.obj -> string
val get_widget_tree : [> `widget ] Gtk.obj -> glade_xml Gtk.obj
val get_widget_msg : name:string -> ?info:string -> [> `glade_xml ] Gtk.obj -> Gtk.widget Gtk.obj
type handler = [ `Custom of Gobject.Closure.argv -> Gobject.data_get list -> unit
| `Object of string * (unit Gtk.obj -> unit)
| `Simple of unit -> unit ]
val gtk_bool : bool -> Gobject.Closure.argv -> 'a -> unit
val add_handler : name:string -> handler -> unit
val bind_handlers : ?extra:(string * handler) list ->
?warn:bool -> [> `glade_xml ] Gtk.obj -> unit
val bind_handler : name:string ->
handler:handler -> ?warn:bool -> [> `glade_xml ] Gtk.obj -> unit
val print_bindings : Pervasives.out_channel -> [> `glade_xml ] Gtk.obj -> unit
val trace_handlers : Pervasives.out_channel -> [> `glade_xml ] Gtk.obj -> unit
class xml : ?trace:Pervasives.out_channel -> ?autoconnect:bool -> glade_xml Gtk.obj -> object .. end