Gui objects causes freeze/crash
On latest version of Purr-data from arch OBS (see below)
When I use objects such as MouseState from cyclone, many GUI abstractions, or playlist object from Unauthorized, purr-data either gives a long line of legacy tcl errors (see below) or just becomes unresponsive and crashes.
Version -
nw.js version 0.28.1
Pd has started the GUI
canvasinfo: v0.1
stable canvasinfo methods: args dir dirty editmode vis
classinfo: v.0.1
stable classinfo methods: size
objectinfo: v.0.1
stable objectinfo methods: class
pdinfo: v.0.1
stable pdinfo methods: dir dsp version
[import] $Revision: 1.2 $
[import] is still in development, the interface could change!
compiled against Pd-l2ork version 2.15.2 (20201102-rev.2d04705d)
error (on MouseState)
legacy tcl command at 273 of ../shared/hammer/gui.c: proc hammergui_exithook {cmd op} {proc pd {} {}}
legacy tcl command at 274 of ../shared/hammer/gui.c: if {[info tclversion] >= 8.4} {...
legacy tcl command at 277 of ../shared/hammer/gui.c: proc hammergui_ispatcher {cv} {
legacy tcl command at 278 of ../shared/hammer/gui.c: if {[string range $cv 0 1] == ".x"
legacy tcl command at 279 of ../shared/hammer/gui.c: && [string range $cv end-1 end] == ".c"} {
legacy tcl command at 280 of ../shared/hammer/gui.c: return 1} else {return 0}
legacy tcl command at 281 of ../shared/hammer/gui.c: }
legacy tcl command at 283 of ../shared/hammer/gui.c: proc hammergui_remouse {} {
legacy tcl command at 284 of ../shared/hammer/gui.c: bind all <<hammerdown>> {}
legacy tcl command at 285 of ../shared/hammer/gui.c: bind all <<hammerup>> {}
legacy tcl command at 286 of ../shared/hammer/gui.c: pd [concat #hammergui _remouse \;]
legacy tcl command at 287 of ../shared/hammer/gui.c: }
legacy tcl command at 289 of ../shared/hammer/gui.c: proc hammergui_mousexy {target} {
legacy tcl command at 290 of ../shared/hammer/gui.c: set x [winfo pointerx .]
legacy tcl command at 291 of ../shared/hammer/gui.c: set y [winfo pointery .]
legacy tcl command at 292 of ../shared/hammer/gui.c: pd [concat #hammermouse $target $x $y \;]
legacy tcl command at 293 of ../shared/hammer/gui.c: }
legacy tcl command at 296 of ../shared/hammer/gui.c: global hammergui_ispolling
legacy tcl command at 297 of ../shared/hammer/gui.c: global hammergui_x
legacy tcl command at 298 of ../shared/hammer/gui.c: global hammergui_y
legacy tcl command at 299 of ../shared/hammer/gui.c: set hammergui_ispolling 0
legacy tcl command at 300 of ../shared/hammer/gui.c: set hammergui_x 0
legacy tcl command at 301 of ../shared/hammer/gui.c: set hammergui_y 0
legacy tcl command at 303 of ../shared/hammer/gui.c: proc hammergui_poll {} {
legacy tcl command at 304 of ../shared/hammer/gui.c: global hammergui_ispolling
legacy tcl command at 305 of ../shared/hammer/gui.c: global hammergui_x
legacy tcl command at 306 of ../shared/hammer/gui.c: global hammergui_y
legacy tcl command at 307 of ../shared/hammer/gui.c: if {$hammergui_ispolling == 1} {
legacy tcl command at 308 of ../shared/hammer/gui.c: set x [winfo pointerx .]
legacy tcl command at 309 of ../shared/hammer/gui.c: set y [winfo pointery .]
legacy tcl command at 310 of ../shared/hammer/gui.c: if {$hammergui_x != $x || $hammergui_y != $y} {
legacy tcl command at 311 of ../shared/hammer/gui.c: pd [concat #hammermouse _poll $x $y \;]
legacy tcl command at 312 of ../shared/hammer/gui.c: set hammergui_x $x
legacy tcl command at 313 of ../shared/hammer/gui.c: set hammergui_y $y
legacy tcl command at 314 of ../shared/hammer/gui.c: }
legacy tcl command at 315 of ../shared/hammer/gui.c: after 50 hammergui_poll
legacy tcl command at 316 of ../shared/hammer/gui.c: }
legacy tcl command at 317 of ../shared/hammer/gui.c: }
legacy tcl command at 319 of ../shared/hammer/gui.c: proc hammergui_refocus {} {
legacy tcl command at 320 of ../shared/hammer/gui.c: bind Canvas <<hammerfocusin>> {}
legacy tcl command at 321 of ../shared/hammer/gui.c: bind Canvas <<hammerfocusout>> {}
legacy tcl command at 322 of ../shared/hammer/gui.c: pd [concat #hammergui _refocus \;]
legacy tcl command at 323 of ../shared/hammer/gui.c: }
legacy tcl command at 325 of ../shared/hammer/gui.c: proc hammergui_revised {} {
legacy tcl command at 326 of ../shared/hammer/gui.c: bind Canvas <<hammervised>> {}
legacy tcl command at 327 of ../shared/hammer/gui.c: bind Canvas <<hammerunvised>> {}
legacy tcl command at 328 of ../shared/hammer/gui.c: pd [concat #hammergui _revised \;]
legacy tcl command at 329 of ../shared/hammer/gui.c: }
legacy tcl command at 362 of ../shared/hammer/gui.c: event add <<hammerdown>> <ButtonPress>
legacy tcl command at 363 of ../shared/hammer/gui.c: event add <<hammerup>> <ButtonRelease>
legacy tcl command at 142 of ../shared/hammer/gui.c: bind all <<hammerdown>> {pd [concat #hammergui _up 0 \;]}
legacy tcl command at 144 of ../shared/hammer/gui.c: bind all <<hammerup>> {pd [concat #hammergui _up 1 \;]}