From b031783f639c3697055e595e69d88c8bd7eabe6d Mon Sep 17 00:00:00 2001 From: Michael Haberler Date: Tue, 19 May 2015 12:20:55 +0200 Subject: [PATCH] axis.tcl: workaround for tcl8.6 breakage see https://sourceforge.net/p/emc/mailman/emc-developers/thread/54A9DA86.9010505@highlab.com/ --- share/axis/tcl/axis.tcl | 1 + 1 file changed, 1 insertion(+) diff --git a/share/axis/tcl/axis.tcl b/share/axis/tcl/axis.tcl index bf07e737b1d..51445f9d211 100644 --- a/share/axis/tcl/axis.tcl +++ b/share/axis/tcl/axis.tcl @@ -1982,6 +1982,7 @@ proc update_title {args} { } proc update_state {args} { + set mytest "Hooray!" switch $::task_state \ $::STATE_ESTOP { set ::task_state_string [_ "ESTOP"] } \ $::STATE_ESTOP_RESET { set ::task_state_string [_ "OFF"] } \