summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/itcl4.2.0/pkgIndex.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/itcl4.2.0/pkgIndex.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/itcl4.2.0/pkgIndex.tcl21
1 files changed, 21 insertions, 0 deletions
diff --git a/Master/tlpkg/tltcl/lib/itcl4.2.0/pkgIndex.tcl b/Master/tlpkg/tltcl/lib/itcl4.2.0/pkgIndex.tcl
new file mode 100644
index 00000000000..b8fb0e54539
--- /dev/null
+++ b/Master/tlpkg/tltcl/lib/itcl4.2.0/pkgIndex.tcl
@@ -0,0 +1,21 @@
+# Tcl package index file, version 1.0
+#
+# Do NOT try this command
+#
+# if {![package vsatisfies [package provide Tcl] 8.6-]} {return}
+#
+# as a way to accept working with all of Tcl 8.6, Tcl 8.X, X>6, and
+# Tcl Y, for Y > 8.
+# Itcl is a binary package, added to an interp with [load].
+# There is no libitcl.so that will [load] into both Tcl 8 and Tcl 9.
+# The indexed libitcl.so was built to [load] into one or the other.
+# Thus the pkgIndex.tcl should only accept the version of Tcl for which
+# the indexed itcl420.dll was built.
+#
+# More work replacing the literal "8.6" below with the proper value substituted
+# by configure is the right way forward.
+
+if {![package vsatisfies [package provide Tcl] 8.6]} {return}
+
+package ifneeded itcl 4.2.0 [list load [file join $dir "itcl420.dll"] itcl]
+package ifneeded Itcl 4.2.0 [list load [file join $dir "itcl420.dll"] itcl]