diff options
Diffstat (limited to 'unix/tkUnixSend.c')
| -rw-r--r-- | unix/tkUnixSend.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index eb73e14..a06d4af 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -837,7 +837,7 @@ Tk_SetAppName( riPtr->nextPtr = tsdPtr->interpListPtr; tsdPtr->interpListPtr = riPtr; riPtr->name = NULL; - Tcl_CreateObjCommand(interp, "send", Tk_SendObjCmd, riPtr, DeleteProc); + Tcl_CreateObjCommand2(interp, "send", Tk_SendObjCmd, riPtr, DeleteProc); if (Tcl_IsSafe(interp)) { Tcl_HideCommand(interp, "send", "send"); } @@ -947,7 +947,7 @@ Tk_SendObjCmd( TCL_UNUSED(void *), /* Information about sender (only dispPtr * field is used). */ Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ + Tcl_Size objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument strings. */ { enum { @@ -961,7 +961,8 @@ Tk_SendObjCmd( Window commWindow; PendingCommand pending; RegisteredInterp *riPtr; - int result, async, i, firstArg, index; + int result, async, index; + Tcl_Size i, firstArg; Tk_RestrictProc *prevProc; void *prevArg; TkDisplay *dispPtr; |