external set_foreground : [>`clist] obj -> row:int -> Gdk.color Gpointer.optboxed -> unit = "ml_gtk_clist_set_foreground"