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