created example using [sys_gui] and [window_name] to move the windows around, including the Pd window

svn path=/trunk/externals/hcs/; revision=9810

1 files changed, 39 insertions, 0 deletions

diff --git a/examples/move_pd_window.pd b/examples/move_pd_window.pd
new file mode 100644
index 0000000..013803c
--- /dev/null
+++ b/examples/move_pd_window.pd
@@ -0,0 +1,39 @@
+#N canvas 532 145 637 496 10;
+#X symbolatom 247 208 0 0 0 0 - - -;
+#X obj 232 155 pack 0 0;
+#X text 72 -108 move the Pd window around;
+#X text 29 337 You can do lots of things using Tcl/Tk commands:;
+#X obj 328 338 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/wm.htm
+;
+#X obj 246 130 trigger bang float;
+#X obj 53 -76 unauthorized/grid pdwin 200 0 800 150 0 600 0 4 5 10
+10 65 -53;
+#X obj 232 186 zexy/makesymbol +%s+%s;
+#X obj 246 109 -;
+#X msg 246 86 600 \$1;
+#X text 412 234 "." means the Pd window;
+#X obj 232 259 pack symbol symbol;
+#X msg 232 281 wm geometry \$2 \$1;
+#X obj 337 238 symbol;
+#X msg 395 206 .;
+#X obj 395 182 loadbang;
+#X obj 471 205 hcs/window_name;
+#X obj 231 308 hcs/sys_gui;
+#X msg 471 181 bang;
+#X text 503 178 current window;
+#X connect 1 0 7 0;
+#X connect 5 0 1 0;
+#X connect 5 1 1 1;
+#X connect 6 0 1 0;
+#X connect 6 1 9 0;
+#X connect 7 0 0 0;
+#X connect 7 0 11 0;
+#X connect 8 0 5 0;
+#X connect 9 0 8 0;
+#X connect 11 0 12 0;
+#X connect 12 0 17 0;
+#X connect 13 0 11 1;
+#X connect 14 0 13 0;
+#X connect 15 0 14 0;
+#X connect 16 0 13 0;
+#X connect 18 0 16 0;