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 ()