/usr/lib/perl5/Tk/DragDrop/SunConst.pm is in perl-tk 1:804.031-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | 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__
|