From: Robert M. <rob...@us...> - 2007-01-20 19:45:46
|
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 |