external expand_all : [>`treeview] obj -> unit
    = "ml_gtk_tree_view_expand_all"