package Tk
::DragDrop
::Local
;
$VERSION = '3.005'; # $Id: //depot/Tk8/DragDrop/DragDrop/LocalDrop.pm#5 $
use base qw(Tk::DragDrop::Rect);
Tk
::DragDrop
->Type('Local');
return ($event->X - $site->X,$event->Y - $site->Y);
$cb->Call(@_,$site->XY($event));
my ($site,$token,$seln,$event) = @_;
$site->Apply(-dropcommand
=> $event, $seln);
$site->Apply(-entercommand
=> $event, 0);
my ($site,$token,$event) = @_;
$site->Apply(-entercommand
=> $event, 1);
my ($site,$token,$event) = @_;
$site->Apply(-entercommand
=> $event, 0);
my ($site,$token,$event) = @_;
$site->Apply(-motioncommand
=> $event);