diff options
| author | hobbs <hobbs> | 2002-04-12 10:19:49 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-04-12 10:19:49 (GMT) |
| commit | 93791c8bfb78b69e1291366e505903d721f56a51 (patch) | |
| tree | 2671c50bdfa3ee26d5bbd0bde4824ef0ad068a49 /unix | |
| parent | 507bf02647cee675e2a21bd5b1ade0a87537361b (diff) | |
| download | tk-93791c8bfb78b69e1291366e505903d721f56a51.zip tk-93791c8bfb78b69e1291366e505903d721f56a51.tar.gz tk-93791c8bfb78b69e1291366e505903d721f56a51.tar.bz2 | |
unix/tkUnixSend.c (TkSendCleanup): free send-related resources
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tkUnixSend.c | 35 |
1 files changed, 34 insertions, 1 deletions
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 14c8a7e..4962e71 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.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: tkUnixSend.c,v 1.5 2002/01/25 21:09:37 dgp Exp $ + * RCS: @(#) $Id: tkUnixSend.c,v 1.6 2002/04/12 10:19:49 hobbs Exp $ */ #include "tkPort.h" @@ -1256,6 +1256,39 @@ TkGetInterpNames(interp, tkwin) /* *-------------------------------------------------------------- * + * TkSendCleanup -- + * + * This procedure is called to free resources used by the + * communication channels for sending commands and + * receiving results. + * + * Results: + * None. + * + * Side effects: + * Frees various data structures and windows. + * + *-------------------------------------------------------------- + */ + +void +TkSendCleanup(dispPtr) + TkDisplay *dispPtr; +{ + if (dispPtr->commTkwin != NULL) { + Tk_DeleteEventHandler(dispPtr->commTkwin, PropertyChangeMask, + SendEventProc, (ClientData) dispPtr); +#ifdef PURIFY + /* Tk_DestroyWindow(dispPtr->commTkwin); */ + ckfree((char *) dispPtr->commTkwin); +#endif + dispPtr->commTkwin = NULL; + } +} + +/* + *-------------------------------------------------------------- + * * SendInit -- * * This procedure is called to initialize the |