external get_columns : [>`clist] obj -> int = "ml_gtk_clist_get_columns"