Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs TODO
Log Message:
- implement first event structure, "mouse_up"
- fixes to Etk::Iconbox
- finish iconbox test
- misc cleanups
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -3 -r1.14 -r1.15
--- Etk.xs 11 Jun 2006 18:59:27 -0000 1.14
+++ Etk.xs 13 Jun 2006 00:13:44 -0000 1.15
@@ -93,11 +93,29 @@
{
dSP;
Callback_Signal_Data *cbd = NULL;
-
+ Etk_Event_Mouse_Up_Down *event = value;
+ HV *event_hv;
+ SV *event_rv;
cbd = data;
+
+ event_hv = (HV*)sv_2mortal((SV*)newHV());
+
+ if(!strcmp(cbd->signal_name, "mouse_up"))
+ {
+ event_rv = newSViv(event->canvas.x);
+ hv_store(event_hv, "canvas_x", strlen("canvas_x"), event_rv, 0);
+ event_rv = newSViv(event->canvas.y);
+ hv_store(event_hv, "canvas_y", strlen("canvas_y"), event_rv, 0);
+ event_rv = newSViv(event->widget.x);
+ hv_store(event_hv, "widget_x", strlen("widget_x"), event_rv, 0);
+ event_rv = newSViv(event->widget.y);
+ hv_store(event_hv, "widget_y", strlen("widget_y"), event_rv, 0);
+ event_rv = newRV(event_hv);
+ }
+
PUSHMARK(SP) ;
- //XPUSHs(sv_2mortal(newSViv(value)));
+ XPUSHs(sv_2mortal(event_rv));
XPUSHs(sv_2mortal(newSVsv(cbd->perl_data)));
PUTBACK ;
@@ -1392,27 +1410,27 @@
Etk_Iconbox_Icon *
etk_iconbox_append(iconbox, filename, edje_group, label)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
char * filename
char * edje_group
char * label
void
etk_iconbox_clear(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
Etk_Iconbox_Model *
etk_iconbox_current_model_get(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
void
etk_iconbox_current_model_set(iconbox, model)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
Etk_Iconbox_Model * model
void
etk_iconbox_freeze(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
SV *
etk_iconbox_icon_data_get(icon)
@@ -1454,7 +1472,7 @@
Etk_Iconbox_Icon *
etk_iconbox_icon_get_at_xy(iconbox, x, y, over_cell, over_icon, over_label)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
int x
int y
Etk_Bool over_cell
@@ -1565,25 +1583,25 @@
Etk_Iconbox_Model *
etk_iconbox_model_new(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
Etk_Widget *
etk_iconbox_new()
void
etk_iconbox_select_all(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
void
etk_iconbox_thaw(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
Etk_Type *
etk_iconbox_type_get()
void
etk_iconbox_unselect_all(iconbox)
- Etk_Iconbox * iconbox
+ Etk_Widget * iconbox
void
etk_image_copy(dest_image, src_image)
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/TODO,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- TODO 9 Jun 2006 08:13:35 -0000 1.3
+++ TODO 13 Jun 2006 00:13:44 -0000 1.4
@@ -7,7 +7,6 @@
to return a list of values to the perl caller
- finish remaining signal_connect functions (swapped etc.)
- perldoc everything
-- wrap up functions that use (...): important ones are combo for now
- create an evas_list to perl list converter
- go over all enums and structs and port as needed
- etk_argument.h
@@ -28,3 +27,4 @@
- etk_types.h
- etk_utils.h
- etk_main.h [DONE]
+- wrap up functions that use (...): important ones are combo for now [DONE]
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
