Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs TODO typemap
Log Message:
Image API change
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -3 -r1.63 -r1.64
--- Etk.xs 9 Dec 2006 14:54:12 -0000 1.63
+++ Etk.xs 30 Dec 2006 09:18:23 -0000 1.64
@@ -2054,11 +2054,17 @@
PUSHs(sv_2mortal(newSVpv(edje_filename, strlen(edje_filename))));
PUSHs(sv_2mortal(newSVpv(edje_group, strlen(edje_group))));
-const char *
+void
etk_image_file_get(image)
Etk_Image * image
ALIAS:
FileGet=1
+ PPCODE:
+ char * filename;
+ char * key;
+ etk_image_file_get(image, &filename, &key);
+ XPUSHs(sv_2mortal(newSVpv(filename, strlen(filename))));
+ if (key) XPUSHs(sv_2mortal(newSVpv(key, strlen(key))));
Etk_Bool
etk_image_keep_aspect_get(image)
@@ -2073,6 +2079,19 @@
ALIAS:
KeepAspectSet=1
+void
+etk_image_aspect_ratio_set(image, aspect_ratio)
+ Etk_Image * image
+ double aspect_ratio
+ ALIAS:
+ AspectRatioSet=1
+
+double
+etk_image_aspect_ratio_get(image)
+ Etk_Image * image
+ ALIAS:
+ AspectRatioGet=1
+
Etk_Image *
new(class)
SV * class
@@ -2093,12 +2112,13 @@
RETVAL
Etk_Image *
-etk_image_new_from_file(filename)
- char * filename
+etk_image_new_from_file(filename, key)
+ const char * filename
+ const char * key
ALIAS:
NewFromFile=1
CODE:
- RETVAL = ETK_IMAGE(etk_image_new_from_file(filename));
+ RETVAL = ETK_IMAGE(etk_image_new_from_file(filename, key));
OUTPUT:
RETVAL
@@ -2122,9 +2142,10 @@
SetFromEdje=1
void
-etk_image_set_from_file(image, filename)
+etk_image_set_from_file(image, filename, key)
Etk_Image * image
- char * filename
+ const char * filename
+ const char * key
ALIAS:
SetFromFile=1
@@ -2162,6 +2183,29 @@
EXTEND(SP, 2);
PUSHs(sv_2mortal(newSViv(stock_id)));
PUSHs(sv_2mortal(newSViv(stock_size)));
+
+Etk_Image_Source
+etk_image_source_get(image)
+ Etk_Image * image
+ ALIAS:
+ SourceGet=1
+
+void
+etk_image_update(image)
+ Etk_Image * image
+ ALIAS:
+ Update=1
+
+void
+etk_image_update_rect(image, x, y, w, h)
+ Etk_Image * image
+ int x
+ int y
+ int w
+ int h
+ ALIAS:
+ UpdateRect=1
+
MODULE = Etk::Label PACKAGE = Etk::Label PREFIX = etk_label_
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/TODO,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -3 -r1.19 -r1.20
--- TODO 10 Sep 2006 09:14:25 -0000 1.19
+++ TODO 30 Dec 2006 09:18:23 -0000 1.20
@@ -12,6 +12,7 @@
- Check for memory usage (I'm not sure if we're leaking or not,
need to do some tests for that)
- Fix Combobox append functions (waiting for some functionality in etk)
+ - Image new from data
BUGS:
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/typemap,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -3 -r1.23 -r1.24
--- typemap 9 Dec 2006 14:54:12 -0000 1.23
+++ typemap 30 Dec 2006 09:18:23 -0000 1.24
@@ -38,6 +38,7 @@
Etk_Iconbox_Icon * T_PTROBJ_ETK
Etk_Iconbox_Model * T_PTROBJ_ETK
Etk_Image * T_PTROBJ_ETK
+Etk_Image_Source T_IV
Etk_Label * T_PTROBJ_ETK
Etk_Marshaller T_PTROBJ
Etk_Menu * T_PTROBJ_ETK
-------------------------------------------------------------------------
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
