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