Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs
Log Message:
- some more widget work
- start of simplifying Etk usage
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -3 -r1.26 -r1.27
--- Etk.xs 5 Jul 2006 00:00:07 -0000 1.26
+++ Etk.xs 14 Jul 2006 23:53:11 -0000 1.27
@@ -4969,12 +4969,35 @@
Etk_Widget * widget
void
-etk_widget_geometry_get(widget, x, y, w, h)
+etk_widget_geometry_get(widget)
Etk_Widget * widget
- int * x
- int * y
- int * w
- int * h
+ PPCODE:
+ int x;
+ int y;
+ int w;
+ int h;
+
+ etk_widget_geometry_get(widget, &x, &y, &w, &h);
+ EXTEND(SP, 4);
+ PUSHs(sv_2mortal(newSViv(x)));
+ PUSHs(sv_2mortal(newSViv(y)));
+ PUSHs(sv_2mortal(newSViv(w)));
+ PUSHs(sv_2mortal(newSViv(h)));
+
+void
+etk_widget_inner_geometry_get(widget)
+ Etk_Widget * widget
+ PPCODE:
+ int x;
+ int y;
+ int w;
+ int h;
+ etk_widget_inner_geometry_get(widget, &x, &y, &w, &h);
+ EXTEND(SP, 4);
+ PUSHs(sv_2mortal(newSViv(x)));
+ PUSHs(sv_2mortal(newSViv(y)));
+ PUSHs(sv_2mortal(newSViv(w)));
+ PUSHs(sv_2mortal(newSViv(h)));
Etk_Bool
etk_widget_has_event_object_get(widget)
@@ -4993,14 +5016,6 @@
etk_widget_hide_all(widget)
Etk_Widget * widget
-void
-etk_widget_inner_geometry_get(widget, x, y, w, h)
- Etk_Widget * widget
- int * x
- int * y
- int * w
- int * h
-
Etk_Bool
etk_widget_is_swallowed(widget)
Etk_Widget * widget
@@ -5187,10 +5202,16 @@
char * format
void
-etk_widget_theme_object_min_size_calc(widget, w, h)
+etk_widget_theme_object_min_size_calc(widget)
Etk_Widget * widget
- int * w
- int * h
+ PPCODE:
+ int w;
+ int h;
+
+ etk_widget_theme_object_min_size_calc(widget, &w, &h);
+ EXTEND(SP, 2);
+ PUSHs(sv_2mortal(newSViv(w)));
+ PUSHs(sv_2mortal(newSViv(h)));
void
etk_widget_theme_object_part_text_set(widget, part_name, text)
-------------------------------------------------------------------------
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
