`sig
val cast : 'a Gobject.obj -> Gtk.tree_item Gtk.obj
module S :
sig
val collapse : ([> `treeitem ], unit -> unit) GtkSignal.t
val expand : ([> `treeitem ], unit -> unit) GtkSignal.t
end
val create : Gtk.tree_item Gobject.param list -> Gtk.tree_item Gtk.obj
external set_subtree :
[> `treeitem ] Gtk.obj -> [> `widget ] Gtk.obj -> unit
= "ml_gtk_tree_item_set_subtree"
external remove_subtree : [> `treeitem ] Gtk.obj -> unit
= "ml_gtk_tree_item_remove_subtree"
external collapse : [> `treeitem ] Gtk.obj -> unit
= "ml_gtk_tree_item_collapse"
external expand : [> `treeitem ] Gtk.obj -> unit
= "ml_gtk_tree_item_expand"
end`