git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/blib/lib/Wx/DND.pm

   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
   5 ## Modified by:
   6 ## Created:     12/08/2001
   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 #############################################################################
  12
  13 package Wx::DND;
  14
  15 use Wx;
  16 use strict;
  17
  18 use vars qw($VERSION);
  19
  20 $VERSION = '0.01';
  21
  22 Wx::wx_boot( 'Wx::DND', $VERSION );
  23
  24 use Wx::DropSource;
  25
  26 #
  27 # properly setup inheritance tree
  28 #
  29
  30 no strict;
  31
  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);
  46
  47 use strict;
  48
  49 #
  50 # constants
  51 #
  52
  53 package Wx;
  54
  55 use vars qw($_df_invalid $_df_bitmap $_df_text $_df_metafile $_df_filename);
  56
  57 # !parser: sub { $_[0] =~ m/^\s*\#\s*sub\s+(wx\w+)/ }
  58 # !package: Wx
  59 # !tag: dnd clipboard
  60
  61 # sub wxDF_INVALID
  62 # sub wxDF_TEXT
  63 # sub wxDF_BITMAP
  64 # sub wxDF_METAFILE
  65 # sub wxDF_FILENAME
  66
  67 1;
  68
  69 # Local variables: #
  70 # mode: cperl #
  71 # End: #
  72
  73