|Think about Loose Coupling|
Perl/Tk remote drag-and-dropby Anonymous Monk
|on Jun 26, 2003 at 00:50 UTC||Need Help??|
Anonymous Monk has asked for the
wisdom of the Perl Monks concerning the following question:
I was wondering if anyone had any code or links to any code that illustrated the process of getting a perl/tk widget to accept a dnd event from another application?
The only sources I have found on the whole of the internet are listed in the comp.lang.perl.tk FAQ, section 10.22, namely
http://www.perltk.org/articles/dnd/dnd.html ... and
The second article deals with local drops only, and the first - while mentioning remote drops - provides a script which does not seem to work.
In brief, I am unable to get any perl/tk widget to "accept" the drop - I drag a file over it from a XDND-compatible file-manager (ROX) and the window refuses to accept the file - or at least, the file icon does not gain a "+" sign indicating I can drop it, and my script refuses to respond to the drop event.
If there are any code examples that illustrate this, please let me know (I've searched google, lycos, and even freshmeat (looking at all perl/tk apps - none use remote drops) ... and I'm beginning to wonder if *anyone* has ever written anything that uses remote drops!!)