diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-08 07:57:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-08 07:57:20 (GMT) |
| commit | c1d50f8302f80ab1939467c61bea379dd6035b1d (patch) | |
| tree | 8f3c70c5dbf1d316e82522e520a455c6c902dd81 /library/listbox.tcl | |
| parent | 78780eac5b472e24d78dd946ca88ec4dc6ddbef5 (diff) | |
| parent | 3b31d9630f305b2f6b73e57e147541bc13aa1057 (diff) | |
| download | tk-c1d50f8302f80ab1939467c61bea379dd6035b1d.zip tk-c1d50f8302f80ab1939467c61bea379dd6035b1d.tar.gz tk-c1d50f8302f80ab1939467c61bea379dd6035b1d.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/listbox.tcl')
| -rw-r--r-- | library/listbox.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/listbox.tcl b/library/listbox.tcl index b653199..bf40a39 100644 --- a/library/listbox.tcl +++ b/library/listbox.tcl @@ -327,13 +327,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 @@ -533,7 +533,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 |