use strict;
use Tkx;

Tkx::lappend('::auto_path', 'D:/dss/perl/tk/tkx/lib');  # should be a path everyone has
Tkx::package_require('tkdnd');

my $textVar = "drag here";

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

Tkx::tkdnd__drop___target_register($entry,'*');
Tkx::bind ($entry, '<<Drop:DND_Files>>',  [ sub { AcceptDrop(shift); }, Tkx::Ev("%D")]);

Tkx::MainLoop;

sub AcceptDrop
{
    $textVar = shift;
    print "in AcceptDrop with '$textVar'\n";
}