aboutsummaryrefslogtreecommitdiff
path: root/test/toxy/scale-test.pd
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2004-02-19 22:23:18 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2004-02-19 22:23:18 +0000
commitd0f6986345970955d6390a6953c35babf587c262 (patch)
treeb9c55d804a317558da506f9655ff495856ef47d8 /test/toxy/scale-test.pd
parentd405128358369b5b7424c086c67345d12edfde7d (diff)
many small improvements in toxy, plustot added
svn path=/trunk/externals/miXed/; revision=1321
Diffstat (limited to 'test/toxy/scale-test.pd')
-rw-r--r--test/toxy/scale-test.pd25
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;