Re: Drag-n-Drop in Perl/Tkx

Hi Laurence,

I want to correct your script because it's mixing a bit Perl and Tcl 
style syntax, and I want a "canonical" version for others.

On 23/02/2010 6:18 AM, Laurence Anthony wrote:
> I reinstalled the latest ActiveTcl and the tclsh85 script worked as you
> described. tkkit went from 3081KB to 3135KB. However, one line that

Yes, it is expected to increase somewhat.

> Here is the complete script (that seemed to work):

package require vfs ; # necessary for the vfs::mk4::Mount command
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'
# modify to where you installed Tcl, with lib subdir
set tcllib "C:/Tcl/lib"
# this is one of the built-in $::auto_path search areas
set tkkitlib "tkkit/lib"
# path to tkdnd lib files, complete with pkgIndex.tcl
set tkdnd "$tcllib/tkdnd2.0"
file copy -force $tkdnd $tkkitlib
vfs::unmount tkkit
exit

> I next rewrote my Perl script removing the "lappend" hack and things
> worked on my computer.

Success!  That's good.

> But, when I tried to compile with PerlApp
> everything went smoothly (with one warning) until I tried to test the
> executable, which produced an error:
>
> Can't create
> 'C:\DOCUME~1\Anthony\LOCALS~1\Temp\pdk-Anthony/auto/Tcl/Tcl.dll':
> Permission denied at perlapp line 894.

I'll leave this to Jan to answer this, but first thing is to get your 
full PerlApp command line.

Jeff