diff options
| author | hobbs <hobbs@noemail.net> | 2002-04-12 10:19:49 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2002-04-12 10:19:49 (GMT) |
| commit | 2c532900e03fe30c9e36174e102c8a577f39365a (patch) | |
| tree | 2671c50bdfa3ee26d5bbd0bde4824ef0ad068a49 /unix/tkUnixSend.c | |
| parent | bc0e8f57858ba214b77f7d713a88d7b4a64aa5dc (diff) | |
| download | tk-2c532900e03fe30c9e36174e102c8a577f39365a.zip tk-2c532900e03fe30c9e36174e102c8a577f39365a.tar.gz tk-2c532900e03fe30c9e36174e102c8a577f39365a.tar.bz2 | |
unix/tkUnixSend.c (TkSendCleanup): free send-related resources
FossilOrigin-Name: 1a89aadd10dc5aeb22660938001fc912c816af92
Diffstat (limited to 'unix/tkUnixSend.c')
| -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 |