summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1998-08-03 18:30:30 (GMT)
committersurles <surles>1998-08-03 18:30:30 (GMT)
commit8e09cb477c787babc064f10fc963a35256bb2962 (patch)
tree2a952ce123e7276eb42e4c2f0304cf92d3e36069
parent946102f185b1d07fb3384ac40dd4eceb19ea7623 (diff)
downloadtk-8e09cb477c787babc064f10fc963a35256bb2962.zip
tk-8e09cb477c787babc064f10fc963a35256bb2962.tar.gz
tk-8e09cb477c787babc064f10fc963a35256bb2962.tar.bz2
Created a <<PasteSelection>> virtual event that replaces <ButtonRelease-2>
-rw-r--r--library/tk.tcl3
1 files changed, 3 insertions, 0 deletions
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>
}
}