sig val collapse : ([> `treeitem ], unit -> unit) GtkSignal.t val expand : ([> `treeitem ], unit -> unit) GtkSignal.t end