diff options
| author | hypnotoad <yoda@etoyoc.com> | 2014-11-13 15:50:08 (GMT) |
|---|---|---|
| committer | hypnotoad <yoda@etoyoc.com> | 2014-11-13 15:50:08 (GMT) |
| commit | 93007a3558a3fd64ee64bcab00efdc568b238656 (patch) | |
| tree | 7c6179cb1ea508e40748d96eb833ad1c9f330755 | |
| parent | 54e1e70426a6cc47bcf217af19824f160628559b (diff) | |
| download | tcl-93007a3558a3fd64ee64bcab00efdc568b238656.zip tcl-93007a3558a3fd64ee64bcab00efdc568b238656.tar.gz tcl-93007a3558a3fd64ee64bcab00efdc568b238656.tar.bz2 | |
Add a mode for injecting the TkDll into the VFS
| -rw-r--r-- | tools/mkVfs.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
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
|