> From: Sylvain Thibault [mailto:[EMAIL PROTECTED]
> Solution one (the solution you are working on), activate
> image::jpeg which
> is already in your tkkit.dll
> Just require the package directly:
>
> package require vfs::mk4
>
> Also there is a package missing from Jeff's script, add the line:
> package ifneeded img::base 1.3 [list load $dir/tkimg13.dll]
>
> to the script.
>
> I had to move tkkit.dll to a writable directory and then it
> worked. It
> generates a tkkit.dll slightly bigger than the original one.
tkkit.dll is updated and gets bigger? How so?
>
> Solution 2, with Activetcl installed, use its libraries by
> adding the
> teapot lib directories to ::auto_path. This gives you access
> to a lot more
> than just the Img libraries.
> You can find out where your Activetcl is mapped by:
> "puts [join $::auto_path \n]" in the tcl shell
>
> In my case this is accomplished by adding these 2 lines to my script:
>
> Tkx::lappend('::auto_path',
> 'C:/Tcl/lib/teapot/package/win32-ix86/lib');
> Tkx::lappend('::auto_path', 'C:/Tcl/lib/teapot/package/tcl/lib');
these 2 lines should not belong to your script: next time tkkit.dll will
be packaged differently, and you'll be lost and frustrated, yet direct paths
also a problem
Much better - to fix the installation.
Basically, you should be able to run:
D:\>perl -MTcl -we "(new Tcl)->Eval('package require img::jpeg')"
(if there's no package you'll get an error like this:
D:\>perl -MTcl -we "(new Tcl)->Eval('package require img::jpeg1')"
can't find package img::jpeg1 at -e line 1.
This is essential to not adopt your scripts to broken installation - you'll get
problems when install will not be broken.
Side note:
I use ActivePerl, but I do not use Tcl binary provided within ActivePerl
distribution.
I compiled myself Tcl+Tk (yet Tix and Blt but w/o teapot) so I packaged this
stuff to some 5-10 files.
But this is not the way to go for ordinary users, I guess...
Best regards,
Vadim.
