It's very easy to make terrible mistakes in the XS part. Devel::LeakTrace helps. I don't like leaks in MessageLoop events.
I'll have a look at that module.
No, more like:
-onDragDrop => sub {
my ($win, $drag) = @_; # dragged to win
print "Mouse: ", join(", ", $drag->MousePosition), "\n";
print "Files: ", join(", ", $drag->Files), "\n";
}
Looks good. Is there any chance that you could provide a simple working example that could also be added to CVS?
Cheers, jez.
