summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl b/Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl
index eed7476772e..34b19d02662 100644
--- a/Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl
+++ b/Master/tlpkg/tltcl/lib/tk8.6/iconlist.tcl
@@ -26,7 +26,7 @@
# <path> selection includes <item>
# <path> selection set <first> ?<last>?
-package require Tk 8.6
+package require Tk
::tk::Megawidget create ::tk::IconList ::tk::FocusableWidget {
variable w canvas sbar accel accelCB fill font index \
@@ -697,7 +697,7 @@ package require Tk 8.6
}
}
- if {$theIndex > -1} {
+ if {$theIndex >= 0} {
$w selection clear 0 end
$w selection set $theIndex
$w selection anchor $theIndex