'a Gtk.obj ->
(GtkSignal.id -> bool) list ->
object
  val mutable disconnectors : (GtkSignal.id -> bool) list
  method disconnect : GtkSignal.id -> unit
end