diff options
| author | surles <surles@noemail.net> | 1998-08-03 18:30:30 (GMT) |
|---|---|---|
| committer | surles <surles@noemail.net> | 1998-08-03 18:30:30 (GMT) |
| commit | 0ec915f9371da0677b678dbca6dabe3274326895 (patch) | |
| tree | 2a952ce123e7276eb42e4c2f0304cf92d3e36069 | |
| parent | a1f889bf1f84ba517ef1eae83c74b01463cae72e (diff) | |
| download | tk-0ec915f9371da0677b678dbca6dabe3274326895.zip tk-0ec915f9371da0677b678dbca6dabe3274326895.tar.gz tk-0ec915f9371da0677b678dbca6dabe3274326895.tar.bz2 | |
Created a <<PasteSelection>> virtual event that replaces <ButtonRelease-2>
FossilOrigin-Name: 79998c99f14ef9413c46e93db5b7f812f1e2c6d4
| -rw-r--r-- | library/tk.tcl | 3 |
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> } } |