diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm b/Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm deleted file mode 100644 index 0f5028ae64c..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm +++ /dev/null @@ -1,61 +0,0 @@ -package Tk::DragDrop::Local; -use strict; -use vars qw($VERSION); -$VERSION = '4.004'; # $Id: //depot/Tkutf8/DragDrop/DragDrop/LocalDrop.pm#4 $ - -use base qw(Tk::DragDrop::Rect); -require Tk::DragDrop; - -my @toplevels; - -Tk::DragDrop->Type('Local'); - -sub XY -{ - my ($site,$event) = @_; - return ($event->X - $site->X,$event->Y - $site->Y); -} - -sub Apply -{ - my $site = shift; - my $name = shift; - my $cb = $site->{$name}; - if ($cb) - { - my $event = shift; - $cb->Call(@_,$site->XY($event)); - } -} - -sub Drop -{ - my ($site,$token,$seln,$event) = @_; - $site->Apply(-dropcommand => $event, $seln); - $site->Apply(-entercommand => $event, 0); - $token->Done; -} - -sub Enter -{ - my ($site,$token,$event) = @_; - $token->AcceptDrop; - $site->Apply(-entercommand => $event, 1); -} - -sub Leave -{ - my ($site,$token,$event) = @_; - $token->RejectDrop; - $site->Apply(-entercommand => $event, 0); -} - -sub Motion -{ - my ($site,$token,$event) = @_; - $site->Apply(-motioncommand => $event); -} - -1; - -__END__ |