From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Wed, 10 Dec 2008 22:45:36 +0000 (+0000)
Subject: Updated for Tk 8.6 which is missing prolog.ps and for vfs 1.4 which no longer has... 
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=4944b90776954c9d10036b6f8a55ded09654c496;p=kitgen

Updated for Tk 8.6 which is missing prolog.ps and for vfs 1.4 which no longer has the *compat files.

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

diff --git a/setupvfs.tcl b/setupvfs.tcl
index bf37def..c7e9fe6 100644
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -93,13 +93,19 @@ set clifiles {
   lib/tcl8@/tclIndex
   lib/tcl8@/word.tcl
   lib/vfs1@/mk4vfs.tcl
-  lib/vfs1@/mk4vfscompat.tcl
   lib/vfs1@/pkgIndex.tcl
   lib/vfs1@/starkit.tcl
   lib/vfs1@/vfslib.tcl
   lib/vfs1@/vfsUtils.tcl
+  lib/vfs1@/tarvfs.tcl
   lib/vfs1@/zipvfs.tcl
-  lib/vfs1@/zipvfscompat.tcl
+}
+
+if {[package vcompare [package provide vfs] 1.4] < 0} {
+    # vfs 1.3 needed these two
+    lappend clifiles \
+        lib/vfs1@/mk4vfscompat.tcl \
+        lib/vfs1@/zipvfscompat.tcl
 }
 
 if {$lite} {
@@ -131,7 +137,6 @@ set guifiles {
   lib/tk8@/optMenu.tcl
   lib/tk8@/palette.tcl
   lib/tk8@/panedwindow.tcl
-  lib/tk8@/prolog.ps
   lib/tk8@/safetk.tcl
   lib/tk8@/scale.tcl
   lib/tk8@/scrlbar.tcl
@@ -144,6 +149,13 @@ set guifiles {
   lib/tk8@/unsupported.tcl
   lib/tk8@/xmfbox.tcl
 }
+# handle files no longer present
+foreach f { lib/tk8@/prolog.ps } {
+    set fx [string map $versmap $f]
+    if {[file exists build/files/$fx]} {
+        lappend guifiles $f
+    }
+}
 
 if {$encOpt} {
   lappend clifiles lib/tcl8@/encoding