Module GUtil

module GUtil: sig .. end

val print_widget : Format.formatter -> #GObj.widget -> unit

class [< get_oid : int >] memo : unit -> object .. end

val next_callback_id : unit -> GtkSignal.id

class ['a] signal : unit -> object .. end

class virtual ml_signals : (GtkSignal.id -> bool) list -> object .. end

class virtual add_ml_signals : 'a Gtk.obj -> (GtkSignal.id -> bool) list -> object .. end

class ['a] variable_signals : 'a signal -> 'a signal -> object .. end

class ['a] variable : 'a -> object .. end