summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
Diffstat (limited to 'win')
-rw-r--r--win/tkWinSend.c32
1 files changed, 22 insertions, 10 deletions
diff --git a/win/tkWinSend.c b/win/tkWinSend.c
index b51148e..89c2a14 100644
--- a/win/tkWinSend.c
+++ b/win/tkWinSend.c
@@ -11,7 +11,7 @@
* 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.7 2003/11/20 19:36:58 vincentdarley Exp $
+ * RCS: @(#) $Id: tkWinSend.c,v 1.8 2003/12/16 21:57:57 patthoyts Exp $
*/
#include "tkPort.h"
@@ -31,7 +31,8 @@
#define MK_E_MONIKERALREADYREGISTERED \
MAKE_HRESULT(SEVERITY_ERROR, FACILITY_ITF, 0x02A1)
-/* Package information structure.
+/*
+ * Package information structure.
* This is used to keep interpreter specific details for use when releasing
* the package resources upon interpreter deletion or package removal.
*/
@@ -120,6 +121,11 @@ Tk_SetAppName(tkwin, name)
tsdPtr = TCL_TSD_INIT(&dataKey);
interp = winPtr->mainPtr->interp;
+ /*
+ * Temporarily disabled for bug #858822
+ */
+ return name;
+
/*
* Initialise the COM library for this interpreter just once.
*/
@@ -200,6 +206,11 @@ TkGetInterpNames(interp, tkwin)
Tcl_Obj *objList = NULL;
int result = TCL_OK;
+ /*
+ * Temporarily disabled for bug #858822
+ */
+ return TCL_OK;
+
hr = GetRunningObjectTable(0, &pROT);
if(SUCCEEDED(hr)) {
IBindCtx* pBindCtx = NULL;
@@ -317,7 +328,7 @@ Tk_SendObjCmd(clientData, interp, objc, objv)
}
/*
- * FIX ME: we don't support displayPtr.
+ * We don't support displayPtr. See TIP #150.
*/
if (displayPtr) {
@@ -328,7 +339,7 @@ Tk_SendObjCmd(clientData, interp, objc, objv)
}
/* send the arguments to the foreign interp */
- /* FIX ME: async and check for local interp */
+ /* FIX ME: we need to check for local interp */
if (result == TCL_OK) {
LPDISPATCH pdisp;
result = FindInterpreterObject(interp, Tcl_GetString(objv[i]), &pdisp);
@@ -427,8 +438,7 @@ FindInterpreterObject(Tcl_Interp *interp, CONST char *name, LPDISPATCH *ppdisp)
*/
static void
-CmdDeleteProc(clientData)
- ClientData clientData; /* Pointer to the interp registration block */
+CmdDeleteProc(ClientData clientData)
{
RegisteredInterp *riPtr = (RegisteredInterp *)clientData;
@@ -647,8 +657,12 @@ RegisterInterp(CONST char *name, RegisteredInterp *riPtr)
*/
static int
-Send(LPDISPATCH pdispInterp, Tcl_Interp *interp,
- int async, ClientData clientData, int objc, Tcl_Obj *CONST objv[])
+Send(LPDISPATCH pdispInterp, /* pointer to the remote interp's COM object */
+ Tcl_Interp *interp, /* the local interpreter */
+ int async, /* flag for the calling style */
+ ClientData clientData, /* the RegisteredInterp structure for this interp */
+ int objc, /* number of arguments to be sent */
+ Tcl_Obj *CONST objv[]) /* the arguments to be sent */
{
VARIANT vCmd, vResult;
DISPPARAMS dp;
@@ -657,7 +671,6 @@ Send(LPDISPATCH pdispInterp, Tcl_Interp *interp,
HRESULT hr = S_OK, ehr = S_OK;
Tcl_Obj *cmd = NULL;
DISPID dispid;
- /*RegisteredInterp *riPtr = (RegisteredInterp *)clientData;*/
cmd = Tcl_ConcatObj(objc, objv);
@@ -906,7 +919,6 @@ SendEventProc(Tcl_Event *eventPtr, int flags)
{
int result = TCL_OK;
SendEvent *evPtr = (SendEvent *)eventPtr;
- /*ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);*/
TRACE("SendEventProc\n");