aboutsummaryrefslogtreecommitdiff
path: root/examples/move_pd_window.pd
blob: 234f96110cce4ae3c610ba41aa0d7dafc880726a (plain)
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
#N canvas 532 145 637 496 10;
#X declare -path ..;
#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;