diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:05:13 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 15:05:13 +0000 |
| commit | 9fc19ef8e2dcd8bcf6a1d034b95c1de2b88e485c (patch) | |
| tree | ee28de37fe0de6137d535fee2e64ecafaffefb91 /Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm | |
| parent | 73b942cfb4ccf168f9c2b7f20a289b06f1f54a4b (diff) | |
New tlperl part II
git-svn-id: svn://tug.org/texlive/trunk@21424 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm b/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm new file mode 100644 index 00000000000..66325466e68 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm @@ -0,0 +1,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__ + |