diff options
Diffstat (limited to 'tk8.6/macosx/tkMacOSXWm.c')
| -rw-r--r-- | tk8.6/macosx/tkMacOSXWm.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tk8.6/macosx/tkMacOSXWm.c b/tk8.6/macosx/tkMacOSXWm.c index ac5f43d..3fb1a4f 100644 --- a/tk8.6/macosx/tkMacOSXWm.c +++ b/tk8.6/macosx/tkMacOSXWm.c @@ -2893,13 +2893,14 @@ WmProtocolCmd( } else { prevPtr->nextPtr = protPtr->nextPtr; } + if (protPtr->command) + ckfree(protPtr->command); Tcl_EventuallyFree(protPtr, TCL_DYNAMIC); break; } } cmd = Tcl_GetStringFromObj(objv[4], &cmdLength); if (cmdLength > 0) { - /* protPtr = ckalloc(HANDLER_SIZE(cmdLength));*/ protPtr = ckalloc(sizeof(ProtocolHandler)); protPtr->protocol = protocol; protPtr->nextPtr = wmPtr->protPtr; |