external select_all : [>`clist] obj -> unit = "ml_gtk_clist_select_all"