From 9b3dbf41e8d38b52bd66c58e2861ee6dc24098da Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sun, 19 Jan 2014 17:13:54 -0500
Subject: [PATCH] added debugging annotation
---
pd/src/t_tkcmd.c | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index 32102133a..97c55d499 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -555,10 +555,15 @@ static int pdCmd(ClientData cd, Tcl_Interp *interp, int argc, char **argv)
void tcl_mess(char *s)
{
int result;
+
+ // PRODUCTION VERSION
char catch_s[strlen(s)+10];
sprintf(catch_s, "catch { %s }", s);
+
+ // DEBUGGING VERSION
//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