diff options
| author | hobbs <hobbs> | 2000-04-25 01:02:30 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-04-25 01:02:30 (GMT) |
| commit | 64c1028bcc5cdb311c668614ceca41105491bf4c (patch) | |
| tree | f70c28b974032f1298257f4b45b334a1f58713cf /generic/tkConfig.c | |
| parent | 1932108285ef02eca43acfbaf2470c45592739e5 (diff) | |
| download | tk-64c1028bcc5cdb311c668614ceca41105491bf4c.zip tk-64c1028bcc5cdb311c668614ceca41105491bf4c.tar.gz tk-64c1028bcc5cdb311c668614ceca41105491bf4c.tar.bz2 | |
* generic/tkConfig.c (DoObjConfig): removed direct setting of
interp->result.
Diffstat (limited to 'generic/tkConfig.c')
| -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; } } |