diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-19 20:06:00 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-19 20:06:00 (GMT) |
commit | fdbf6ba60692e27d6079db2fd7b675f35f1f7727 (patch) | |
tree | d114b02dc51d4bb7b3afdf2d28ed990cb99eed1c /library/iconlist.tcl | |
parent | d409940f5d8372e7eb3613dfb06e9fd7f625b317 (diff) | |
parent | 9519ffb35649873f9567b3631d2680a2f90850ee (diff) | |
download | tk-fdbf6ba60692e27d6079db2fd7b675f35f1f7727.zip tk-fdbf6ba60692e27d6079db2fd7b675f35f1f7727.tar.gz tk-fdbf6ba60692e27d6079db2fd7b675f35f1f7727.tar.bz2 |
Merge 8.6
Diffstat (limited to 'library/iconlist.tcl')
-rw-r--r-- | library/iconlist.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/library/iconlist.tcl b/library/iconlist.tcl index fb372a3..f4b6d95 100644 --- a/library/iconlist.tcl +++ b/library/iconlist.tcl @@ -456,8 +456,11 @@ package require tk bind $canvas <<NextChar>> [namespace code {my LeftRight 1}] bind $canvas <Return> [namespace code {my ReturnKey}] bind $canvas <Key> [namespace code {my KeyPress %A}] - bind $canvas <Control-Key> ";" - bind $canvas <Alt-Key> ";" + bind $canvas <Alt-Key> {# nothing} + bind $canvas <Meta-Key> {# nothing} + bind $canvas <Control-Key> {# nothing} + bind $canvas <Command-Key> {# nothing} + bind $canvas <Mod4-Key> {# nothing} bind $canvas <FocusIn> [namespace code {my FocusIn}] bind $canvas <FocusOut> [namespace code {my FocusOut}] |