Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Object.pm
Added Files:
StatusBar.pm
Log Message:
Added statusbar
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Object.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Object.pm 8 Jun 2006 21:58:33 -0000 1.3
+++ Object.pm 10 Jun 2006 11:04:55 -0000 1.4
@@ -19,5 +19,13 @@
bless($self->{WIDGET}, $type);
}
+sub DataGet
+{
+ my $self = shift;
+ my $key = shift;
+ return undef unless $key;
+ return Etk::etk_object_data_get($self->{WIDGET}, $key);
+}
+
1;
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
