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/listbox.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/listbox.tcl')
-rw-r--r-- | library/listbox.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index eae513a..2715385 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -69,16 +69,16 @@ bind Listbox <B1-Enter> { tk::CancelRepeat } -bind Listbox <Up> { +bind Listbox <<PrevLine>> { tk::ListboxUpDown %W -1 } -bind Listbox <Shift-Up> { +bind Listbox <<SelectPrevLine>> { tk::ListboxExtendUpDown %W -1 } -bind Listbox <Down> { +bind Listbox <<NextLine>> { tk::ListboxUpDown %W 1 } -bind Listbox <Shift-Down> { +bind Listbox <<SelectNextLine>> { tk::ListboxExtendUpDown %W 1 } bind Listbox <<PrevChar>> { |