From 360cb623bd6a4c0dac7f87119a0024b8dfb5d399 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sun, 14 Jul 2013 09:35:14 -0400
Subject: [PATCH] added preliminary debugging of c->tk commands
---
pd/src/t_tkcmd.c | 2 ++
1 file changed, 2 insertions(+)
diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index c55ca7f90..32102133a 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -557,6 +557,8 @@ 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);
Tcl_Obj *messageObjPtr = Tcl_NewStringObj(catch_s,-1);
Tcl_IncrRefCount(messageObjPtr);
result = Tcl_EvalObjEx(tk_pdinterp, messageObjPtr, TCL_EVAL_GLOBAL);
--
GitLab