diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 14:59:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 14:59:12 (GMT) |
| commit | 37ceb5fe2eba6473a2fbdb5407e449ef96345a43 (patch) | |
| tree | 57746efe1742520b75333e90185f5f1680880270 /library/iconlist.tcl | |
| parent | c022d991663c8b76a27664090d92df0ad1a01dbb (diff) | |
| download | tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.zip tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.gz tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.bz2 | |
8 new virtual events (doc not updated yet)
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 15a4f53..ce1aae2 100644 --- a/library/iconlist.tcl +++ b/library/iconlist.tcl @@ -444,8 +444,8 @@ package require Tk 8.6 bind $canvas <Control-B1-Motion> {;} bind $canvas <Shift-B1-Motion> [namespace code {my ShiftMotion1 %x %y}] - bind $canvas <Up> [namespace code {my UpDown -1}] - bind $canvas <Down> [namespace code {my UpDown 1}] + bind $canvas <<PrevLine>> [namespace code {my UpDown -1}] + bind $canvas <<NextLine>> [namespace code {my UpDown 1}] bind $canvas <<PrevChar>> [namespace code {my LeftRight -1}] bind $canvas <<NextChar>> [namespace code {my LeftRight 1}] bind $canvas <Return> [namespace code {my ReturnKey}] |