`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`