Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Iconbox
Modified Files:
Icon.pm Model.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/Iconbox/Icon.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Icon.pm 15 Jul 2006 19:19:05 -0000 1.3
+++ Icon.pm 20 Jul 2006 23:16:22 -0000 1.4
@@ -22,6 +22,7 @@
my $filename = shift;
my $edje_group = shift;
Etk::etk_iconbox_icon_file_set($self->{WIDGET}, $filename, $edje_group);
+ return $self;
}
sub FileGet
@@ -38,6 +39,7 @@
my $self = shift;
my $label = shift;
Etk::etk_iconbox_icon_label_set($self->{WIDGET}, $label);
+ return $self;
}
sub LabelGet
@@ -51,6 +53,7 @@
my $self = shift;
my $data = shift;
Etk::etk_iconbox_icon_data_set($self->{WIDGET}, $data);
+ return $self;
}
sub DataGet
@@ -63,12 +66,14 @@
{
my $self = shift;
Etk::etk_iconbox_icon_select($self->{WIDGET});
+ return $self;
}
sub Unselect
{
my $self = shift;
Etk::etk_iconbox_icon_unselect($self->{WIDGET});
+ return $self;
}
sub IsSelected
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Iconbox/Model.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Model.pm 1 Jul 2006 20:20:22 -0000 1.3
+++ Model.pm 20 Jul 2006 23:16:22 -0000 1.4
@@ -29,6 +29,7 @@
my $ypadding = shift;
Etk::etk_iconbox_model_geometry_set($self->{WIDGET}, $width, $height,
$xpadding, $ypadding);
+ return $self;
}
sub GeometryGet
@@ -53,6 +54,7 @@
my $keep_aspect_ratio = shift;
Etk::etk_iconbox_model_icon_geometry_set($self->{WIDGET}, $x, $y, $width,
$height, $fill, $keep_aspect_ratio);
+ return $self;
}
sub IconGeometryGet
@@ -79,6 +81,7 @@
my $yalign = shift;
Etk::etk_iconbox_model_label_geometry_set($self->{WIDGET}, $x, $y, $width,
$height, $xalign, $yalign);
+ return $self;
}
sub LabelGeometryGet
-------------------------------------------------------------------------
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
