From c7712e6a60298efb7437b1c6e3dba1741ce560a1 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 9 Nov 2007 19:29:21 +0000 Subject: added example to turn off window resizing svn path=/trunk/externals/hcs/; revision=8973 --- window_name-help.pd | 35 +++++++++++++++++++++++------------ 1 file changed, 23 insertions(+), 12 deletions(-) diff --git a/window_name-help.pd b/window_name-help.pd index 993b2cb..f1c0884 100644 --- a/window_name-help.pd +++ b/window_name-help.pd @@ -1,16 +1,24 @@ -#N canvas 431 431 476 365 10; -#X obj 175 202 sys_gui; -#X symbolatom 290 96 0 0 0 0 - - -; -#X obj 274 27 loadbang; -#X obj 175 143 pack float symbol; -#X obj 110 83 hsl 128 15 0.1 1 1 1 empty empty window_alpha -2 -8 0 +#N canvas 246 251 576 362 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 107 118 5 0 0 0 - - -; -#X msg 175 172 wm attributes \$2 -alpha \$1; -#X text 43 256 for more options:; -#X obj 62 279 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/wm.htm; -#X text 164 229 alpha does not work with X11 :(; -#X obj 274 64 window_name; +#X floatatom 56 123 5 0 0 0 - - -; +#X msg 124 177 wm attributes \$2 -alpha \$1; +#X text 141 279 for more options:; +#X obj 172 297 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/wm.htm +; +#X text 113 234 alpha does not work with X11 :(; +#X obj 223 69 window_name; +#X obj 383 207 sys_gui; +#X obj 383 148 window_name; +#X obj 383 114 bng 25 250 50 0 empty empty empty 17 7 0 10 -204786 +-1 -1; +#X msg 383 177 wm resizable \$1 0 0; +#X text 352 84 turn off resizing of this window:; +#X text 13 37 change alpha of this window:; #X connect 2 0 10 0; #X connect 3 0 6 0; #X connect 4 0 3 0; @@ -18,3 +26,6 @@ #X connect 6 0 0 0; #X connect 10 0 3 1; #X connect 10 0 1 0; +#X connect 12 0 14 0; +#X connect 13 0 12 0; +#X connect 14 0 11 0; -- cgit v1.2.1