external freeze : [>`clist] obj -> unit = "ml_gtk_clist_freeze"