Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Tk::DragDrop::SunConst; |
2 | require Exporter; | |
3 | ||
4 | use vars qw($VERSION); | |
5 | $VERSION = '3.015'; # $Id: //depot/Tk8/DragDrop/DragDrop/SunConst.pm#15 $ | |
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 |