diff options
Diffstat (limited to 'win/tkWinSend.c')
| -rw-r--r-- | win/tkWinSend.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/win/tkWinSend.c b/win/tkWinSend.c index cb6523c..51d947e 100644 --- a/win/tkWinSend.c +++ b/win/tkWinSend.c @@ -11,12 +11,9 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinSend.c,v 1.9 2005/09/30 16:07:21 dgp Exp $ + * RCS: @(#) $Id: tkWinSend.c,v 1.10 2005/10/14 11:59:19 patthoyts Exp $ */ -#include "tkPort.h" -#include "tkInt.h" -#include "tclInt.h" /* TCL_TSD_INIT */ #include "tkWinSendCom.h" /* Should be defined in WTypes.h but mingw 1.0 is missing them */ @@ -113,13 +110,12 @@ Tk_SetAppName(tkwin, name) * "send" commands. Must be globally * unique. */ { - ThreadSpecificData *tsdPtr; + ThreadSpecificData *tsdPtr = NULL; TkWindow *winPtr = (TkWindow *)tkwin; RegisteredInterp *riPtr = NULL; Tcl_Interp *interp; HRESULT hr = S_OK; - tsdPtr = TCL_TSD_INIT(&dataKey); interp = winPtr->mainPtr->interp; /* @@ -127,6 +123,9 @@ Tk_SetAppName(tkwin, name) */ return name; + tsdPtr = (ThreadSpecificData *) + Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); + /* * Initialise the COM library for this interpreter just once. */ |