From ca8eb8070e06d7f9f4f8ad36fe9f3a332f569aa1 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@monsoon.(none)>
Date: Thu, 8 Nov 2012 02:52:00 -0500
Subject: [PATCH] added verbose error reporting (based on Iohannes Zmoelnig's
patch) on console from tcl side in case something is missing on startup (e.g.
tkpng package).
---
src/t_tkcmd.c | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/t_tkcmd.c b/src/t_tkcmd.c
index d96408027..47ecbbacc 100644
--- a/src/t_tkcmd.c
+++ b/src/t_tkcmd.c
@@ -582,6 +582,7 @@ void pdgui_doevalfile(Tcl_Interp *interp, char *s)
if (Tcl_EvalFile(interp, buf) != TCL_OK)
{
char buf2[1000];
+ printf("error in file %s line %d: %s\n", buf, interp->errorLine, Tcl_GetStringResult(interp));
sprintf(buf2, "puts [concat tcl: %s: can't open script]\n",
buf);
tcl_mess(buf2);
--
GitLab