diff options
Diffstat (limited to 'test/toxy/button-test.pd')
| -rw-r--r-- | test/toxy/button-test.pd | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test/toxy/button-test.pd b/test/toxy/button-test.pd new file mode 100644 index 0000000..1f553dd --- /dev/null +++ b/test/toxy/button-test.pd @@ -0,0 +1,37 @@ +#N canvas 106 44 636 366 12; +#X obj 21 259 widget button b -bg red -activebackground yellow -text +red -command .<.>; +#X msg 130 162 -command .<.>; +#X msg 48 295 debug; +#X obj 21 324 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X obj 193 268 r t1; +#X obj 193 324 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 +1; +#X msg 45 74 -bg pink -text pink; +#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 connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 4 0 5 0; +#X connect 6 0 0 0; +#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 13 0 0 0; +#X connect 14 0 0 0; +#X connect 15 0 0 0; +#X connect 16 0 15 0; |