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