summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff)
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm34
1 files changed, 0 insertions, 34 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm b/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm
deleted file mode 100755
index 66325466e68..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-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__
-