summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl b/Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl
index a0948838046..9e628a83fcd 100644
--- a/Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl
+++ b/Master/tlpkg/tltcl/lib/tk8.6/listbox.tcl
@@ -311,13 +311,13 @@ proc ::tk::ListboxMotion {w el} {
set Priv(listboxSelection) [$w curselection]
}
while {($i < $el) && ($i < $anchor)} {
- if {[lsearch $Priv(listboxSelection) $i] >= 0} {
+ if {$i in $Priv(listboxSelection)} {
$w selection set $i
}
incr i
}
while {($i > $el) && ($i > $anchor)} {
- if {[lsearch $Priv(listboxSelection) $i] >= 0} {
+ if {$i in $Priv(listboxSelection)} {
$w selection set $i
}
incr i -1
@@ -517,7 +517,7 @@ proc ::tk::ListboxCancel w {
}
$w selection clear $first $last
while {$first <= $last} {
- if {[lsearch $Priv(listboxSelection) $first] >= 0} {
+ if {$first in $Priv(listboxSelection)} {
$w selection set $first
}
incr first