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/listbox.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/listbox.tcl')
-rw-r--r-- | library/listbox.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index 99047f4..eae513a 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -81,16 +81,16 @@ bind Listbox <Down> { bind Listbox <Shift-Down> { tk::ListboxExtendUpDown %W 1 } -bind Listbox <Left> { +bind Listbox <<PrevChar>> { %W xview scroll -1 units } -bind Listbox <Control-Left> { +bind Listbox <<PrevWord>> { %W xview scroll -1 pages } -bind Listbox <Right> { +bind Listbox <<NextChar>> { %W xview scroll 1 units } -bind Listbox <Control-Right> { +bind Listbox <<NextWord>> { %W xview scroll 1 pages } bind Listbox <Prior> { @@ -107,10 +107,10 @@ bind Listbox <Control-Prior> { bind Listbox <Control-Next> { %W xview scroll 1 pages } -bind Listbox <Home> { +bind Listbox <<LineStart>> { %W xview moveto 0 } -bind Listbox <End> { +bind Listbox <<LineEnd>> { %W xview moveto 1 } bind Listbox <Control-Home> { |