external set_text : [>`clist] obj -> int -> int -> string -> unit
      = "ml_gtk_clist_set_text"