summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-15 12:44:53 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-15 12:44:53 (GMT)
commita761005e3247bd033727afc2b876d1ec8a289849 (patch)
tree72fa0802eaefe1b1ff9b76dc1ec7aa8fe4ee3fda
parent99e3d7021de71e216edcf96f5a3984f4d618ceaa (diff)
downloadtk-a761005e3247bd033727afc2b876d1ec8a289849.zip
tk-a761005e3247bd033727afc2b876d1ec8a289849.tar.gz
tk-a761005e3247bd033727afc2b876d1ec8a289849.tar.bz2
Eliminate last use of Tcl_GetStringResult
-rw-r--r--generic/tkMain.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkMain.c b/generic/tkMain.c
index 5bfc684..9210dd1 100644
--- a/generic/tkMain.c
+++ b/generic/tkMain.c
@@ -191,7 +191,7 @@ Tk_MainEx(
if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
abort();
} else {
- Tcl_Panic("%s", Tcl_GetStringResult(interp));
+ Tcl_Panic("%s", Tcl_GetString(Tcl_GetObjResult(interp)));
}
}