diff options
Diffstat (limited to 'shared/toxy')
| -rw-r--r-- | shared/toxy/scriptlet.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/shared/toxy/scriptlet.c b/shared/toxy/scriptlet.c index a2f5ee0..192eaa6 100644 --- a/shared/toxy/scriptlet.c +++ b/shared/toxy/scriptlet.c @@ -471,8 +471,12 @@ void scriptlet_qpush(t_scriptlet *sp) sys_gui(sp->s_buffer); *tail = 0; sprintf(buf, "\ - trace add variable ::toxy::reply write \"::toxy::doreply %s\"\n\ - ::toxy::query}\n", sp->s_rptarget->s_name); + if {[info tclversion] < 8.4} {\n\ + trace variable ::toxy::reply w \"::toxy::doreply %s\"\n\ + } else {\n\ + trace add variable ::toxy::reply write \"::toxy::doreply %s\"\n\ + }\n\ + ::toxy::query}\n", sp->s_rptarget->s_name, sp->s_rptarget->s_name); sys_gui(buf); } } |