Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs
Log Message:
add data to rest of callbacks
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -3 -r1.6 -r1.7
--- Etk.xs 8 Jun 2006 22:01:36 -0000 1.6
+++ Etk.xs 8 Jun 2006 22:05:45 -0000 1.7
@@ -46,6 +46,7 @@
PUSHMARK(SP) ;
XPUSHs(sv_2mortal(newSViv(value)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -62,6 +63,7 @@
PUSHMARK(SP) ;
XPUSHs(sv_2mortal(newSVnv(value)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -78,6 +80,7 @@
PUSHMARK(SP) ;
//XPUSHs(sv_2mortal(newSViv(value)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -94,6 +97,7 @@
PUSHMARK(SP) ;
//XPUSHs(sv_2mortal(newSViv(value)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -110,6 +114,7 @@
PUSHMARK(SP) ;
XPUSHs(sv_2mortal(newSViv(val1)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -125,6 +130,7 @@
cbd = data;
PUSHMARK(SP) ;
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -140,7 +146,8 @@
cbd = data;
PUSHMARK(SP) ;
- XPUSHs(sv_2mortal(newSVnv(value)));
+ XPUSHs(sv_2mortal(newSVnv(value)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
@@ -157,6 +164,7 @@
PUSHMARK(SP) ;
//XPUSHs(sv_2mortal(newSViv(value)));
+ XPUSHs(sv_2mortal(newSVsv(cbd->data)));
PUTBACK ;
/* Call the Perl sub */
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
