sig val cast : 'a Gobject.obj -> Gtk.plug Gtk.obj module S : sig val embedded : ([> `plug ], unit -> unit) GtkSignal.t end end