method private click_column col =
      compare_function <- Some (behav#comparison_function col) ;
      self#update behav#needs_cvs_status