Hi I just finished adding DragDrop to Win32::GUI. I didn't like the Loft methods and it's Win32::API dependency, so it's a good GUI.xs and Window.xs integration with the "DropFiles" NEM and OEM events supported. Attached is the generated pod and patch.
A Window can use the -dropfiles => 0|1 option to accept dropping files, or the DragAcceptFiles() method. The event can be registered via <name>_DropFiles or via -onDropFiles. Sample: sub Main_DropFiles { # check if called as method or function if ($_[0] =~ /Win32::GUI::(Window|DialogBox)/) { shift; } # now the DragDrop handle should be on the stack. (not an object yet though) my $files = Win32::GUI::DragDrop::DragQueryFiles(shift); return 0 unless @$files; ... } Some notes: The DragDrop handle passed to the event is no object yet. So only the function call is supported yet, not as method. sub win_DropFiles { $files = $_[0]->DragQueryFiles(); } # invalid! I didn't care to stash the handle in XS yet. It's just a long. -- Reini Urban http://phpwiki.org/ http://spacemovie.mur.at/ http://helsinki.at/
DragDrop.pod
Description: Binary data
dragdrop.patch
Description: Binary data