1 #############################################################################
2 ## Name: ext/dnd/lib/Wx/DND.pm
3 ## Purpose: Wx::DND pulls in all wxWidgets Drag'n'Drop and Clipboard
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: DND.pm 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2001-2004, 2007 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 #############################################################################
18 use vars qw($VERSION);
22 Wx::wx_boot( 'Wx::DND', $VERSION );
27 # properly setup inheritance tree
32 package Wx::DropTarget;
33 package Wx::DropFilesEvent; @ISA = qw(Wx::Event);
34 package Wx::DataObject;
35 package Wx::DataObjectSimple; @ISA = qw(Wx::DataObject);
36 package Wx::PlDataObjectSimple; @ISA = qw(Wx::DataObjectSimple);
37 package Wx::DataObjectComposite;@ISA = qw(Wx::DataObject);
38 package Wx::FileDataObject; @ISA = qw(Wx::DataObjectSimple);
39 package Wx::TextDataObject; @ISA = qw(Wx::DataObjectSimple);
40 package Wx::BitmapDataObject; @ISA = qw(Wx::DataObjectSimple);
41 package Wx::Droptarget;
42 package Wx::PlDropTarget; @ISA = qw(Wx::DropTarget);
43 package Wx::TextDropTarget; @ISA = qw(Wx::DropTarget);
44 package Wx::FileDropTarget; @ISA = qw(Wx::DropTarget);
45 package Wx::URLDataObject; @ISA = qw(Wx::DataObject);
55 use vars qw($_df_invalid $_df_bitmap $_df_text $_df_metafile $_df_filename);
57 # !parser: sub { $_[0] =~ m/^\s*\#\s*sub\s+(wx\w+)/ }