Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs const-c.inc typemap
Log Message:
ProgressBar work + test
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Etk.xs 7 Jun 2006 11:58:33 -0000 1.1
+++ Etk.xs 7 Jun 2006 22:26:47 -0000 1.2
@@ -5,6 +5,7 @@
#include "ppport.h"
#include <Etk.h>
+#include <Ecore.h>
#include <Ecore_Data.h>
#include "const-c.inc"
@@ -161,6 +162,24 @@
call_sv(cbd->sv, G_DISCARD);
}
+/*
+ * TODO: return the return value from the perl callback
+ */
+int
+callback_timer(void *data)
+{
+ dSP;
+ SV* cb;
+
+ cb = data;
+
+ PUSHMARK(SP) ;
+ PUTBACK ;
+
+ call_sv(cb, G_DISCARD);
+ return 1;
+}
+
MODULE = Etk PACKAGE = Etk
INCLUDE: const-xs.inc
@@ -3837,4 +3856,18 @@
char * window_class
CODE:
etk_window_wmclass_set(ETK_WINDOW(window), window_name, window_class);
+
+Ecore_Timer *
+etkpl_timer_add(interval, callback)
+ double interval
+ SV * callback
+ CODE:
+ RETVAL = ecore_timer_add(interval, callback_timer, newSVsv(callback));
+ OUTPUT:
+ RETVAL
+void
+etkpl_timer_del(timer)
+ Ecore_Timer * timer
+ CODE:
+ ecore_timerdel(timer);
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/const-c.inc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- const-c.inc 7 Jun 2006 17:37:20 -0000 1.2
+++ const-c.inc 7 Jun 2006 22:26:47 -0000 1.3
@@ -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/typemap,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- typemap 7 Jun 2006 11:58:33 -0000 1.1
+++ typemap 7 Jun 2006 22:26:47 -0000 1.2
@@ -90,6 +90,7 @@
char ** T_PTROBJ
void * T_PTROBJ
float * T_PTROBJ
+Ecore_Timer * T_PTROBJ
int ( * ) ( Etk_Tree * tree, Etk_Tree_Row * row1, Etk_Tree_Row * row2,
Etk_Tree_Col * col, void * data ) T_PTROBJ
int * T_PTROBJ
va_list T_PTROBJ
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
