summaryrefslogtreecommitdiffstats
path: root/generic/tkBind.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-26 00:24:07 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-26 00:24:07 (GMT)
commit13e6c44129865089d8680474141354555450ae04 (patch)
treecd1af88f02192ab59b05cebb82e886341624241e /generic/tkBind.c
parent8e4cfc592771290d75f559ef2dea0836cc26e7fe (diff)
downloadtk-13e6c44129865089d8680474141354555450ae04.zip
tk-13e6c44129865089d8680474141354555450ae04.tar.gz
tk-13e6c44129865089d8680474141354555450ae04.tar.bz2
Use some more (void *)'s in FreeProc's, a step in the direction getting Tk to work with "novem"
Diffstat (limited to 'generic/tkBind.c')
-rw-r--r--generic/tkBind.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkBind.c b/generic/tkBind.c
index 77d302f..ff308ed 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -2643,7 +2643,7 @@ DeleteVirtualEvent(
eventPSPtr = FindSequence(interp, &vetPtr->patternTable, NULL,
eventString, 0, 0, &eventMask);
if (eventPSPtr == NULL) {
- const char *string = Tcl_GetStringResult(interp);
+ const char *string = Tcl_GetString(Tcl_GetObjResult(interp));
return (string[0] != '\0') ? TCL_ERROR : TCL_OK;
}