Revision: 9810 http://pure-data.svn.sourceforge.net/pure-data/?rev=9810&view=rev Author: eighthave Date: 2008-05-15 07:22:00 -0700 (Thu, 15 May 2008)

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

Added Paths: ----------- trunk/externals/hcs/examples/move_pd_window.pd

Added: trunk/externals/hcs/examples/move_pd_window.pd =================================================================== --- trunk/externals/hcs/examples/move_pd_window.pd (rev 0) +++ trunk/externals/hcs/examples/move_pd_window.pd 2008-05-15 14:22:00 UTC (rev 9810) @@ -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;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.