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:
Huge changes.
- todo--
Note: some things are still not complete and some still need testing.
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Iconbox/Icon.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Icon.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Icon.pm 1 Jul 2006 20:20:22 -0000 1.2
@@ -42,12 +42,15 @@
sub DataSet
{
- # TODO
+ my $self = shift;
+ my $data = shift;
+ Etk::etk_iconbox_icon_data_set($self->{WIDGET}, $data);
}
sub DataGet
{
- # TODO
+ my $self = shift;
+ return Etk::etk_iconbox_icon_data_get($self->{WIDGET});
}
sub Select
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Iconbox/Model.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Model.pm 13 Jun 2006 00:13:45 -0000 1.2
+++ Model.pm 1 Jul 2006 20:20:22 -0000 1.3
@@ -81,4 +81,17 @@
$height, $xalign, $yalign);
}
+sub LabelGeometryGet
+{
+ my $self = shift;
+ # RETURNS
+ # x
+ # y
+ # width
+ # height
+ # xalign
+ # yalign
+ return Etk::etk_iconbox_model_label_geometry_get($self->{WIDGET});
+}
+
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
