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