diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 11:03:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 11:03:00 (GMT) |
| commit | c022d991663c8b76a27664090d92df0ad1a01dbb (patch) | |
| tree | b8267b8025bccdba2a79df3790081030fc9e28ec /library/iconlist.tcl | |
| parent | b33639f20e412831ed8724517ba70b2cdab6be57 (diff) | |
| download | tk-c022d991663c8b76a27664090d92df0ad1a01dbb.zip tk-c022d991663c8b76a27664090d92df0ad1a01dbb.tar.gz tk-c022d991663c8b76a27664090d92df0ad1a01dbb.tar.bz2 | |
[Bug 3555644]: Better use of virtual events.
Diffstat (limited to 'library/iconlist.tcl')
| -rw-r--r-- | library/iconlist.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/iconlist.tcl b/library/iconlist.tcl index fc8128d..15a4f53 100644 --- a/library/iconlist.tcl +++ b/library/iconlist.tcl @@ -446,8 +446,8 @@ package require Tk 8.6 bind $canvas <Up> [namespace code {my UpDown -1}] bind $canvas <Down> [namespace code {my UpDown 1}] - bind $canvas <Left> [namespace code {my LeftRight -1}] - bind $canvas <Right> [namespace code {my LeftRight 1}] + bind $canvas <<PrevChar>> [namespace code {my LeftRight -1}] + bind $canvas <<NextChar>> [namespace code {my LeftRight 1}] bind $canvas <Return> [namespace code {my ReturnKey}] bind $canvas <KeyPress> [namespace code {my KeyPress %A}] bind $canvas <Control-KeyPress> ";" |