From: Enlightenment C. <no...@cv...> - 2007-01-14 14:03:40
|
Enlightenment CVS committal Author : leviathan Project : e17 Module : libs/etk-perl Dir : e17/libs/etk-perl/lib/Etk Modified Files: Constants.pm Log Message: -Add missing Window functions =================================================================== RCS file: /cvs/e/e17/libs/etk-perl/lib/Etk/Constants.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -3 -r1.11 -r1.12 --- Constants.pm 14 Jan 2007 19:09:26 -0000 1.11 +++ Constants.pm 14 Jan 2007 20:03:16 -0000 1.12 @@ -59,6 +59,7 @@ image => [qw/ImageFile ImageEdje ImageStock ImageEvasObject ImageData/], entry => [qw/ImagePrimary ImageSecondary/], popupwindow => [qw/BelowRight BelowLeft AboveRight AboveLeft/], + window => [qw/Normal Above Below/], ); my @all = (); @@ -285,3 +286,12 @@ AboveRight=>2, AboveLeft=>3 }; + +# window stacking +use constant { + Normal=>0, + Above=>1, + Below=>2 +}; + + |