From 9cbfbd034eadccd7a7b0e8dbca255772563e12a1 Mon Sep 17 00:00:00 2001
From: hypnotoad <yoda@etoyoc.com>
Date: Thu, 13 Nov 2014 15:50:08 +0000
Subject: Add a mode for injecting the TkDll into the VFS

---
 tools/mkVfs.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tools/mkVfs.tcl b/tools/mkVfs.tcl
index bc6f3aa..e670775 100644
--- a/tools/mkVfs.tcl
+++ b/tools/mkVfs.tcl
@@ -60,6 +60,8 @@ if {[llength $argv] < 3} {
 set TCL_SCRIPT_DIR [lindex $argv 0]
 set TCLSRC_ROOT    [lindex $argv 1]
 set PLATFORM       [lindex $argv 2]
+set TKDLL          [lindex $argv 3]
+set TKVER          [lindex $argv 4]
 
 puts "Building [file tail $TCL_SCRIPT_DIR] for $PLATFORM"
 copyDir ${TCLSRC_ROOT}/library ${TCL_SCRIPT_DIR}
@@ -89,5 +91,9 @@ puts $fout {#
 #
 set VFSROOT $dir
 }
+if {$TKDLL ne {} && [file exists $TKDLL]} {
+  file copy $TKDLL ${TCL_SCRIPT_DIR}
+  puts $fout [list package ifneeded Tk $TKVER "load \$dir $TKDLL"]
+}
 pkgIndexDir ${TCL_SCRIPT_DIR} $fout ${TCL_SCRIPT_DIR}
 close $fout
-- 
cgit v0.12