diff options
author | das <das> | 2007-06-03 13:44:39 (GMT) |
---|---|---|
committer | das <das> | 2007-06-03 13:44:39 (GMT) |
commit | cfcb8cf1322710fac5a0cdfeb0fa32d44135fb20 (patch) | |
tree | 9248438c5bba7b4ad8f6827e210d7109fa3b588f /macosx/tkMacOSXSend.c | |
parent | 548cd0a9199d94cff930af7f3fd282880fe94a7e (diff) | |
download | tk-cfcb8cf1322710fac5a0cdfeb0fa32d44135fb20.zip tk-cfcb8cf1322710fac5a0cdfeb0fa32d44135fb20.tar.gz tk-cfcb8cf1322710fac5a0cdfeb0fa32d44135fb20.tar.bz2 |
* macosx/tkMacOSXDraw.c: comment formatting fix for Xcode 3.0.
* macosx/tkMacOSXEmbed.c:
* macosx/tkMacOSXEntry.c:
* macosx/tkMacOSXFont.c:
* macosx/tkMacOSXKeyEvent.c:
* macosx/tkMacOSXKeyboard.c:
* macosx/tkMacOSXMenus.c:
* macosx/tkMacOSXSend.c:
* macosx/tkMacOSXSubwindows.c:
* macosx/tkMacOSXWindowEvent.c:
* macosx/tkMacOSXWm.c:
* macosx/tkMacOSXXStubs.c:
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 179beb6..8e4a701 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.6 2007/04/23 21:24:34 das Exp $ + * RCS: @(#) $Id: tkMacOSXSend.c,v 1.7 2007/06/03 13:44:40 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. */ } |