[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-Scintilla Scintilla.xs, 1.4, 1.5

[jw <jw...@us...>]

Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24291/Win32-GUI-Scintilla

Modified Files:
	Scintilla.xs 
Log Message:
Initial change to build with a 64bit compiler

Index: Scintilla.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla/Scintilla.xs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Scintilla.xs	31 Jan 2008 00:34:19 -0000	1.4
--- Scintilla.xs	8 Apr 2010 21:26:48 -0000	1.5
***************
*** 197,201 ****
        if (memcmp (Name, "Scintilla", 9) == 0)
        {
!         LPPERLWIN32GUI_USERDATA perlud = (LPPERLWIN32GUI_USERDATA) GetWindowLong(lpnmhdr->hwndFrom, GWL_USERDATA);
  
          if (perlud != NULL)
--- 197,201 ----
        if (memcmp (Name, "Scintilla", 9) == 0)
        {
!         LPPERLWIN32GUI_USERDATA perlud = (LPPERLWIN32GUI_USERDATA) GetWindowLongPtr (lpnmhdr->hwndFrom, GWLP_USERDATA);
  
          if (perlud != NULL)
***************
*** 223,227 ****
        {
          // Perl contexte
!         LPPERLWIN32GUI_USERDATA perlud = (LPPERLWIN32GUI_USERDATA) GetWindowLong((HWND) msg->lParam, GWL_USERDATA);
          if (perlud != NULL)
          {
--- 223,227 ----
        {
          // Perl contexte
!         LPPERLWIN32GUI_USERDATA perlud = (LPPERLWIN32GUI_USERDATA) GetWindowLongPtr((HWND) msg->lParam, GWLP_USERDATA);
          if (perlud != NULL)
          {