Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs
Log Message:
- back to stable again.
- new Constants for all consts
- Stock can export its constants too
- more simplifications in etk_test.pl
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -3 -r1.31 -r1.32
--- Etk.xs 18 Jul 2006 22:14:34 -0000 1.31
+++ Etk.xs 20 Jul 2006 23:16:21 -0000 1.32
@@ -2102,12 +2102,16 @@
PUSHs(sv_2mortal(newSViv(height)));
void
-etk_image_stock_get(image, stock_id, stock_size)
+etk_image_stock_get(image)
Etk_Widget * image
- Etk_Stock_Id * stock_id
- Etk_Stock_Size * stock_size
- CODE:
- etk_image_stock_get(ETK_IMAGE(image), stock_id, stock_size);
+ PPCODE:
+ Etk_Stock_Id stock_id;
+ Etk_Stock_Size stock_size;
+
+ etk_image_stock_get(ETK_IMAGE(image), &stock_id, &stock_size);
+ EXTEND(SP, 2);
+ PUSHs(sv_2mortal(newSViv(stock_id)));
+ PUSHs(sv_2mortal(newSViv(stock_size)));
Etk_Bool
etk_init()
@@ -2982,6 +2986,16 @@
CODE:
etk_range_increments_set(ETK_RANGE(range), step, page);
+void
+etk_range_increments_get(range)
+ Etk_Widget * range
+ PPCODE:
+ double step, page;
+ etk_range_increments_get(ETK_RANGE(range), &step, &page);
+ EXTEND(SP, 2);
+ PUSHs(sv_2mortal(newSVnv(step)));
+ PUSHs(sv_2mortal(newSVnv(page)));
+
double
etk_range_page_size_get(range)
Etk_Widget * range
@@ -3005,6 +3019,16 @@
CODE:
etk_range_range_set(ETK_RANGE(range), lower, upper);
+void
+etk_range_range_get(range)
+ Etk_Widget * range
+ PPCODE:
+ double lower, upper;
+ etk_range_range_get(ETK_RANGE(range), &lower, &upper);
+ EXTEND(SP, 2);
+ PUSHs(sv_2mortal(newSVnv(lower)));
+ PUSHs(sv_2mortal(newSVnv(upper)));
+
double
etk_range_value_get(range)
Etk_Widget * range
@@ -4156,16 +4180,24 @@
OUTPUT:
RETVAL
-Evas_List *
+void
etk_tree_selected_rows_get(tree)
Etk_Widget * tree
- CODE:
- Evas_List * var;
- /* FIXME */
- var = etk_tree_selected_rows_get(ETK_TREE(tree));
- RETVAL = var;
- OUTPUT:
- RETVAL
+ PPCODE:
+ Evas_List * list;
+ AV * av;
+ int i;
+
+ list = etk_tree_selected_rows_get(ETK_TREE(tree));
+ av = evas_list_to_perl(list);
+ for (i=0; i<=av_len(av); i++)
+ {
+ SV * sv;
+ sv = newRV(newSViv(0));
+ sv_setref_iv(sv, "Etk_WidgetPtr", SvIV(av_shift(av)));
+
+ XPUSHs(sv_2mortal(sv));
+ }
void
etk_tree_sort(tree, compare_cb, ascendant, col, data)
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
