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