method set_components = fun components -> view.cv_view#set_model (None); List.iter (fun data -> model#prepend_data data) components; view.cv_view#set_model (Some model#coerce)