package MyDragDrop;
#公開したいサブルーチン
#@EXPORT = qw();

use strict;

sub new
{
	my ($module) = @_;
	my $self = {}; #new Tk::DropSite();
	return bless $self, ref($module) || $module;
}

sub DropSite
{
}

sub SetDropSite
{
}

sub ConfigureDrop
{
}

sub AcceptDrop {
}

1;