From c7389b6452e3d44d8f8fb9699f06c1b2db1c51ba Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Wed, 10 Mar 2004 10:55:57 +0000
Subject: toxy alpha7

svn path=/trunk/externals/miXed/; revision=1402
---
 test/toxy/multiscale.wid | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'test/toxy/multiscale.wid')

diff --git a/test/toxy/multiscale.wid b/test/toxy/multiscale.wid
index f66ef6c..be56d2b 100644
--- a/test/toxy/multiscale.wid
+++ b/test/toxy/multiscale.wid
@@ -2,6 +2,18 @@ proc ::toxy::multiscalecommand {target sel ndx v} {
     pd [concat $target $sel $v $ndx \;]
 }
 
+proc ::toxy::multiscale_float {path target count ndx} {
+    if {$ndx >= 0 && $ndx < $count} {
+	pd [concat $target _cb [$path.s$ndx get] $ndx \;]
+    }
+}
+
+proc ::toxy::multiscale_list {path count ndx v} {
+    if {$ndx >= 0 && $ndx < $count} {
+	$path.s$ndx set $v
+    }
+}
+
 proc ::toxy::multiscale {path target remote count dx dy bg} {
     if {[winfo exists $path.s0]} {
 #	puts stderr [concat $path.s0 exists]
@@ -32,6 +44,8 @@ proc ::toxy::multiscale {path target remote count dx dy bg} {
 #> multiscale canvas
 #. #n 3 #dx 60 #dy 90
 #. #bg yellow
+#. @float ::toxy::multiscale_float .- .| .#n .#1
+#. @list ::toxy::multiscale_list .- .#n .#2 .#1
 
 ::toxy::multiscale .- .| . .#n .#dx .#dy .#bg
 
-- 
cgit v1.2.1