Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
Etk.xs
Log Message:
- add ThemeFileSet to Widget
- add row_mouse_in/out events to xs
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/Etk.xs,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -3 -r1.23 -r1.24
--- Etk.xs 1 Jul 2006 20:20:22 -0000 1.23
+++ Etk.xs 4 Jul 2006 02:23:58 -0000 1.24
@@ -97,10 +97,10 @@
HV *event_hv;
SV *event_rv;
cbd = data;
- event_hv = (HV*)sv_2mortal((SV*)newHV());
if(!strcmp(cbd->signal_name, "mouse_up"))
{
+ event_hv = (HV*)sv_2mortal((SV*)newHV());
event_rv = newSViv(event->canvas.x);
hv_store(event_hv, "canvas_x", strlen("canvas_x"), event_rv, 0);
event_rv = newSViv(event->canvas.y);
@@ -110,9 +110,34 @@
event_rv = newSViv(event->widget.y);
hv_store(event_hv, "widget_y", strlen("widget_y"), event_rv, 0);
event_rv = newRV((SV*)event_hv);
- }
+ }
+ else if(!strcmp(cbd->signal_name, "row_mouse_in"))
+ {
+ SV *row_rv;
+ HV *row_hv;
+ row_rv = newRV(newSViv(0));
+ sv_setref_iv(row_rv, "Etk_Tree_RowPtr", (IV) value);
+ row_hv = newHV();
+ hv_store(row_hv, "WIDGET", strlen("WIDGET"), row_rv, 0);
+ event_rv = newRV((SV*)row_hv);
+ sv_bless(event_rv, gv_stashpv("Etk::Tree::Row", FALSE));
+ }
+ else if(!strcmp(cbd->signal_name, "row_mouse_out"))
+ {
+ SV *row_rv;
+ HV *row_hv;
+ row_rv = newRV(newSViv(0));
+ sv_setref_iv(row_rv, "Etk_Tree_RowPtr", (IV) value);
+ row_hv = newHV();
+ hv_store(row_hv, "WIDGET", strlen("WIDGET"), row_rv, 0);
+ event_rv = newRV((SV*)row_hv);
+ sv_bless(event_rv, gv_stashpv("Etk::Tree::Row", FALSE));
+ }
else
- event_rv = newRV((SV*)event_hv);
+ {
+ event_hv = (HV*)sv_2mortal((SV*)newHV());
+ event_rv = newRV((SV*)event_hv);
+ }
PUSHMARK(SP) ;
XPUSHs(sv_2mortal(event_rv));
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
