home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / DragDrop / SunConst.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  850 b   |  41 lines
  1. package Tk::DragDrop::SunConst;
  2. require Exporter;
  3. @ISA = qw(Exporter);
  4.  
  5. @EXPORT = qw(_enter _leave _motion 
  6.              ENTERLEAVE MOTION DEFAULT_SITE
  7.              MOVE_FLAG ACK_FLAG TRANSIENT_FLAG FORWARDED_FLAG
  8.             );
  9.  
  10. # Event types 
  11. sub _enter  {7};
  12. sub _leave  {8};
  13. sub _motion {6};
  14.  
  15. # Site flags
  16.  
  17. sub ENTERLEAVE     {1<<0}
  18. sub MOTION         {1<<1}
  19. sub DEFAULT_SITE   {1<<2}
  20.  
  21. # Trigger flags
  22. sub MOVE_FLAG      {1<<0}
  23. sub ACK_FLAG       {1<<1}
  24. sub TRANSIENT_FLAG {1<<2}
  25. sub FORWARDED_FLAG {1<<3}
  26.  
  27. 1;
  28.  
  29. __END__ 
  30.  
  31. =head1 NAME
  32.  
  33. Tk::DragDrop::SunConst - Constants for Sun's Drag&Drop protocol 
  34.  
  35. =head1 DESCRIPTION
  36.  
  37. This module defines symbolic name subs for the numeric constants that 
  38. make up Sun's Drag&Drop protocol. They are in this module with Exporter
  39. as they are shared between the two halves (Dropper and Receiver) of 
  40. the protocol.
  41.