Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Constants.pm
Log Message:
- Follow etk changes
- some work on Etk::Tree and the models (still needs work)
- moved some functions into seperate files
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Constants.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Constants.pm 6 Aug 2006 14:56:14 -0000 1.3
+++ Constants.pm 16 Aug 2006 20:21:56 -0000 1.4
@@ -1,9 +1,38 @@
package Etk::Constants;
+=head1 NAME
+
+Etk::Constants - Constants to use with Etk
+
+=head1 SYNOPSIS
+
+ use Etk::Constants qw/ButtonsOk ButtonsClose/;
+ #
+ use Etk::Constants qw/:messagedialog/;
+ #
+ use Etk::Constants qw/:all/;
+
+=head1 DESCRIPTION
+
+This module contains constants to use while building Etk apps.
+The constants have numerical values which can be used instead.
+
+=head1 EXPORT
+
+None by default.
+
+=head1 EXPORTABLE
+
+ combobox fillpolicy messagedialog progressbar scrolledview
+ toplevelwidget tree textblock colorpicker all
+
+=cut
+
require Exporter;
our @ISA = qw/Exporter/;
our %EXPORT_TAGS = (
+ box => [qw/BoxStart BoxEnd BoxNone BoxExpand BoxFill
BoxExpandFill/],
combobox => [qw/ColumnTypeLabel ColumnTypeImage ColumnTypeOther/],
fillpolicy => [qw/FillNone HFill VFill HExpand VExpand/],
messagedialog=> [qw/None Warning Question Error
@@ -16,6 +45,8 @@
PointerResizeBL PointerResizeL PointerTextEdit PointerDndDrop/],
tree => [qw/ModeList ModeTree FromFile FromEdje/],
textblock => [qw/GravityLeft GravityRight/],
+ table => [qw/TableNone TableHFill TableVFill TableHExpand TableVExpand
+ TableFill TableExpand TableExpandFill/],
colorpicker => [qw/ModeH ModeS ModeV ModeR ModeG ModeB/],
);
@@ -27,6 +58,19 @@
our @EXPORT_OK = @all;
+# Box constants
+use constant
+{
+ BoxStart => 0,
+ BoxEnd => 1,
+
+ BoxNone => 0,
+ BoxExpand => 1 << 0,
+ BoxFill => 1 << 1,
+ BoxExpandFill=> (1 << 0) | (1 << 1)
+
+};
+
# Combobox Constants
use constant
{
@@ -131,3 +175,15 @@
};
+# Table Constants
+use constant {
+ TableNone => 0,
+ TableHFill => 1 << 0,
+ TableVFill => 1 << 1,
+ TableHExpand => 1 << 2,
+ TableVExpand => 1 << 3,
+ TableFill => (1<<0) | (1<<1),
+ TableExapnd => (1<<2) | (1<<3),
+ TableExpandFill => (1<<0) | (1<<1) | (1<<2) | (1<<3)
+
+}
-------------------------------------------------------------------------
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
