/usr/lib/pd/extra/hcs/noquit.pd is in pd-hcs 0.1-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | #N canvas 377 277 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;
|