Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Constants.pm
Log Message:
- more fixes to the signals, now modifiers work and there are constants for them
- iconbox now works too
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Constants.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -3 -r1.4 -r1.5
--- Constants.pm 16 Aug 2006 20:21:56 -0000 1.4
+++ Constants.pm 26 Aug 2006 17:54:09 -0000 1.5
@@ -48,7 +48,9 @@
table => [qw/TableNone TableHFill TableVFill TableHExpand TableVExpand
TableFill TableExpand TableExpandFill/],
colorpicker => [qw/ModeH ModeS ModeV ModeR ModeG ModeB/],
-
+ mouse => [qw/ModifierNone ModifierCtrl ModifierAlt ModifierShift
ModifierWin
+ LockNone LockNum LockCaps LockScroll
+ MouseNone MouseDoubleClick MouseTripleClick/],
);
my @all = ();
@@ -186,4 +188,31 @@
TableExapnd => (1<<2) | (1<<3),
TableExpandFill => (1<<0) | (1<<1) | (1<<2) | (1<<3)
-}
+};
+
+# events
+use constant {
+ ModifierNone => 0,
+ ModifierCtrl => 1 << 0,
+ ModifierAlt => 1 << 1,
+ ModifierShift => 1 << 2,
+ ModifierWin => 1 << 3,
+};
+
+use constant {
+ LockNone => 0,
+ LockNum => 1 << 0,
+ LockCaps => 1 << 1,
+ LockScroll => 1 << 2,
+};
+
+use constant {
+ MouseNone => 0,
+ MouseDoubleClick => 1 << 0,
+ MouseTripleClick => 1 << 1,
+};
+
+
+
+
+
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
