method paste : (unit -> unit) option = Some (fun () -> v#paste)