[PATCH] print meaningfull error-message

[IOhannes m zmölnig]

in case Tcl_EvalFile fails
---
 src/t_tkcmd.c |    1 +
 1 file changed, 1 insertion(+)

diff --git a/src/t_tkcmd.c b/src/t_tkcmd.c
index a66e5ed..c33568e 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: %s\n", interp->errorLine, Tcl_GetStringResult(interp));
         sprintf(buf2, "puts [concat tcl: %s: can't open script]\n",
             buf);
         tcl_mess(buf2);
-- 
1.7.10.4


--------------010609060704000806030605--