diff --git a/pd/nw/pdgui.js b/pd/nw/pdgui.js index 80664e7afaae85cd519d5dc1f195b84f6ac44cd5..242c64b23a85829fcf27d64d2000d9e332703517 100644 --- a/pd/nw/pdgui.js +++ b/pd/nw/pdgui.js @@ -347,7 +347,7 @@ function gui_post_error(objectid, loglevel, errormsg) { } function gui_legacy_tcl_command(file, line_number, text) { - post("legacy tcl command at " + line_number + " of " + file + ": " + text); + post("legacy tcl command at " + line_number + " of " + file); } function clear_console() { diff --git a/pd/src/s_inter.c b/pd/src/s_inter.c index b6e4d129fc07baf03f64e043a02b2db1bdb2946b..88fb1974a0c17f55a81e8ee0caaad96e8550b193 100644 --- a/pd/src/s_inter.c +++ b/pd/src/s_inter.c @@ -951,8 +951,11 @@ void sys_vguid(const char *file, int line, const char *fmt, ...) strncat(bufp, "...", MAXPDSTRING); } } + /* For now, we're sending a dummy string instead of bufp to the GUI. + Unlike Pd messages, old tcl commands can contain stray backslashes + that can mess up the double quote delimiters for strings in gui_vmess.*/ gui_vmess("gui_legacy_tcl_command", "sis", - file, line, bufp); + file, line, "dummy"); //sys_vvguid(file,line,fmt,ap); }