From f25e975cf7cf42ae593699332f6bfda743d1c21b Mon Sep 17 00:00:00 2001 From: Daniel Steffen Date: Mon, 8 Apr 2002 10:42:16 +0000 Subject: [PATCH] 2002-04-08 Daniel Steffen * mac/pkgIndex_mac.tcl: synced to generic/pkgIndex.tcl --- ChangeLog | 5 ++++- mac/pkgIndex_mac.tcl | 13 +++++++++++++ 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 246e520..f1a51e3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ +2002-04-08 Daniel Steffen + * mac/pkgIndex_mac.tcl: synced to generic/pkgIndex.tcl + 2002-04-01 Vince Darley - * Makefile.in: compilation fix from jcw. + * Makefile.in: compilation fix from jcw. 2002-03-16 Vince Darley * generic/vfs.c: updated for latest cvs head of Tcl 8.4a5. diff --git a/mac/pkgIndex_mac.tcl b/mac/pkgIndex_mac.tcl index 8082439..43a98ca 100644 --- a/mac/pkgIndex_mac.tcl +++ b/mac/pkgIndex_mac.tcl @@ -1,5 +1,18 @@ # Tcl package index file, version 1.1 +# We don't really want to throw an error with older versions of +# Tcl, they should just ignore us. +if {[package provide Tcl] < 8.4} { + return +} + +package require Tcl 8.4 +if {[info tclversion] == 8.4} { + if {[regexp {8.4a(1|2|3|4)} [info patchlevel]]} { + error "Tcl 8.4a5 (March 20th 2002) or newer is required" + } +} + package ifneeded vfs 1.0 "load [list [file join $dir Vfs[info sharedlibextension]]] vfs source -rsrc vfs:tclIndex" -- 2.23.0