summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl
index 9e628a83fc..44abfb9452 100644
--- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl
+++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/listbox.tcl
@@ -214,7 +214,7 @@ if {[tk windowingsystem] eq "x11"} {
# Support for mousewheels on Linux/Unix commonly comes through mapping
# the wheel to the extended buttons. If you have a mousewheel, find
# Linux configuration info at:
- # http://linuxreviews.org/howtos/xfree/mouse/
+ # https://linuxreviews.org/HOWTO_change_the_mouse_speed_in_X
bind Listbox <4> {
if {!$tk_strictMotif} {
%W yview scroll -5 units
@@ -296,7 +296,7 @@ proc ::tk::ListboxMotion {w el} {
}
extended {
set i $Priv(listboxPrev)
- if {$i eq ""} {
+ if {$i < 0} {
set i $el
$w selection set $el
}