[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG,1.74,1.75 GUI.xs,1.52,1.53

[Robert May]

Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14839

Modified Files:
        CHANGELOG GUI.xs 
Log Message:
Fix GetKeyState for Perl 5.6 compatability

Index: GUI.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** GUI.xs      16 Mar 2006 23:14:31 -0000      1.52
--- GUI.xs      12 Apr 2006 19:49:21 -0000      1.53
***************
*** 79,91 ****
      result = (USHORT)GetKeyState(key);
      if(GIMME_V == G_ARRAY) {
!           /* list context */
!           mXPUSHu((result & 0x8000) >> 15);
!           mXPUSHu(result & 0x0001);
!           XSRETURN(2);
      }
      else {
!           /* scalar(and void) context */
!           mXPUSHu((result & 0x8000) >> 15);
!           XSRETURN(1);
      }
  
--- 79,91 ----
      result = (USHORT)GetKeyState(key);
      if(GIMME_V == G_ARRAY) {
!         /* list context */
!         EXTEND(SP, 2);
!         XST_mIV(0, (UV) ((result & 0x8000) >> 15));
!         XST_mIV(1, (UV) (result & 0x0001));
!         XSRETURN(2);
      }
      else {
!         /* scalar(and void) context */
!         XSRETURN_IV((UV) ((result & 0x8000) >> 15));
      }
  

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.74
retrieving revision 1.75
diff -C2 -d -r1.74 -r1.75
*** CHANGELOG   16 Mar 2006 23:14:31 -0000      1.74
--- CHANGELOG   12 Apr 2006 19:49:21 -0000      1.75
***************
*** 6,9 ****
--- 6,13 ----
  Win32-GUI ChangeLog
  ===================
+ + [Robert May] : 12 Apr 2006 - Fix GetKeyState
+     - GUI.xs Changed stack macros in GetKeyStae to those that exist
+       in Perl 5.6
+ 
  + [Robert May] : 16 Mar 2006 - Changes from Reini Urban
      - GUI.xs Add more options to DoEvents().  Add SetWindowPos().