diff options
Diffstat (limited to 'win/tkWinSend.c')
| -rw-r--r-- | win/tkWinSend.c | 36 |
1 files changed, 17 insertions, 19 deletions
diff --git a/win/tkWinSend.c b/win/tkWinSend.c index 913de71..a6951af 100644 --- a/win/tkWinSend.c +++ b/win/tkWinSend.c @@ -10,7 +10,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.20 2009/05/13 22:03:38 patthoyts Exp $ + * RCS: @(#) $Id: tkWinSend.c,v 1.21 2010/01/13 23:08:11 nijtmans Exp $ */ #include "tkInt.h" @@ -67,8 +67,6 @@ static Tcl_ThreadDataKey dataKey; static void CmdDeleteProc(ClientData clientData); static void InterpDeleteProc(ClientData clientData, Tcl_Interp *interp); -#endif -#ifdef TK_SEND_ENABLED_ON_WINDOWS static void RevokeObjectRegistration(RegisteredInterp *riPtr); #endif static HRESULT BuildMoniker(const char *name, LPMONIKER *pmk); @@ -90,7 +88,7 @@ static Tcl_EventProc SendEventProc; #else #define TRACE 1 ? ((void)0) : SendTrace #endif - + /* *-------------------------------------------------------------- * @@ -191,7 +189,7 @@ Tk_SetAppName( return (const char *) riPtr->name; #endif /* TK_SEND_ENABLED_ON_WINDOWS */ } - + /* *---------------------------------------------------------------------- * @@ -297,7 +295,7 @@ TkGetInterpNames( return result; #endif /* TK_SEND_ENABLED_ON_WINDOWS */ } - + /* *-------------------------------------------------------------- * @@ -389,7 +387,7 @@ Tk_SendObjCmd( return result; } - + /* *-------------------------------------------------------------- * @@ -458,7 +456,7 @@ FindInterpreterObject( } return result; } - + /* *-------------------------------------------------------------- * @@ -513,7 +511,7 @@ CmdDeleteProc( ckfree(clientData); } - + /* *-------------------------------------------------------------- * @@ -558,7 +556,7 @@ RevokeObjectRegistration( } } #endif - + /* * ---------------------------------------------------------------------- * @@ -585,7 +583,7 @@ InterpDeleteProc( CoUninitialize(); } #endif - + /* * ---------------------------------------------------------------------- * @@ -628,7 +626,7 @@ BuildMoniker( } return hr; } - + /* * ---------------------------------------------------------------------- * @@ -706,7 +704,7 @@ RegisterInterp( return hr; } #endif - + /* * ---------------------------------------------------------------------- * @@ -814,7 +812,7 @@ Send( return (SUCCEEDED(hr) ? TCL_OK : TCL_ERROR); } - + /* * ---------------------------------------------------------------------- * @@ -864,7 +862,7 @@ Win32ErrorObj( return errPtr; } - + /* * ---------------------------------------------------------------------- * @@ -928,7 +926,7 @@ SetExcepInfo( } } } - + /* * ---------------------------------------------------------------------- * @@ -972,7 +970,7 @@ TkWinSend_QueueCommand( return 0; } - + /* * ---------------------------------------------------------------------- * @@ -1009,7 +1007,7 @@ SendEventProc( return 1; /* 1 to indicate the event has been handled */ } - + /* * ---------------------------------------------------------------------- * @@ -1040,7 +1038,7 @@ SendTrace( OutputDebugString(buffer); va_end(args); } - + /* * Local Variables: * mode: c |