diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-01-28 11:24:03 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-01-28 11:24:03 (GMT) |
| commit | 613b4f4628e3e63711c7a3f9191166891b192350 (patch) | |
| tree | 65123df923e2cd33f1a897da5b4a37c2e704270f /generic/tkConfig.c | |
| parent | 3aea137022a2687501c1ef6fdf4b9a1f1bc82956 (diff) | |
| download | tk-613b4f4628e3e63711c7a3f9191166891b192350.zip tk-613b4f4628e3e63711c7a3f9191166891b192350.tar.gz tk-613b4f4628e3e63711c7a3f9191166891b192350.tar.bz2 | |
Convert all Tcl_SetResult calls to Tcl_SetObjResult calls.
Convert Tcl_GetStringFromObj to Tcl_GetString when possible.
Diffstat (limited to 'generic/tkConfig.c')
| -rw-r--r-- | generic/tkConfig.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkConfig.c b/generic/tkConfig.c index 375bca7..2503f31 100644 --- a/generic/tkConfig.c +++ b/generic/tkConfig.c @@ -1347,7 +1347,7 @@ Tk_SetOptions( if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "value for \"%s\" missing", - Tcl_GetStringFromObj(*objv, NULL))); + Tcl_GetString(*objv))); Tcl_SetErrorCode(interp, "TK", "VALUE_MISSING", NULL); goto error; } @@ -1372,7 +1372,7 @@ Tk_SetOptions( : NULL) != TCL_OK) { Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( "\n (processing \"%.40s\" option)", - Tcl_GetStringFromObj(*objv, NULL))); + Tcl_GetString(*objv))); goto error; } if (savePtr != NULL) { |