path: root/window_name-help.pd

#N canvas 111 51 576 352 10;
#X obj 124 207 sys_gui;
#X symbolatom 239 101 0 0 0 0 - - -;
#X obj 223 32 loadbang;
#X obj 124 148 pack float symbol;
#X obj 59 88 hsl 128 15 0.1 1 1 1 empty empty window_alpha -2 -8 0
10 -204800 -1 -1 12700 1;
#X floatatom 56 123 5 0 0 0 - - -;
#X msg 124 177 wm attributes \$2 -alpha \$1;
#X text 210 274 for more options:;
#X obj 241 292 pddp/pddplink http://tcl.tk/man/tcl8.5/TkCmd/wm.htm
;
#X text 113 234 alpha does not work with X11 :(;
#X obj 223 69 window_name;
#X text 13 37 change alpha of this window:;
#N canvas 83 292 729 228 Mac 0;
#X obj 25 163 sys_gui;
#X obj 124 74 window_name;
#X obj 25 102 pack float symbol;
#X msg 25 133 wm attributes \$2 -transparent \$1;
#X obj 124 49 loadbang;
#X obj 25 60 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 0 1
;
#X text 43 13 turn off window shadow;
#X obj 265 163 sys_gui;
#X obj 364 74 window_name;
#X obj 265 102 pack float symbol;
#X obj 364 49 loadbang;
#X obj 265 60 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 0
1;
#X msg 265 133 wm attributes \$2 -fullscreen \$1;
#X text 263 13 make this window fullscreen;
#X obj 495 163 sys_gui;
#X obj 594 74 window_name;
#X obj 495 102 pack float symbol;
#X obj 594 49 loadbang;
#X obj 495 60 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 0
1;
#X text 479 15 make this window on top of all others;
#X msg 495 133 wm attributes \$2 -topmost \$1;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 8 0 9 1;
#X connect 9 0 12 0;
#X connect 10 0 8 0;
#X connect 11 0 9 0;
#X connect 12 0 7 0;
#X connect 15 0 16 1;
#X connect 16 0 20 0;
#X connect 17 0 15 0;
#X connect 18 0 16 0;
#X connect 20 0 14 0;
#X restore 60 277 pd Mac OS X tricks;
#N canvas 67 329 729 228 Windows 0;
#X obj 25 163 sys_gui;
#X obj 124 74 window_name;
#X obj 25 102 pack float symbol;
#X obj 124 49 loadbang;
#X obj 25 60 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 0 1
;
#X obj 265 163 sys_gui;
#X obj 364 74 window_name;
#X obj 265 102 pack float symbol;
#X obj 364 49 loadbang;
#X obj 265 60 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 0
1;
#X obj 495 163 sys_gui;
#X obj 594 74 window_name;
#X obj 495 102 pack float symbol;
#X obj 594 49 loadbang;
#X obj 495 60 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 0
1;
#X text 479 15 make this window on top of all others;
#X msg 495 133 wm attributes \$2 -topmost \$1;
#X msg 265 133 wm attributes \$2 -toolwindow \$1;
#X text 263 13 make this window a "toolwindow";
#X text 23 13 make this a "disabled" window;
#X msg 25 133 wm attributes \$2 -disabled \$1;
#X connect 1 0 2 1;
#X connect 2 0 20 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 6 0 7 1;
#X connect 7 0 17 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 11 0 12 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 12 0;
#X connect 16 0 10 0;
#X connect 17 0 5 0;
#X connect 20 0 0 0;
#X restore 60 297 pd Windows tricks;
#N canvas 228 139 462 430 get 0;
#X symbolatom 42 235 0 0 0 0 - - -;
#X obj 42 191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X symbolatom 126 235 0 0 0 0 - - -;
#X obj 126 191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 22 450 300 subname 0;
#X obj 117 21 inlet;
#X obj 119 265 outlet;
#X obj 107 137 window_name;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 126 214 pd subname;
#X symbolatom 209 235 0 0 0 0 - - -;
#X obj 209 191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 496 269 450 300 get 0;
#X obj 117 21 inlet;
#X obj 119 265 outlet;
#X obj 109 137 window_name 1;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 209 214 pd get parent;
#X symbolatom 73 128 0 0 0 0 - - -;
#X obj 73 84 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 47 36 You can get the canvas name of other patches that this
one is embedded in by setting the argument to the level:;
#X text 78 147 ^-- this is the same as the top level of this help patch
;
#X symbolatom 299 235 0 0 0 0 - - -;
#X obj 299 191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 496 269 450 300 get 0;
#X obj 117 21 inlet;
#X obj 119 265 outlet;
#X obj 109 137 window_name 2;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 299 214 pd get parent of parent;
#X obj 73 107 window_name 1;
#X obj 42 214 window_name;
#X text 45 278 get the canvas name using a float message representing
depth;
#X symbolatom 103 359 10 0 0 0 - - -;
#X msg 88 305 0;
#X msg 118 305 1;
#N canvas 0 22 450 300 open 0;
#N canvas 511 55 450 300 open 0;
#X obj 131 37 inlet;
#X obj 129 109 outlet;
#N canvas 772 55 450 300 open 0;
#X obj 131 37 inlet;
#X obj 129 109 outlet;
#N canvas 0 22 450 300 open 0;
#X obj 141 47 inlet;
#X obj 139 119 outlet;
#X obj 143 84 window_name;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 128 76 pd open me;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 129 74 pd open me;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 138 87 pd open me;
#X obj 141 47 inlet;
#X obj 139 119 outlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X restore 270 352 pd open me;
#X symbolatom 270 376 10 0 0 0 - - -;
#X obj 270 308 hradio 15 1 0 8 empty empty empty 0 -8 0 10 -262144
-1 -1 6;
#X text 131 399 .x0.c means a non-existant window;
#X floatatom 281 330 5 0 0 0 - - -;
#X msg 149 305 2;
#X obj 104 333 window_name;
#X connect 1 0 16 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 9 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X connect 15 0 8 0;
#X connect 16 0 0 0;
#X connect 19 0 27 0;
#X connect 20 0 27 0;
#X connect 21 0 22 0;
#X connect 23 0 21 0;
#X connect 23 0 25 0;
#X connect 26 0 27 0;
#X connect 27 0 18 0;
#X restore 336 39 pd get from different levels;
#N canvas 692 51 454 468 get 0;
#X symbolatom 73 259 0 0 0 0 - - -;
#X obj 73 215 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X symbolatom 72 176 0 0 0 0 - - -;
#X obj 72 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 220 77 namecanvas myname;
#X symbolatom 73 99 0 0 0 0 - - -;
#X obj 73 55 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 53 14 You can also use the canvas receive symbol to get the
canvas_name:;
#X obj 73 78 window_name myname;
#X obj 73 238 window_name pd-window_name-help.pd;
#X symbolatom 97 418 0 0 0 0 - - -;
#X text 69 292 or via the inlet:;
#X msg 99 341 myname;
#X msg 84 315 symbol this_does_not_exist;
#X msg 149 341 symbol pd-getmyname;
#X text 111 439 .x0 means a non-existant window;
#X obj 72 155 window_name pd-getmyname;
#N canvas 0 22 450 300 getmyname 0;
#X symbolatom 188 150 0 0 0 0 - - -;
#X obj 188 106 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 188 129 window_name;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X restore 231 155 pd getmyname;
#X msg 149 366 pd-window_name-help.pd;
#X obj 97 397 window_name;
#X connect 1 0 9 0;
#X connect 3 0 16 0;
#X connect 6 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 0 0;
#X connect 12 0 19 0;
#X connect 13 0 19 0;
#X connect 14 0 19 0;
#X connect 16 0 2 0;
#X connect 18 0 19 0;
#X connect 19 0 10 0;
#X restore 336 64 pd get by canvas receive symbol;
#X text 341 114 turn on/off resizing of this window:;
#X obj 474 177 window_name;
#X obj 375 197 pack float symbol;
#X obj 474 157 loadbang;
#X obj 375 155 tgl 30 0 empty empty empty 17 7 0 10 -204786 -1 -1 1
1;
#X msg 375 222 wm resizable \$2 \$1 \$1;
#N canvas 398 189 494 344 META 0;
#X text 12 125 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 25 LICENSE GPL v3;
#X text 12 105 AUTHOR Hans-Christoph Steiner;
#X text 12 5 KEYWORDS control canvas_op;
#X text 12 45 DESCRIPTION get the name of a window;
#X text 12 65 INLET_0 bang;
#X text 12 85 OUTLET_0 symbol;
#X restore 525 330 pd META;
#X obj 375 248 sys_gui;
#X connect 2 0 10 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 6 0 0 0;
#X connect 10 0 3 1;
#X connect 10 0 1 0;
#X connect 17 0 18 1;
#X connect 18 0 21 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 21 0 23 0;