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.