method private _set_column_model = fun (model : #column_store) ->
    current_column_model <- model;
    column_view.col_view#set_model (Some model#coerce)