package MyDragDrop
@ISA = qw()

sub new
my ($module) = @_;
return bless $self, ref($module) || $module;

sub SetDropSite
my ($this, $widget, @a) = @_;

sub ConfigureDrop
my ($this, $AcceptWidget, @ConfigArray) = @_;
					-dropcommand => sub { $this->AcceptDrop($AcceptWidget, \@ConfigArray, 

sub AcceptDrop
my ($this, $widget, $pConfigArray, $selection, $a, $b, $c) = @_;