diff options
| author | N.N. <krzyszcz@users.sourceforge.net> | 2004-03-31 10:24:20 +0000 |
|---|---|---|
| committer | N.N. <krzyszcz@users.sourceforge.net> | 2004-03-31 10:24:20 +0000 |
| commit | dbd3ec671dec8ea39032d3b0b56387df40c66c28 (patch) | |
| tree | 6ad4c4d87e05b8babf1d78a1303de508ce5d1cdf /shared/hammer/gui.c | |
| parent | 14b05069b61d8d86d52415acb1adea7a61547ac6 (diff) | |
toxy alpha11
svn path=/trunk/externals/miXed/; revision=1526
Diffstat (limited to 'shared/hammer/gui.c')
| -rw-r--r-- | shared/hammer/gui.c | 3 |
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\""); |