From f6cc4da350c6d079be66b0a55b914e52ff720e7e Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Wed, 30 Sep 1998 23:46:17 +0000
Subject: Fixed memory leak in unix wm command

---
 unix/tkUnixWm.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/unix/tkUnixWm.c b/unix/tkUnixWm.c
index ccce80e..1caf65d 100644
--- a/unix/tkUnixWm.c
+++ b/unix/tkUnixWm.c
@@ -8,11 +8,12 @@
  *
  * Copyright (c) 1991-1994 The Regents of the University of California.
  * Copyright (c) 1994-1997 Sun Microsystems, Inc.
+ * Copyright (c) 1998 by Scriptics Corporation.
  *
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixWm.c,v 1.2 1998/09/14 18:23:58 stanton Exp $
+ * RCS: @(#) $Id: tkUnixWm.c,v 1.3 1998/09/30 23:46:17 rjohnson Exp $
  */
 
 #include "tkPort.h"
@@ -1324,6 +1325,9 @@ Tk_WmCmd(clientData, interp, argc, argv)
 	    interp->result = (wmPtr->iconName != NULL) ? wmPtr->iconName : "";
 	    return TCL_OK;
 	} else {
+	    if (wmPtr->iconName != NULL) {
+		ckfree(wmPtr->iconName);
+	    }
 	    wmPtr->iconName = ckalloc((unsigned) (strlen(argv[3]) + 1));
 	    strcpy(wmPtr->iconName, argv[3]);
 	    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
@@ -1723,6 +1727,9 @@ Tk_WmCmd(clientData, interp, argc, argv)
 		    : winPtr->nameUid;
 	    return TCL_OK;
 	} else {
+	    if (wmPtr->title != NULL) {
+		ckfree(wmPtr->title);
+	    }
 	    wmPtr->title = ckalloc((unsigned) (strlen(argv[3]) + 1));
 	    strcpy(wmPtr->title, argv[3]);
 	    if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
-- 
cgit v0.12