external set_hadjustment : [>`clist] obj -> [>`adjustment] obj -> unit = "ml_gtk_clist_set_hadjustment"