diff options
Diffstat (limited to 'macosx/tkMacOSXSend.c')
| -rw-r--r-- | macosx/tkMacOSXSend.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/macosx/tkMacOSXSend.c b/macosx/tkMacOSXSend.c index 22afde4..f3a5785 100644 --- a/macosx/tkMacOSXSend.c +++ b/macosx/tkMacOSXSend.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXSend.c,v 1.2.2.3 2007/04/29 02:26:50 das Exp $ + * RCS: @(#) $Id: tkMacOSXSend.c,v 1.2.2.4 2007/06/04 09:28:45 das Exp $ */ #include "tkMacOSXInt.h" @@ -297,8 +297,12 @@ Tk_SetAppName( interpListPtr = riPtr; strcpy(riPtr->name, actualName); + /* + * TODO: DeleteProc + */ + Tcl_CreateObjCommand(interp, "send", Tk_SendObjCmd, - (ClientData) riPtr, NULL /* TODO: DeleteProc */); + (ClientData) riPtr, NULL); if (Tcl_IsSafe(interp)) { Tcl_HideCommand(interp, "send", "send"); } @@ -439,8 +443,8 @@ Tk_SendObjCmd( Tcl_Release((ClientData) localInterp); } else { /* - * This is a non-local request. Send the script to the server and poll - * it for a result. TODO!!! + * TODO: This is a non-local request. Send the script to the server and + * poll it for a result. */ } |