method copy () =
      match self#selected_rr with
        None -> ()
      | Some rr ->
          let row = rr#iter in
          let item = copy_item (store#get ~row ~column: col_data) in
          clipboard := Some item