It could be a bit confusing that Tcl uses curly braces in a very different way compared to Perl (those are string delimeters w/o interpolation) but you do not need to go into Tcl syntax really deep.
What you wrote
should probably be$i -> call("dnd bindsource", ".perl_hlist_object", "text/uri", {\&Perl +_Sub}); $i -> call("bind", ".perl_hlist_object", "<1>", {dnd drag %W};
$i -> call("dnd", "bindsource", ".perl_hlist_object", "text/uri", \\'% +W',sub{Perl_Sub(shift)}); $i -> call("bind", ".perl_hlist_object", "<1>", 'dnd drag %W');
Also use Tcl::Tk discussion list tcltk-perl at lists.sourceforge.net
addition 1 Please refer to documentation of Tcl.pm module using perldoc Tcl, or may be http://search.cpan.org/~vkon/Tcl-0.84/Tcl.pm, so there are plenty explanations of 'call', 'icall', 'invoke' methods
Best regards,
Courage, the Cowardly Dog
In reply to Re: Tcl::Tk GUI working - Help with TkDnD through perl?
by Courage
in thread Tk Drag and Drop Between Applications
by Ardemus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |