Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Tree/Model
Modified Files:
IconText.pm Image.pm
Log Message:
- back to stable again.
- new Constants for all consts
- Stock can export its constants too
- more simplifications in etk_test.pl
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Model/IconText.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- IconText.pm 8 Jun 2006 11:53:48 -0000 1.2
+++ IconText.pm 20 Jul 2006 23:16:22 -0000 1.3
@@ -3,12 +3,6 @@
use vars qw(@ISA);
require Etk;
-use constant
-{
- FromFile => 0,
- FromEdje => 1
-};
-
sub new
{
my $class = shift;
@@ -26,6 +20,7 @@
my $self = shift;
my $icon_width = shift;
Etk::etk_tree_model_icon_text_icon_width_set($self->{WIDGET}, $icon_width);
+ return $self;
}
sub IconWidthGet
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Model/Image.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Image.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Image.pm 20 Jul 2006 23:16:22 -0000 1.2
@@ -3,12 +3,6 @@
use vars qw(@ISA);
require Etk;
-use constant
-{
- FromFile => 0,
- FromEdje => 1
-};
-
sub new
{
my $class = shift;
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
