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