method paste () =
      match !clipboard with
        None -> ()
      | Some item ->
          self#insert_item (copy_item item) ;
          tv#selection#unselect_all ()