From 0ec915f9371da0677b678dbca6dabe3274326895 Mon Sep 17 00:00:00 2001
From: surles <surles@noemail.net>
Date: Mon, 3 Aug 1998 18:30:30 +0000
Subject: Created a <<PasteSelection>> virtual event that replaces
 <ButtonRelease-2>

FossilOrigin-Name: 79998c99f14ef9413c46e93db5b7f812f1e2c6d4
---
 library/tk.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/library/tk.tcl b/library/tk.tcl
index 1f88efb..5d6784a 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -121,6 +121,7 @@ switch $tcl_platform(platform) {
 	event add <<Cut>> <Control-Key-x> <Key-F20> 
 	event add <<Copy>> <Control-Key-c> <Key-F16>
 	event add <<Paste>> <Control-Key-v> <Key-F18>
+	event add <<PasteSelection>> <ButtonRelease-2>
 	trace variable tk_strictMotif w tkEventMotifBindings
 	set tk_strictMotif $tk_strictMotif
     }
@@ -128,11 +129,13 @@ switch $tcl_platform(platform) {
 	event add <<Cut>> <Control-Key-x> <Shift-Key-Delete>
 	event add <<Copy>> <Control-Key-c> <Control-Key-Insert>
 	event add <<Paste>> <Control-Key-v> <Shift-Key-Insert>
+	event add <<PasteSelection>> <ButtonRelease-2>
     }
     "macintosh" {
 	event add <<Cut>> <Control-Key-x> <Key-F2> 
 	event add <<Copy>> <Control-Key-c> <Key-F3>
 	event add <<Paste>> <Control-Key-v> <Key-F4>
+	event add <<PasteSelection>> <ButtonRelease-2>
 	event add <<Clear>> <Clear>
     }
 }
-- 
cgit v0.12