diff options
| author | hobbs <hobbs@noemail.net> | 2000-04-25 01:02:30 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-04-25 01:02:30 (GMT) |
| commit | 100d627002c4b728f880e9991ded0a17dfdb18b8 (patch) | |
| tree | f70c28b974032f1298257f4b45b334a1f58713cf | |
| parent | e30158f3c061962e70399020681563d87662d4a2 (diff) | |
| download | tk-100d627002c4b728f880e9991ded0a17dfdb18b8.zip tk-100d627002c4b728f880e9991ded0a17dfdb18b8.tar.gz tk-100d627002c4b728f880e9991ded0a17dfdb18b8.tar.bz2 | |
* generic/tkConfig.c (DoObjConfig): removed direct setting of
interp->result.
FossilOrigin-Name: 16ebd2716c25dc2d2a5ec36fd55a75c881802cb1
| -rw-r--r-- | generic/tkConfig.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tkConfig.c b/generic/tkConfig.c index 5ec9203..471af9d 100644 --- a/generic/tkConfig.c +++ b/generic/tkConfig.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkConfig.c,v 1.6 1999/11/23 23:52:13 hobbs Exp $ + * RCS: @(#) $Id: tkConfig.c,v 1.7 2000/04/25 01:02:30 hobbs Exp $ */ /* @@ -891,8 +891,10 @@ DoObjConfig(interp, recordPtr, optionPtr, valuePtr, tkwin, savedOptionPtr) break; } default: { - sprintf(interp->result, "bad config table: unknown type %d", + char buf[40+TCL_INTEGER_SPACE]; + sprintf(buf, "bad config table: unknown type %d", optionPtr->specPtr->type); + Tcl_SetResult(interp, buf, TCL_VOLATILE); return TCL_ERROR; } } |