package Tk
::DragDrop
::SunConst
;
$VERSION = '3.015'; # $Id: //depot/Tk8/DragDrop/DragDrop/SunConst.pm#15 $
@EXPORT = qw(_enter _leave _motion
ENTERLEAVE MOTION DEFAULT_SITE
MOVE_FLAG ACK_FLAG TRANSIENT_FLAG FORWARDED_FLAG
sub DEFAULT_SITE
() {1<<2}
sub TRANSIENT_FLAG
() {1<<2}
sub FORWARDED_FLAG
() {1<<3}