diff options
author | N.N. <krzyszcz@users.sourceforge.net> | 2004-12-08 15:45:27 +0000 |
---|---|---|
committer | N.N. <krzyszcz@users.sourceforge.net> | 2004-12-08 15:45:27 +0000 |
commit | 155fa2c04c7e415803e1546dcde0a47442eef4b3 (patch) | |
tree | 94a1714fee23703bddef850e7b5acb60a9c39631 /test/toxy/tot-color.pd | |
parent | d5a39ff6469f8762218c00a34f4b0a120a56332b (diff) |
*** empty log message ***
svn path=/trunk/externals/miXed/; revision=2361
Diffstat (limited to 'test/toxy/tot-color.pd')
-rw-r--r-- | test/toxy/tot-color.pd | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/test/toxy/tot-color.pd b/test/toxy/tot-color.pd new file mode 100644 index 0000000..c799195 --- /dev/null +++ b/test/toxy/tot-color.pd @@ -0,0 +1,27 @@ +#N canvas 307 84 527 317 12; +#X obj 20 92 tot .; +#X msg 82 73 query winfo rgb . green; +#X obj 20 129 unpack 0 0 0; +#X obj 20 168 / 256; +#X obj 95 168 / 256; +#X obj 170 168 / 256; +#X obj 20 276 print; +#X obj 20 241 pack 0 0 0; +#X obj 20 205 int; +#X obj 95 205 int; +#X obj 170 205 int; +#X msg 20 22 query set cl [tk_chooseColor] .: if .($cl != "".) .(winfo +rgb . $cl.); +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 2 1 4 0; +#X connect 2 2 5 0; +#X connect 3 0 8 0; +#X connect 4 0 9 0; +#X connect 5 0 10 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 9 0 7 1; +#X connect 10 0 7 2; +#X connect 11 0 0 0; |