in reply to Re^8: Drag and Drop in Tkx
in thread Drag and Drop in Tkx
Thanks for everyone's help!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"; }
Dave
|
|---|