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 : set:'a signal -> changed:'a signal -> object .. end

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