[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.107, 1.108 GUI_Helpers.cpp, 1.23, 1.24

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

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

Modified Files:
	CHANGELOG GUI_Helpers.cpp 
Log Message:
Restore Original WndProc

Index: GUI_Helpers.cpp
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Helpers.cpp,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** GUI_Helpers.cpp	20 Jan 2007 17:09:22 -0000	1.23
--- GUI_Helpers.cpp	20 Jan 2007 19:45:44 -0000	1.24
***************
*** 66,69 ****
--- 66,70 ----
      // Check perlpud
      if (perlud != NULL) {
+         HWND hwnd_self = handle_From(NOTXSCALL perlud->svSelf);
  
          // Free event hash
***************
*** 89,93 ****
              /* Free into parent */
              if(SvOK(perlud->svSelf)) {
!                 HWND parent = GetParent(handle_From(NOTXSCALL perlud->svSelf));
                  if (parent != NULL && *perlud->szWindowName != '\0')  {
                      SV* SvParent = SV_SELF_FROM_WINDOW(parent);
--- 90,94 ----
              /* Free into parent */
              if(SvOK(perlud->svSelf)) {
!                 HWND parent = GetParent(hwnd_self);
                  if (parent != NULL && *perlud->szWindowName != '\0')  {
                      SV* SvParent = SV_SELF_FROM_WINDOW(parent);
***************
*** 124,127 ****
--- 125,134 ----
          }
          
+         // If we stored an original wndproc, then restore it so that
+         // WM_NCDESTORY messages get there.
+         if (perlud->WndProc) {
+             SetWindowLong(hwnd_self, GWL_WNDPROC, (LONG)(perlud->WndProc));
+         }
+         
          // Free perlpud
          safefree (perlud);

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.107
retrieving revision 1.108
diff -C2 -d -r1.107 -r1.108
*** CHANGELOG	20 Jan 2007 17:09:22 -0000	1.107
--- CHANGELOG	20 Jan 2007 19:45:44 -0000	1.108
***************
*** 6,9 ****
--- 6,14 ----
  Win32-GUI ChangeLog
  ===================
+ + [Robert May] : 20 January 2007 - Restore Original WndProc
+     - GUI_Helpers.cpp - restore the window's original wndproc
+       when freeing PERLUD, so that WM_NCDESTROY messages get
+       to the original wndproc, rather than DefwindowProc
+ 
  + [Robert May] : 20 January 2007 - Bug Fixes
      - Tooltip.xs - SetTitle method had warning and info icons
***************
*** 13,17 ****
      - Textfield.xs - re-write GetLine() to fix truncation caused by
        line number being used as a character index, and to correctly
!       return zero lenght lines
  
  + [Robert May] : 5 November 2006 - 1.05 Release
--- 18,22 ----
      - Textfield.xs - re-write GetLine() to fix truncation caused by
        line number being used as a character index, and to correctly
!       return zero length lines
  
  + [Robert May] : 5 November 2006 - 1.05 Release