RE: Drag-n-Drop in Perl/Tkx

> Thank you again. I think we have discussed this before 
> haven't we. Can you write the smallest (complete) script to 
> show how to use tkdnd to do a simple drag and drop from say a 
> file on the desktop to a Tkx app listbox, which will show the 
> filename in the listbox?

here you go

> 
> Then, we reduce the problem to just one of installing tkdnd 
> and then packaging it with our applications. Assuming we are 
> all using something like ActiveState's PDK PerlApp program to 
> do the packaging, maybe we can come up with a nice simple solution.

first version, with more "Tcl" syntax, and I like this better;:

use strict;
use Tkx;

Tkx::eval(<<'EOS');
#the line below is just creating a widget - no "dnd" consideration
pack [entry .current_dir -textvariable ptclv_current_dir] -side left -fill x -expand 1
# and this actually makes DND work
package require tkdnd
tkdnd::drop_target register .current_dir *
bind .current_dir <<Drop:DND_Files>> {
   set ptclv_current_dir [lindex %D 0]
   puts "I have '$ptclv_current_dir'"
}
EOS

Tkx::MainLoop;



second version, with more Tkx syntax:

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;

I've tested both version, they work.
If they are not working for you, this is probably due to lack of tkdnd package.

Regards,
Vadim.