From 4944b90776954c9d10036b6f8a55ded09654c496 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Wed, 10 Dec 2008 22:45:36 +0000 Subject: [PATCH] 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 --- setupvfs.tcl | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) 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 -- 2.23.0