diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:05:12 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:05:12 +0000 |
commit | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (patch) | |
tree | ca0f1101e45347cb24e495326330ba2c231d8612 /Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl | |
parent | 594dd57e44eba986f00b9f7f0c3f402512f75383 (diff) |
Tcl/Tk 8.6.13
git-svn-id: svn://tug.org/texlive/trunk@69897 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl b/Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl index 2b387d2afa0..0e26644a7ed 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/spinbox.tcl @@ -200,18 +200,18 @@ bind Spinbox <<SelectAll>> { bind Spinbox <<SelectNone>> { %W selection clear } -bind Spinbox <KeyPress> { +bind Spinbox <Key> { ::tk::EntryInsert %W %A } -# Ignore all Alt, Meta, and Control keypresses unless explicitly bound. +# Ignore all Alt, Meta, Control, and Mod4 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, Return, and Tab. -bind Spinbox <Alt-KeyPress> {# nothing} -bind Spinbox <Meta-KeyPress> {# nothing} -bind Spinbox <Control-KeyPress> {# nothing} +bind Spinbox <Alt-Key> {# nothing} +bind Spinbox <Meta-Key> {# nothing} +bind Spinbox <Control-Key> {# nothing} bind Spinbox <Escape> {# nothing} bind Spinbox <Return> {# nothing} bind Spinbox <KP_Enter> {# nothing} @@ -219,7 +219,8 @@ bind Spinbox <Tab> {# nothing} bind Spinbox <Prior> {# nothing} bind Spinbox <Next> {# nothing} if {[tk windowingsystem] eq "aqua"} { - bind Spinbox <Command-KeyPress> {# nothing} + bind Spinbox <Command-Key> {# nothing} + bind Spinbox <Mod4-Key> {# nothing} } # On Windows, paste is done using Shift-Insert. Shift-Insert already |