Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Object.pm
Log Message:
- Etk::Tree::* work
- etk_test tree work
- typemap fixes
- casting / blessing fixes
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Object.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Object.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Object.pm 8 Jun 2006 11:53:48 -0000 1.2
@@ -11,9 +11,12 @@
sub SignalConnect
{
- my $self = shift;
+ my $self = shift;
+ my ($type, $mem) = split /=/, "$self->{WIDGET}";
# confess "usage: \$object->SignalConnect(\"sig_name\", \\&callback)"
unless (@_ == 2);
- Etk::etk_signal_connect(shift, $self->{WIDGET}, shift);
+ Etk::etk_signal_connect(shift,
+ bless($self->{WIDGET}, "Etk_WidgetPtr"), shift);
+ bless($self->{WIDGET}, $type);
}
1;
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
