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

