diff options
Diffstat (limited to 'test/toxy/button-test.pd')
| -rw-r--r-- | test/toxy/button-test.pd | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/test/toxy/button-test.pd b/test/toxy/button-test.pd index 1f553dd..1fff19f 100644 --- a/test/toxy/button-test.pd +++ b/test/toxy/button-test.pd @@ -12,14 +12,14 @@ red -command .<.>; #X msg 21 21 -bg red -text red; #X msg 34 47 -bg green -text green; #X msg 56 101 -bg gray -text ""; -#X msg 62 132 -activebackground \$1; #X msg 250 74 query tk_chooseColor; #X obj 250 101 tot .; #X msg 166 187 -command .<:t1 bang.>; -#X msg 90 213 -command .(set c [tk_chooseColor] .: eval .<| "-bg" $c -"-text" $c.>.); #X msg 68 186 -width \$1; #X floatatom 68 162 5 0 0 0 - - -; +#X msg 62 132 set -activebackground \$1; +#X msg 90 213 -command .(set c [tk_chooseColor] .: eval .<| set "-bg" +$c "-text" $c.>.); #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 0 0; @@ -28,10 +28,10 @@ red -command .<.>; #X connect 7 0 0 0; #X connect 8 0 0 0; #X connect 9 0 0 0; -#X connect 10 0 0 0; -#X connect 11 0 12 0; -#X connect 12 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 15 0; +#X connect 12 0 0 0; #X connect 13 0 0 0; -#X connect 14 0 0 0; +#X connect 14 0 13 0; #X connect 15 0 0 0; -#X connect 16 0 15 0; +#X connect 16 0 0 0; |