home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _1f7d6e98812d5c18ca6ea60a2966e205 < prev    next >
Text File  |  2004-06-01  |  687b  |  35 lines
  1. package Tk::DragDrop::SunConst;
  2. require Exporter;
  3.  
  4. use vars qw($VERSION);
  5. $VERSION = '4.004'; # $Id: //depot/Tkutf8/DragDrop/DragDrop/SunConst.pm#4 $
  6.  
  7. use base  qw(Exporter);
  8.  
  9. @EXPORT = qw(_enter _leave _motion
  10.              ENTERLEAVE MOTION DEFAULT_SITE
  11.              MOVE_FLAG ACK_FLAG TRANSIENT_FLAG FORWARDED_FLAG
  12.             );
  13.  
  14. # Event types
  15. sub _enter  () {7};
  16. sub _leave  () {8};
  17. sub _motion () {6};
  18.  
  19. # Site flags
  20.  
  21. sub ENTERLEAVE   ()  {1<<0}
  22. sub MOTION       ()  {1<<1}
  23. sub DEFAULT_SITE ()  {1<<2}
  24.  
  25. # Trigger flags
  26. sub MOVE_FLAG      () {1<<0}
  27. sub ACK_FLAG       () {1<<1}
  28. sub TRANSIENT_FLAG () {1<<2}
  29. sub FORWARDED_FLAG () {1<<3}
  30.  
  31. 1;
  32.  
  33. __END__
  34.  
  35.