method delete ?(cut=false) () =
      match self#selected_rr with
        None -> ()
      |        Some rr ->
          let row = rr#iter in
          match store#get ~row ~column: col_data with
            Then _ | Else _ -> ()
          | _ ->
              match self#build_report_desc ~row () with
              | [] -> ()
              | rep_desc :: _ ->
                  if cut then clipboard := Some rep_desc;
                  ignore (store#remove rr#iter) ;
                  tv#selection#unselect_all ()