[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.114, 1.115 ListView.xs, 1.13, 1.14

[Robert May]

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

Modified Files:
        CHANGELOG ListView.xs 
Log Message:
Fix first arg to Listview BeginLabelEdit event (#1706901]

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.114
retrieving revision 1.115
diff -C2 -d -r1.114 -r1.115
*** CHANGELOG   15 Jul 2007 18:47:13 -0000      1.114
--- CHANGELOG   15 Jul 2007 18:52:38 -0000      1.115
***************
*** 18,21 ****
--- 18,23 ----
      - GUI_Events.cpp, GUI_MessageLoops.cpp - handle window being destroyed in
        callback by checking validity with IsWindow(hwnd) in many places
+     - Listview.xs - Correct second arg to OnBeginLabelEdit
+       [Glenn Munroe: Tracker 1706901]
  
  + [Robert May] : 20 January 2007 - Restore Original WndProc

Index: ListView.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/ListView.xs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** ListView.xs 16 Mar 2006 23:14:31 -0000      1.13
--- ListView.xs 15 Jul 2007 18:52:38 -0000      1.14
***************
*** 230,235 ****
  
          case LVN_BEGINLABELEDIT:
              PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL6, 
"BeginLabelEdit",
!                 PERLWIN32GUI_ARGTYPE_LONG, (LONG) lv_notify->iItem,
                  -1);
  
--- 230,236 ----
  
          case LVN_BEGINLABELEDIT:
+             pItem = &((LV_DISPINFO*)lParam)->item;
              PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL6, 
"BeginLabelEdit",
!                 PERLWIN32GUI_ARGTYPE_LONG, (LONG) pItem->iItem,
                  -1);