1 files changed, 33 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Tk/DropSite.pod b/Master/tlpkg/tlperl.straw/lib/Tk/DropSite.pod
new file mode 100755
index 00000000000..8ae5a199fe3
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/Tk/DropSite.pod
@@ -0,0 +1,33 @@
+=head1 NAME
+
+Tk::DropSite - Receive side of Drag & Drop abstraction
+
+=for category User Interaction
+
+=head1 SYNOPSIS
+
+ use Tk::DropSite qw(...);
+ $widget->DropSite(-entercommand => ...,
+                   -dropcommand  => ...,
+                   -motioncommand  => ...,
+                   -dropcommand  => ...,
+                  );
+
+=head1 DESCRIPTION
+
+C<DropSite> creates an object which represents a site on which things
+may be "Dropped".
+
+A DropSite provides the following methods:
+
+=over 4
+
+=item $site->Enter($token,$event)
+
+=item $site->Leave($token,$event)
+
+=item $site->Motion($token,$event)
+
+=item $site->Drop($token,$event)
+
+=back