Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs
Log Message:
follow Etk_Box changes + finish its tests
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -3 -r1.48 -r1.49
--- Etk.xs 4 Sep 2006 19:39:26 -0000 1.48
+++ Etk.xs 6 Sep 2006 19:22:50 -0000 1.49
@@ -468,7 +468,7 @@
int padding;
etk_box_child_packing_get(box, child, &fill, &padding);
- EXTEND(SP, 4);
+ EXTEND(SP, 2);
PUSHs(sv_2mortal(newSViv(fill)));
PUSHs(sv_2mortal(newSViv(padding)));
@@ -481,6 +481,30 @@
ALIAS:
ChildPackingSet=1
+void
+etk_box_child_position_get(box, child)
+ Etk_Box * box
+ Etk_Widget * child
+ ALIAS:
+ ChildPositionGet=1
+ PPCODE:
+ Etk_Box_Group group;
+ int pos;
+
+ etk_box_child_position_get(box, child, &group, &pos);
+ EXTEND(SP, 2);
+ PUSHs(sv_2mortal(newSViv(group)));
+ PUSHs(sv_2mortal(newSViv(pos)));
+
+void
+etk_box_child_position_set(box, child, group, pos)
+ Etk_Box * box
+ Etk_Widget * child
+ Etk_Box_Group group
+ int pos
+ ALIAS:
+ ChildPositionSet=1
+
Etk_Bool
etk_box_homogeneous_get(box)
Etk_Box * box
@@ -536,6 +560,14 @@
ALIAS:
InsertAt=1
+Etk_Widget *
+etk_box_child_get_at(box, group, pos)
+ Etk_Box * box
+ Etk_Box_Group group
+ int pos
+ ALIAS:
+ ChildGetAt=1
+
int
etk_box_spacing_get(box)
Etk_Box * box
-------------------------------------------------------------------------
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
