aboutsummaryrefslogtreecommitdiff
path: root/shared/hammer
diff options
context:
space:
mode:
Diffstat (limited to 'shared/hammer')
-rw-r--r--shared/hammer/gui.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/shared/hammer/gui.c b/shared/hammer/gui.c
index 131ddfe..ec6add7 100644
--- a/shared/hammer/gui.c
+++ b/shared/hammer/gui.c
@@ -199,7 +199,8 @@ static void hammergui_setup(void)
/* Protect against pdCmd being called (via "Canvas <Destroy>" binding)
during Tcl_Finalize(). FIXME this should be a standard exit handler. */
sys_gui("proc hammergui_exithook {cmd op} {proc pd {} {}}\n");
- sys_gui("trace add execution exit enter hammergui_exithook\n");
+ sys_gui("if {[info tclversion] >= 8.4} {\n\
+ trace add execution exit enter hammergui_exithook}\n");
sys_gui("proc hammergui_ispatcher {cv} {\n");
sys_gui(" if {[string range $cv 0 1] == \".x\"");