From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Thu, 3 Apr 2008 17:08:47 +0000 (+0000)
Subject: Dynamically create the Tk pkgIndex file when building the vfs
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=c54f088a332febfc68306182a3e12c0e3c21fa22;p=kitgen

Dynamically create the Tk pkgIndex file when building the vfs

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

diff --git a/setupvfs.tcl b/setupvfs.tcl
index cb99c7d..211ecb3 100644
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -129,7 +129,6 @@ set guifiles {
   lib/tk8@/optMenu.tcl
   lib/tk8@/palette.tcl
   lib/tk8@/panedwindow.tcl
-  lib/tk8@/pkgIndex.tcl
   lib/tk8@/prolog.ps
   lib/tk8@/safetk.tcl
   lib/tk8@/scale.tcl
@@ -312,6 +311,12 @@ if {[lsearch [info loaded] {{} Itcl}] != -1} {
     staticpkg Itcl [package provide Itcl]
 }
 
+if {[package vcompare [package provide Tcl] 8.4] == 0} {
+    set tkver $tcl_version
+} else {
+    set tkver [info patchlevel]
+}
+
 switch [lindex $argv 1] {
   cli {
     vfscopy $clifiles
@@ -319,11 +324,20 @@ switch [lindex $argv 1] {
   gui {
     vfscopy $clifiles
     vfscopy $guifiles
+    set fn $vfs/[string map $versmap lib/tk8@/pkgIndex.tcl]
+    set f [open $fn w]
+    puts $f "package ifneeded Tk $tkver {load {} Tk}"
+    close $f
   }
   dyn {
     vfscopy $clifiles
     vfscopy $guifiles
     vfscopy lib/libtk$tcl_version[info sharedlibext]
+    set f [open $vfs/[string map $versmap lib/tk8@/pkgIndex.tcl] w]
+    puts $f "package ifneeded Tk $tkver\
+      \[list load \[file join \[list \$dir\] ..\
+      libtk$tcl_version\[info sharedlibext\]\] Tk\]"
+    close $f
   }
   default {
     puts stderr "Unknown type, must be one of: cli, dyn, gui"