aboutsummaryrefslogtreecommitdiff
path: root/shared/hammer
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2004-03-31 10:24:20 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2004-03-31 10:24:20 +0000
commitdbd3ec671dec8ea39032d3b0b56387df40c66c28 (patch)
tree6ad4c4d87e05b8babf1d78a1303de508ce5d1cdf /shared/hammer
parent14b05069b61d8d86d52415acb1adea7a61547ac6 (diff)
toxy alpha11
svn path=/trunk/externals/miXed/; revision=1526
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\"");