RE: Drag and Drop in Tkx

> Another, elder way, which I do not prefer anymore, uses 
> Tcl::Tk syntax, and technically it is absolytely the same.
> 
>     $interp->packageRequire('tkdnd','2.0');
> 
>     my $w_curdir = 
> $frame->Entry(-textvariable=>\$var)->pack(-side=>'left',-expan
> d=>1,-fill=>'x');
>     $interp->tkdnd__drop_target(register => $w_curdir, "*");
>     $w_curdir->bind('<<Drop:DND_Files>>', \\'D', sub {
> 	    my (undef,undef,undef,$data) = @_;
> 	    ($$cwd_r) = $interp->SplitList($data);

sorry,
forgot to change variable name in second place... the line should be

    ($var) = $interp->SplitList($data);

> 	});

and see this "my (undef,undef,undef,$data) = @_;" - that's our discussed junk in callbacks :)


BR,
Vadim.