1 /////////////////////////////////////////////////////////////////////////////
2 // Name: ext/dnd/DND.xs
3 // Purpose: XS for Drag'n'Drop and Clipboard
4 // Author: Mattia Barbon
7 // RCS-ID: $Id: DND.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 // Copyright: (c) 2001-2004 Mattia Barbon
9 // Licence: This program is free software; you can redistribute it and/or
10 // modify it under the same terms as Perl itself
11 /////////////////////////////////////////////////////////////////////////////
13 #define PERL_NO_GET_CONTEXT
15 #include "cpp/wxapi.h"
19 #include <wx/dataobj.h>
20 #include "cpp/dn_constants.cpp"
22 typedef wxDataObjectBase::Direction Direction;
23 typedef wxDataFormat::NativeFormat NativeFormat;
25 #include <wx/dataobj.h>
30 INIT_PLI_HELPERS( wx_pli_helpers );
32 INCLUDE: XS/DataObject.xs
33 INCLUDE: XS/Clipboard.xs
35 #if wxPERL_USE_DRAG_AND_DROP
37 INCLUDE: XS/DropFiles.xs
38 INCLUDE: XS/DropSource.xs
39 INCLUDE: XS/DropTarget.xs
43 MODULE=Wx__DND PACKAGE=Wx
48 RETVAL = new wxDataFormat( wxDF_TEXT );
54 RETVAL = new wxDataFormat( wxDF_BITMAP );
57 #if defined(__WXMSW__)
62 RETVAL = new wxDataFormat( wxDF_METAFILE );
70 RETVAL = new wxDataFormat( wxDF_FILENAME );
74 #if defined(__WXMSW__)
76 #define XS( name ) WXXS( name )