Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32039
Modified Files: CHANGELOG GUI_Helpers.cpp Log Message: Bug Fixes Index: GUI_Helpers.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Helpers.cpp,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** GUI_Helpers.cpp 23 Jun 2006 18:35:33 -0000 1.20 --- GUI_Helpers.cpp 3 Aug 2006 22:24:37 -0000 1.21 *************** *** 346,350 **** HDC hdc; SV** font; ! HFONT hfont; if(perlcs->cs.lpszName != NULL) { if(perlcs->cs.cx == 0 || perlcs->cs.cy == 0) { --- 346,350 ---- HDC hdc; SV** font; ! HFONT hfont, oldhfont; if(perlcs->cs.lpszName != NULL) { if(perlcs->cs.cx == 0 || perlcs->cs.cy == 0) { *************** *** 361,365 **** } } ! SelectObject(hdc, hfont); if(GetTextExtentPoint32( hdc, perlcs->cs.lpszName, strlen(perlcs->cs.lpszName), &mySize --- 361,365 ---- } } ! oldhfont = SelectObject(hdc, hfont); if(GetTextExtentPoint32( hdc, perlcs->cs.lpszName, strlen(perlcs->cs.lpszName), &mySize *************** *** 368,371 **** --- 368,372 ---- if(perlcs->cs.cy == 0) perlcs->cs.cy = mySize.cy + add_y; } + SelectObject(hdc, oldhfont); ReleaseDC(perlcs->cs.hwndParent, hdc); } Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.95 retrieving revision 1.96 diff -C2 -d -r1.95 -r1.96 *** CHANGELOG 3 Aug 2006 22:18:53 -0000 1.95 --- CHANGELOG 3 Aug 2006 22:24:37 -0000 1.96 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 3 August 2006 - Bug Fixes + - GUI_Helpers.cpp - fix potential memory leak in CalcControlSize + --- Win32::GUI::DIBitmap --- + - DIBitmap.xs - fix memory leak in AlphaCopyToDC + + [Robert May] : 3 August 2006 - Rework Tooltip class - GUI.pm, Tooltip.xs - add -noanimate and -nofade window