Commit d8aadedc authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

disabled error reporting in t_tkcmd.c

parent 74f3e019
......@@ -555,10 +555,10 @@ static int pdCmd(ClientData cd, Tcl_Interp *interp, int argc, char **argv)
void tcl_mess(char *s)
{
int result;
//char catch_s[strlen(s)+10];
//sprintf(catch_s, "catch { %s }", s);
char catch_s[strlen(s)];
sprintf(catch_s, "%s", s);
char catch_s[strlen(s)+10];
sprintf(catch_s, "catch { %s }", s);
//char catch_s[strlen(s)];
//sprintf(catch_s, "%s", s);
Tcl_Obj *messageObjPtr = Tcl_NewStringObj(catch_s,-1);
Tcl_IncrRefCount(messageObjPtr);
result = Tcl_EvalObjEx(tk_pdinterp, messageObjPtr, TCL_EVAL_GLOBAL);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment