From 2ea6389b03afd2b315cab28ade3414cfcf939f74 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 23 Oct 2011 04:16:53 +0000 Subject: made window_name from new canvas_name svn path=/trunk/externals/hcs/; revision=15643 --- window_name-help.pd | 109 +++++++++++++++++++++++++++++++++++++++------------- 1 file changed, 83 insertions(+), 26 deletions(-) (limited to 'window_name-help.pd') diff --git a/window_name-help.pd b/window_name-help.pd index e55c8c0..363dcfc 100644 --- a/window_name-help.pd +++ b/window_name-help.pd @@ -1,18 +1,17 @@ -#N canvas 0 26 576 352 10; +#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 200 1; +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.4/TkCmd/wm.htm +#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 obj 375 248 sys_gui; #X text 13 37 change alpha of this window:; #N canvas 83 292 729 228 Mac 0; #X obj 25 163 sys_gui; @@ -96,7 +95,7 @@ #X connect 17 0 5 0; #X connect 20 0 0 0; #X restore 60 297 pd Windows tricks; -#N canvas 574 137 450 300 get 0; +#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; @@ -139,6 +138,43 @@ one is embedded in by setting the argument to the level:; #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; @@ -149,43 +185,63 @@ one is embedded in by setting the argument to the level:; #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 1197 96 450 300 get 0; +#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; -#N canvas 0 22 450 300 test 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 221 155 pd test; #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 72 155 window_name pd-test; #X obj 73 78 window_name myname; #X obj 73 238 window_name pd-window_name-help.pd; -#X connect 1 0 11 0; -#X connect 3 0 9 0; -#X connect 7 0 10 0; -#X connect 9 0 2 0; -#X connect 10 0 6 0; -#X connect 11 0 0 0; +#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 0 +#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; @@ -198,6 +254,7 @@ Wilkes for Pd version 0.42.; #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; @@ -205,8 +262,8 @@ Wilkes for Pd version 0.42.; #X connect 6 0 0 0; #X connect 10 0 3 1; #X connect 10 0 1 0; -#X connect 18 0 19 1; -#X connect 19 0 22 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 19 0; -#X connect 22 0 11 0; +#X connect 21 0 23 0; -- cgit v1.2.1