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)