perl-win32-gui-cvscommit

[Robert M. <rob...@us...>]

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);