[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.95, 1.96 GUI_Helpers.cpp, 1.20, 1.21

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