I'm trying to add the tablelist package to my tkkit.dll (and my tkkit.dylib
on OS X).  In following Jeff Hobbs' advice, I read thru this tcltk thread:  

 <http://www.nntp.perl.org/group/perl.tcltk/2008/11/msg187.html>
http://www.nntp.perl.org/group/perl.tcltk/2008/11/msg187.html

Using that script as a guide, here's what I have come up with for my Tcl
script, although I know it isn't right:

(Win32 version)
##################################
package require vfs
package require vfs::mk4
set tkkit "C:/Perl/lib/auto/Tcl/tkkit.dll" ; # set to correct path 
file attributes $tkkit -readonly 0 ; # needs to be writable 
vfs::mk4::Mount $tkkit tkkit ; # mounts file as dir 'tkkit' 
 
[ commands above work fine, but the following lines don't work. I think they
don't work because the "tkkit/lib/tablelist4.9/pkgIndex.tcl" pathname is
invalid; however, I'm not sure what to do here as my tkkit.dll is located as
stated above, but my tablelist pkgIndex.tcl pathname is
"C:\Tcl\lib\tablelist4.9\pkgIndex.tcl", so what should I set the pkg
variable to? Do I need to copy & move my tkkit.dll file?]
 
set pkg tkkit/lib/tablelist4.9/pkgIndex.tcl # invalid pathname 
set fid [open $pkg w]
 
[didn't try these below yet]
 
puts $fid {package ifneeded tablelist 4.9 }
close $fid
vfs::unmount tkkit
exit
###################################
 
Any help is greatly appreciated.
 
Thanks a lot,
Mike

Reply via email to