diff options
Diffstat (limited to 'test/toxy/scale-test.pd')
| -rw-r--r-- | test/toxy/scale-test.pd | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/test/toxy/scale-test.pd b/test/toxy/scale-test.pd index e35a4a2..c13d3b3 100644 --- a/test/toxy/scale-test.pd +++ b/test/toxy/scale-test.pd @@ -1,7 +1,8 @@ #N canvas 79 51 599 397 12; -#X obj 22 197 widget scale s -command .<.> -variable ::toxy::simplescale --label "Simple Scale" -orient h -length 300 -width 50 -font "Helvetica -12" -from -16 -to 16 -showvalue 0 @float .- set .#1; +#X obj 22 197 widget scale s -command [concat ::toxy::scalecommand +.| _cb] -variable ::toxy::simplescale -label "Simple Scale" -orient +h -length 300 -width 50 -font "Helvetica 12" -from -16 -to 16 -showvalue +0 @float .- set .#1; #X floatatom 22 336 5 0 0 0 - - -; #X floatatom 191 128 5 0 0 0 - - -; #X msg 191 159 -from \$1; @@ -11,19 +12,21 @@ #X obj 44 133 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X floatatom 214 336 5 0 0 0 - - -; -#X msg 36 102 -command .<.>; +#X msg 33 103 -command [concat ::toxy::scalecommand .| _cb]; #X obj 214 306 r \$0-scale; -#X msg 22 70 -command .<: \$1-scale .>; +#X msg 22 70 -command [concat ::toxy::scalecommand \$1-scale float] +; #X obj 22 10 loadbang; #X obj 22 40 int \$0; #X msg 113 10 bang; -#X msg 269 67 @float .- set .#1; -#X msg 269 102 remove @float; -#X floatatom 269 40 5 0 0 0 - - -; +#X msg 188 10 @float .- set .#1; +#X msg 188 40 remove @float; +#X floatatom 89 45 5 0 0 0 - - -; #N canvas 0 0 450 420 linked 0; -#X obj 54 49 widget scale s -command .<.> -variable ::toxy::simplescale --orient v -length 300 -width 50 -font "Helvetica 12" -from -16 -to -16 -showvalue 0 @float .- set .#1; +#X obj 54 49 widget scale s -command [concat ::toxy::scalecommand .| +_cb] -variable ::toxy::simplescale -orient v -length 300 -width 50 +-font "Helvetica 12" -from -16 -to 16 -showvalue 0 @float .- set .#1 +; #X coords 0 0 1 1 80 360 1; #X restore 472 20 pd linked; #X connect 0 0 1 0; |