Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs const-c.inc test.pl
Log Message:
compile again.
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -3 -r1.4 -r1.5
--- Etk.xs 8 Jun 2006 16:04:23 -0000 1.4
+++ Etk.xs 8 Jun 2006 21:58:33 -0000 1.5
@@ -29,6 +29,7 @@
cbd = data;
PUSHMARK(SP);
+ //XPUSHs(sv_2mortal(newSV
PUTBACK ;
/* Call the Perl sub */
@@ -2087,14 +2088,13 @@
Etk_Bool swapped
void
-etk_signal_connect(signal_name, object, callback)
- char * signal_name
+etk_signal_connect(signal_name, object, callback, data)
+ char * signal_name
Etk_Widget * object
- SV * callback
+ SV * callback
+ SV * data
CODE:
-/*, data */
-/* void * data */
Callback_Data *cbd = NULL;
Etk_Signal *sig = NULL;
Etk_Marshaller marsh;
@@ -2102,7 +2102,7 @@
cbd = calloc(1, sizeof(Callback_Data));
cbd->signal_name = strdup(signal_name);
cbd->object = object;
-// cbd->data = data;
+ cbd->data = newSVsv(data);
cbd->sv = newSVsv(callback);
sig = etk_signal_lookup(signal_name, ETK_OBJECT(object)->type);
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/const-c.inc,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -3 -r1.4 -r1.5
--- const-c.inc 8 Jun 2006 16:04:23 -0000 1.4
+++ const-c.inc 8 Jun 2006 21:58:33 -0000 1.5
@@ -33,7 +33,7 @@
Regenerate these constant functions by feeding this entire source file to
perl -x
-#!/usr/bin/perl5.8.6 -w
+#!perl -w
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
my $types = {map {($_, 1)} qw()};
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/test.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- test.pl 7 Jun 2006 11:58:33 -0000 1.1
+++ test.pl 8 Jun 2006 21:58:33 -0000 1.2
@@ -38,7 +38,7 @@
$win->Add($vbox);
$win->ShowAll();
-$button1->SignalConnect("clicked", \&click_cb1);
+$button1->SignalConnect("clicked", \&click_cb1, "click_cb1_data");
$button2->SignalConnect("clicked", \&click_cb2);
$win->SignalConnect("delete_event", \&quit_cb);
@@ -47,7 +47,8 @@
sub click_cb1
{
- print "click_cb1!\n";
+ my $data = shift;
+ print "click_cb1! (data=$data)\n";
my ($padding, $expand, $fill, $pack_end) =
$vbox->ChildPackingGet($button1);
print "padding = $padding, expand = $expand, fill = $fill, pack_end =
$pack_end\n";
}
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
