diff options
author | stanton <stanton> | 1999-02-12 01:09:01 (GMT) |
---|---|---|
committer | stanton <stanton> | 1999-02-12 01:09:01 (GMT) |
commit | 15906d6118a0a10536f9eaff7a750e0cacf32851 (patch) | |
tree | 3b6577bcff2eff779c031924f9ab535469c41d35 /unix | |
parent | 2a8a12c1a66ef582b6d541cd56106cabeb28fdd3 (diff) | |
download | tk-15906d6118a0a10536f9eaff7a750e0cacf32851.zip tk-15906d6118a0a10536f9eaff7a750e0cacf32851.tar.gz tk-15906d6118a0a10536f9eaff7a750e0cacf32851.tar.bz2 |
* README:
* generic/tk.h:
* unix/configure.in:
* win/README:
* win/makefile.bc:
* win/makefile.vc: Updated version to 8.1b2.
* unix/tkUnixSend.c: Fixed one more Tcl_*ObjVar instance.
Diffstat (limited to 'unix')
-rw-r--r-- | unix/configure.in | 4 | ||||
-rw-r--r-- | unix/tkUnixSend.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/unix/configure.in b/unix/configure.in index 71ee237..995cb5b 100644 --- a/unix/configure.in +++ b/unix/configure.in @@ -2,12 +2,12 @@ dnl This file is an input file used by the GNU "autoconf" program to dnl generate the file "configure", which is run during Tk installation dnl to configure the system for the local environment. AC_INIT(../generic/tk.h) -# RCS: @(#) $Id: configure.in,v 1.1.4.8 1999/02/11 04:13:49 stanton Exp $ +# RCS: @(#) $Id: configure.in,v 1.1.4.9 1999/02/12 01:09:02 stanton Exp $ TK_VERSION=8.1 TK_MAJOR_VERSION=8 TK_MINOR_VERSION=1 -TK_PATCH_LEVEL=b1 +TK_PATCH_LEVEL=b2 VERSION=${TK_VERSION} if test "${prefix}" = "NONE"; then diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 3d13a3b..f557c1f 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixSend.c,v 1.1.4.4 1999/02/11 04:13:50 stanton Exp $ + * RCS: @(#) $Id: tkUnixSend.c,v 1.1.4.5 1999/02/12 01:09:02 stanton Exp $ */ #include "tkPort.h" @@ -1011,7 +1011,7 @@ Tk_SendCmd(clientData, interp, argc, argv) Tcl_ResetResult(interp); Tcl_AddErrorInfo(interp, Tcl_GetVar2(localInterp, "errorInfo", (char *) NULL, TCL_GLOBAL_ONLY)); - errorObjPtr = Tcl_GetObjVar2(localInterp, "errorCode", NULL, + errorObjPtr = Tcl_GetVar2Ex(localInterp, "errorCode", NULL, TCL_GLOBAL_ONLY); Tcl_SetObjErrorCode(interp, errorObjPtr); } |