external set_button_actions : [>`clist] obj -> int -> button_action list -> unit = "ml_gtk_clist_set_button_actions"