From: Robert M. <rob...@us...> - 2006-08-03 22:20:05
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30081 Modified Files: GUI_Events.cpp Log Message: Rework Tooltip Class Index: GUI_Events.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Events.cpp,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** GUI_Events.cpp 12 Apr 2006 20:00:06 -0000 1.13 --- GUI_Events.cpp 3 Aug 2006 22:20:02 -0000 1.14 *************** *** 501,505 **** if(!ProcessEventError(NOTXSCALL Name, &PerlResult)) { if(count > 0) { ! PerlResult = POPi; SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); --- 501,509 ---- if(!ProcessEventError(NOTXSCALL Name, &PerlResult)) { if(count > 0) { ! if(count > 1) { ! PerlResult = POPi; ! } else { ! PerlResult = 0; ! } SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); *************** *** 565,569 **** if(!ProcessEventError(NOTXSCALL EventName, &PerlResult)) { if(count > 0) { ! PerlResult = POPi; SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); --- 569,577 ---- if(!ProcessEventError(NOTXSCALL EventName, &PerlResult)) { if(count > 0) { ! if(count > 1) { ! PerlResult = POPi; ! } else { ! PerlResult = 0; ! } SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); |