From 3769452069822c58d48445290a64250067814930 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Thu, 11 Dec 2008 00:30:37 +0000 Subject: [PATCH] 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 --- files/vfs1.4-pkgIndex.tcl | 7 +++++++ setupvfs.tcl | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) create mode 100644 files/vfs1.4-pkgIndex.tcl 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 } } -- 2.23.0