external column_title_active : [>`clist] obj -> int -> unit
      = "ml_gtk_clist_column_title_active"