Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs MANIFEST typemap
Log Message:
Etk::Shadow implementation functions
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -3 -r1.59 -r1.60
--- Etk.xs 20 Oct 2006 19:01:34 -0000 1.59
+++ Etk.xs 22 Oct 2006 15:35:48 -0000 1.60
@@ -5343,6 +5343,64 @@
OUTPUT:
RETVAL
+void
+etk_shadow_shadow_set(shadow, type, edges, radius, offset_x, offset_y, opacity)
+ Etk_Shadow *shadow
+ Etk_Shadow_Type type
+ Etk_Shadow_Edges edges
+ int radius
+ int offset_x
+ int offset_y
+ int opacity
+ ALIAS:
+ ShadowSet=1
+
+void
+etk_shadow_shadow_get(shadow)
+ Etk_Shadow *shadow
+ ALIAS:
+ ShadowGet=1
+ PPCODE:
+ Etk_Shadow_Type type;
+ Etk_Shadow_Edges edges;
+ int radius;
+ int offset_x;
+ int offset_y;
+ int opacity;
+
+ etk_shadow_shadow_get(shadow, &type, &edges, &radius, &offset_x,
&offset_y, &opacity);
+ EXTEND(SP, 6);
+ PUSHs(sv_2mortal(newSViv(type)));
+ PUSHs(sv_2mortal(newSViv(edges)));
+ PUSHs(sv_2mortal(newSViv(radius)));
+ PUSHs(sv_2mortal(newSViv(offset_x)));
+ PUSHs(sv_2mortal(newSViv(offset_y)));
+ PUSHs(sv_2mortal(newSViv(opacity)));
+
+void
+etk_shadow_shadow_color_set(shadow, r, g, b)
+ Etk_Shadow * shadow
+ int r
+ int g
+ int b
+ ALIAS:
+ ShadowColorSet=1
+
+void
+etk_shadow_shadow_color_get(shadow)
+ Etk_Shadow * shadow
+ ALIAS:
+ ShadowColorGet=1
+ PPCODE:
+ int r, g, b;
+
+ etk_shadow_shadow_color_get(shadow, &r, &g, &b);
+
+ EXTEND(SP, 3);
+ PUSHs(sv_2mortal(newSViv(r)));
+ PUSHs(sv_2mortal(newSViv(g)));
+ PUSHs(sv_2mortal(newSViv(b)));
+
MODULE = Etk::Window PACKAGE = Etk::Window PREFIX = etk_window_
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/MANIFEST,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -3 -r1.12 -r1.13
--- MANIFEST 16 Oct 2006 20:02:28 -0000 1.12
+++ MANIFEST 22 Oct 2006 15:35:48 -0000 1.13
@@ -42,6 +42,7 @@
t/Etk/Scrollbar.t
t/Etk/ScrolledView.t
t/Etk/Separator.t
+t/Etk/Shadow.t
t/Etk/Slider.t
t/Etk/StatusBar.t
t/Etk/Table.t
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/typemap,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -3 -r1.20 -r1.21
--- typemap 20 Oct 2006 19:01:34 -0000 1.20
+++ typemap 22 Oct 2006 15:35:48 -0000 1.21
@@ -115,7 +115,7 @@
Evas_Object * T_PTROBJ_ETK
Etk_Shadow * T_PTROBJ_ETK
Etk_Shadow_Type T_IV
-Etk_Shadow_Edge T_IV
+Etk_Shadow_Edges T_IV
const Etk_String * T_PTROBJ
char * T_PV
const char * T_PV
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
