Re: Drag-n-Drop in Perl/Tkx

Hi Jan,

Sorry about the delay. I've been busy with other things. I still have the
same problem.

Here is the PerlApp command line code.
perlapp --norunlib --gui --exe dnd_test_ver3_embedding_dnd_in_tkkit.exe
--perl C:\Perl\bin\perl.exe dnd_test_ver3_embedding_dnd_in_tkkit.pl

It's just the default command line code with --gui added.

Here's the code (again):
use strict;
use Tkx;

Tkx::package_require('tkdnd');
my $e;
my $mw = Tkx::widget->new(".");
my $w_edit = $mw->new_entry(-name=>".current_dir",-textvariable=>\$e);
$w_edit->g_pack(qw '-fill both -expand true');

Tkx::tkdnd__drop___target_register($w_edit,'*');
Tkx::bind ($w_edit, '<<Drop:DND_Files>>', [ sub {
      $e = shift;
      print "I have '$e'\n";
}, Tkx::Ev("%D")]);

Tkx::MainLoop;


And, here's the error report (again):
Can't create
'C:\DOCUME~1\Anthony\LOCALS~1\Temp\pdk-Anthony/auto/Tcl/Tcl.dll': Permission
denied at perlapp line 894.
BEGIN failed--compilation aborted at
/<Z:\all_files_20090303\software_development\dnd_testing\dnd_test_ver3_embedding_dnd_in_tkkit.exe>Tkx.pm
line 206.
BEGIN failed--compilation aborted at
dnd_test_ver3_embedding_dnd_in_tkkit.plline 2.

Looking forward to your response.
Laurence.