From 9631cd2bcfd7824aff187ef41619eb1885fbd3d7 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 25 Apr 2024 12:10:56 +0200
Subject: [PATCH] launcher(): bring up an alert dialog if tclcommand did not
 execute successfully

---
 src/actions.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/actions.c b/src/actions.c
index d85abe1b..de2b0185 100644
--- a/src/actions.c
+++ b/src/actions.c
@@ -1747,7 +1747,11 @@ void launcher(void)
     } else {
       my_strncpy(program, get_tok_value(prop_ptr,"tclcommand",0), S(program));
       if(program[0]) { /* execute tcl command */
-        tcleval(program);
+        if(Tcl_GlobalEval(interp, program) != TCL_OK) {
+          dbg(0, "%s\n", tclresult());
+          if(has_x) tclvareval("alert_ {", tclresult(), "} {}", NULL);
+          Tcl_ResetResult(interp);
+        }
       }
     }
     tcleval("after 300");