From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Thu, 11 Dec 2008 00:30:37 +0000 (+0000)
Subject: Added vfs-1.4 file and fixed inclusion of prolog.ps on older versions.
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=3769452069822c58d48445290a64250067814930;p=kitgen

Added vfs-1.4 file and fixed inclusion of prolog.ps on older versions.

git-svn-id: svn://svn.equi4.com/kitgen/trunk@4454 9e558909-932a-0410-a563-af77432da1eb
---

diff --git a/files/vfs1.4-pkgIndex.tcl b/files/vfs1.4-pkgIndex.tcl
new file mode 100644
index 0000000..c3c7b85
--- /dev/null
+++ b/files/vfs1.4-pkgIndex.tcl
@@ -0,0 +1,7 @@
+package ifneeded vfs        1.4   [list load {} vfs]
+package ifneeded starkit    1.3.3 [list source [file join $dir starkit.tcl]]
+package ifneeded vfslib     1.4   [list source [file join $dir vfslib.tcl]]
+package ifneeded vfs::mk4  1.10.1 [list source [file join $dir mk4vfs.tcl]]
+package ifneeded vfs::zip   1.0.1 [list source [file join $dir zipvfs.tcl]]
+package ifneeded vfs::tar   0.91  [list source [file join $dir tarvfs.tcl]]
+
diff --git a/setupvfs.tcl b/setupvfs.tcl
index c7e9fe6..dc7a6df 100644
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -152,7 +152,7 @@ set guifiles {
 # handle files no longer present
 foreach f { lib/tk8@/prolog.ps } {
     set fx [string map $versmap $f]
-    if {[file exists build/files/$fx]} {
+    if {[file exists build/$fx]} {
         lappend guifiles $f
     }
 }