diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl index d1f9b8648e..6cfe9d0e9b 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/text.tcl @@ -292,22 +292,23 @@ bind Text <<PasteSelection>> { bind Text <Insert> { catch {tk::TextInsert %W [::tk::GetSelection %W PRIMARY]} } -bind Text <KeyPress> { +bind Text <Key> { tk::TextInsert %W %A } # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the -# <KeyPress> class binding will also fire and insert the character, +# <Key> class binding will also fire and insert the character, # which is wrong. Ditto for <Escape>. -bind Text <Alt-KeyPress> {# nothing } -bind Text <Meta-KeyPress> {# nothing} -bind Text <Control-KeyPress> {# nothing} +bind Text <Alt-Key> {# nothing } +bind Text <Meta-Key> {# nothing} +bind Text <Control-Key> {# nothing} bind Text <Escape> {# nothing} bind Text <KP_Enter> {# nothing} if {[tk windowingsystem] eq "aqua"} { - bind Text <Command-KeyPress> {# nothing} + bind Text <Command-Key> {# nothing} + bind Text <Mod4-Key> {# nothing} } # Additional emacs-like bindings: |