diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2005-10-14 11:59:18 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2005-10-14 11:59:18 (GMT) |
| commit | 4965c1256fe8406ebdd86e53579132a60cb3bae1 (patch) | |
| tree | a34814fa07b70ca017efa5a439984599e6c1f12b /win/tkWinSend.c | |
| parent | 850489f8ece9f474335ab0372ca7ef7e0f4633bc (diff) | |
| download | tk-4965c1256fe8406ebdd86e53579132a60cb3bae1.zip tk-4965c1256fe8406ebdd86e53579132a60cb3bae1.tar.gz tk-4965c1256fe8406ebdd86e53579132a60cb3bae1.tar.bz2 | |
* win/tkWinSend.c: Avoid using tcl internal headers and fix to
* win/tkWinSendCom.h: correctly link on all types of build (was
* win/tkWinSendCom.c: broken in static,msvcrt builds).
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. */ |