sig
  val cast : 'a Gobject.obj -> Gtk.socket Gtk.obj
  module S :
    sig
      val plug_added : ([> `socket ], unit -> unit) GtkSignal.t
      val plug_removed : ([> `socket ], unit -> unit) GtkSignal.t
    end
  val create : Gtk.socket Gobject.param list -> Gtk.socket Gtk.obj
  external steal : [> `socket ] Gtk.obj -> Gdk.xid -> unit
    = "ml_gtk_socket_steal"
end