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 | ebe99473e61961e6e6c4525ed9efe66f7c3de308 (patch) | |
| tree | b8267b8025bccdba2a79df3790081030fc9e28ec /library/iconlist.tcl | |
| parent | 32e3d179b323a56e40cf6289607a63ee9b7daa9a (diff) | |
| download | tk-ebe99473e61961e6e6c4525ed9efe66f7c3de308.zip tk-ebe99473e61961e6e6c4525ed9efe66f7c3de308.tar.gz tk-ebe99473e61961e6e6c4525ed9efe66f7c3de308.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> ";" |