diff options
| author | surles <surles> | 1998-08-03 18:30:30 (GMT) |
|---|---|---|
| committer | surles <surles> | 1998-08-03 18:30:30 (GMT) |
| commit | 8e09cb477c787babc064f10fc963a35256bb2962 (patch) | |
| tree | 2a952ce123e7276eb42e4c2f0304cf92d3e36069 | |
| parent | 946102f185b1d07fb3384ac40dd4eceb19ea7623 (diff) | |
| download | tk-8e09cb477c787babc064f10fc963a35256bb2962.zip tk-8e09cb477c787babc064f10fc963a35256bb2962.tar.gz tk-8e09cb477c787babc064f10fc963a35256bb2962.tar.bz2 | |
Created a <<PasteSelection>> virtual event that replaces <ButtonRelease-2>
| -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> } } |