external set_selection_mode : [>`tree] obj -> selection_mode -> unit = "ml_gtk_tree_set_selection_mode"