in reply to Re^8: Drag and Drop in Tkx
in thread Drag and Drop in Tkx

With some help from you guys and some people at www.nntp.perl.org/group/perl.tcltk, I was able to get Drag and Drop to work from an external application (Windows Explorer) into my Perl/Tkx program. First I needed to get the tkdnd TCL files from sourceforge. Then, because of limitations on my work PC where we all have to use the same version of Perl, I could not install tkdnd, so I simply copied them to a directory on my drive (D:/dss/perl/tk/tkx/lib). Then, the following script works:
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"; }
Thanks for everyone's help!

Dave