[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [E-devel] E CVS: proto leviathan



Hey Chady,

On 6/10/06, Enlightenment CVS <noreply@cvs.enlightenment.org> wrote:
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;


How does this work right now? We need to modify the data_set call to
accept an SV* instead of a void* so we can store arbitrary perl data
into it. I'm going to take a look at it this weekend and make sure it
works.

--
Hisham Mardam Bey
MSc (Computer Science)
http://hisham.cc/
+9613609386
Codito Ergo Sum (I Code Therefore I Am)