blob: 66325466e68b5bbcfe0cf410357419cd6b285182 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
package Tk::DragDrop::SunConst;
require Exporter;
use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/DragDrop/DragDrop/SunConst.pm#4 $
use base qw(Exporter);
@EXPORT = qw(_enter _leave _motion
ENTERLEAVE MOTION DEFAULT_SITE
MOVE_FLAG ACK_FLAG TRANSIENT_FLAG FORWARDED_FLAG
);
# Event types
sub _enter () {7};
sub _leave () {8};
sub _motion () {6};
# Site flags
sub ENTERLEAVE () {1<<0}
sub MOTION () {1<<1}
sub DEFAULT_SITE () {1<<2}
# Trigger flags
sub MOVE_FLAG () {1<<0}
sub ACK_FLAG () {1<<1}
sub TRANSIENT_FLAG () {1<<2}
sub FORWARDED_FLAG () {1<<3}
1;
__END__
|
