#N canvas 0 31 497 454 10; #X obj 85 49 inlet; #X obj 86 75 route bang float; #X text 38 12 this disables/enables the menu_quit proc in the GUI to prevent quitting; #X obj 132 98 select 0; #X obj 191 145 bang; #X obj 332 121 print ERROR: no method for; #X obj 276 173 send pd; #X msg 237 142 verifyquit; #X msg 115 221 set semicolon [format %c 59]; #X obj 124 390 receive #noquit; #X obj 124 421 outlet; #X msg 16 200 proc menu_quit "" [list pd "#noquit bang $semicolon"] ; #X obj 16 175 trigger bang bang; #X msg 191 339 rename old_menu_quit menu_quit; #X obj 191 297 trigger bang bang; #X msg 131 241 rename menu_quit old_menu_quit; #X msg 290 318 rename menu_quit ""; #X obj 191 98 route reset quit quitnow; #X msg 312 142 quit; #X obj 124 363 hcs/sys_gui; #X connect 0 0 1 0; #X connect 1 0 12 0; #X connect 1 1 3 0; #X connect 1 2 17 0; #X connect 3 0 4 0; #X connect 3 1 12 0; #X connect 4 0 14 0; #X connect 7 0 6 0; #X connect 8 0 19 0; #X connect 9 0 10 0; #X connect 11 0 19 0; #X connect 12 0 11 0; #X connect 12 1 8 0; #X connect 12 1 15 0; #X connect 13 0 19 0; #X connect 14 0 13 0; #X connect 14 1 16 0; #X connect 15 0 19 0; #X connect 16 0 19 0; #X connect 17 0 4 0; #X connect 17 1 7 0; #X connect 17 2 18 0; #X connect 17 3 5 0; #X connect 18 0 6 0;