sig
  val cast : 'a Gobject.obj -> Gtk.item Gtk.obj
  module S :
    sig
      val select : ([> `item ], unit -> unit) GtkSignal.t
      val deselect : ([> `item ], unit -> unit) GtkSignal.t
      val toggle : ([> `item ], unit -> unit) GtkSignal.t
    end
  external select : [> `item ] Gtk.obj -> unit = "ml_gtk_item_select"
  external deselect : [> `item ] Gtk.obj -> unit = "ml_gtk_item_deselect"
  external toggle : [> `item ] Gtk.obj -> unit = "ml_gtk_item_toggle"
end