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