diff options
| -rw-r--r-- | x11-toolkits/pure-tk/files/patch-tk.c | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/x11-toolkits/pure-tk/files/patch-tk.c b/x11-toolkits/pure-tk/files/patch-tk.c deleted file mode 100644 index 793998df16fd..000000000000 --- a/x11-toolkits/pure-tk/files/patch-tk.c +++ /dev/null @@ -1,38 +0,0 @@ ---- tk.c.orig 2013-05-14 16:10:31.000000000 +0200 -+++ tk.c 2013-05-14 16:13:05.000000000 +0200 -@@ -115,8 +115,9 @@ - /* start up a new interpreter */ - if (!(interp = Tcl_CreateInterp())) return false; - if (Tcl_Init(interp) != TCL_OK) { -- if (interp->result && *interp->result) -- set_result(result, interp->result); -+ const char *res = Tcl_GetStringResult(interp); -+ if (res && *res) -+ set_result(result, res); - else - set_result(result, "error initializing Tcl"); - tk_stop(); -@@ -128,8 +129,9 @@ - /* oddly, there are no `env' variables passed, and this one is needed */ - Tcl_SetVar2(interp, "env", "DISPLAY", getenv("DISPLAY"), TCL_GLOBAL_ONLY); - if (Tk_Init(interp) != TCL_OK) { -- if (interp->result && *interp->result) -- set_result(result, interp->result); -+ const char *res = Tcl_GetStringResult(interp); -+ if (res && *res) -+ set_result(result, res); - else - set_result(result, "error initializing Tk"); - tk_stop(); -@@ -182,8 +184,9 @@ - if (!cmd) return false; - strcpy(cmd, s); - status = Tcl_Eval(interp, cmd); -- if (interp && interp->result && *interp->result) -- set_result(result, interp->result); -+ const char *res = Tcl_GetStringResult(interp); -+ if (res && *res) -+ set_result(result, res); - else if (status == TCL_BREAK) - set_result(result, "invoked \"break\" outside of a loop"); - else if (status == TCL_CONTINUE) |