From d7b6b6424b05ed0bb48c0e0962d69bab85225698 Mon Sep 17 00:00:00 2001
From: pspjuth <pspjuth@noemail.net>
Date: Thu, 25 Jul 2002 22:12:28 +0000
Subject: Last commit missed a few lines.
FossilOrigin-Name: e1335f0164256d828632cba9b68e6a583b096499
---
mac/tkMacWm.c | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/mac/tkMacWm.c b/mac/tkMacWm.c
index ed628c3..450941b 100644
--- a/mac/tkMacWm.c
+++ b/mac/tkMacWm.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacWm.c,v 1.20 2002/07/25 21:36:08 pspjuth Exp $
+ * RCS: @(#) $Id: tkMacWm.c,v 1.21 2002/07/25 22:12:29 pspjuth Exp $
*/
#include <Gestalt.h>
@@ -690,6 +690,12 @@ TkWmDeadWindow(winPtr)
if (wmPtr == NULL) {
return;
}
+ if (wmPtr->title != NULL) {
+ ckfree(wmPtr->title);
+ }
+ if (wmPtr->iconName != NULL) {
+ ckfree(wmPtr->iconName);
+ }
if (wmPtr->hints.flags & IconPixmapHint) {
Tk_FreeBitmap(winPtr->display, wmPtr->hints.icon_pixmap);
}
--
cgit v0.12