summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordas <das>2009-02-06 08:14:28 (GMT)
committerdas <das>2009-02-06 08:14:28 (GMT)
commit1f997eede68e3ffe3fe7ca91b7c516ac4f06b3ea (patch)
tree2abe91563ad6a18f51a603d8c448ce85df67f85a /generic
parent9f0e53e5ba6a0596728589568db4e9b307cb9ae1 (diff)
downloadtk-1f997eede68e3ffe3fe7ca91b7c516ac4f06b3ea.zip
tk-1f997eede68e3ffe3fe7ca91b7c516ac4f06b3ea.tar.gz
tk-1f997eede68e3ffe3fe7ca91b7c516ac4f06b3ea.tar.bz2
* generic/tkImgPhoto.c: fix leaks discovered with the Mac OS X
* generic/tkMenu.c: Instruments.app Leaks tool. * macosx/tkMacOSXWm.c:
Diffstat (limited to 'generic')
-rw-r--r--generic/tkImgPhoto.c4
-rw-r--r--generic/tkMenu.c11
2 files changed, 12 insertions, 3 deletions
diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c
index 3a2c3c3..bbda26e 100644
--- a/generic/tkImgPhoto.c
+++ b/generic/tkImgPhoto.c
@@ -17,7 +17,7 @@
* Department of Computer Science,
* Australian National University.
*
- * RCS: @(#) $Id: tkImgPhoto.c,v 1.36.2.18 2007/06/23 00:26:42 das Exp $
+ * RCS: @(#) $Id: tkImgPhoto.c,v 1.36.2.19 2009/02/06 08:14:29 das Exp $
*/
#include "tkInt.h"
@@ -2478,6 +2478,8 @@ ImgPhotoGet(tkwin, masterData)
WhitePixelOfScreen(Tk_Screen(tkwin));
gcValues.background = (black != NULL)? black->pixel:
BlackPixelOfScreen(Tk_Screen(tkwin));
+ Tk_FreeColor(white);
+ Tk_FreeColor(black);
gcValues.graphics_exposures = False;
instancePtr->gc = Tk_GetGC(tkwin,
GCForeground|GCBackground|GCGraphicsExposures, &gcValues);
diff --git a/generic/tkMenu.c b/generic/tkMenu.c
index 5936e96..b2bbf88 100644
--- a/generic/tkMenu.c
+++ b/generic/tkMenu.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMenu.c,v 1.20.2.7 2006/05/25 23:51:37 hobbs Exp $
+ * RCS: @(#) $Id: tkMenu.c,v 1.20.2.8 2009/02/06 08:14:29 das Exp $
*/
/*
@@ -400,6 +400,13 @@ static Tk_ClassProcs menuClass = {
*--------------------------------------------------------------
*/
+static void
+FreeOptionTables(
+ ClientData clientData)
+{
+ ckfree(clientData);
+}
+
int
TkCreateMenuCmd(interp)
Tcl_Interp *interp; /* Interpreter we are creating the
@@ -424,7 +431,7 @@ TkCreateMenuCmd(interp)
Tk_CreateOptionTable(interp, specsArray[CHECK_BUTTON_ENTRY]);
Tcl_CreateObjCommand(interp, "menu", MenuCmd,
- (ClientData) optionTablesPtr, NULL);
+ (ClientData) optionTablesPtr, FreeOptionTables);
if (Tcl_IsSafe(interp)) {
Tcl_HideCommand(interp, "menu", "menu");