external collapse_all : [>`treeview] obj -> unit
    = "ml_gtk_tree_view_collapse_all"