diff options
author | N.N. <krzyszcz@users.sourceforge.net> | 2004-03-10 10:55:57 +0000 |
---|---|---|
committer | N.N. <krzyszcz@users.sourceforge.net> | 2004-03-10 10:55:57 +0000 |
commit | c7389b6452e3d44d8f8fb9699f06c1b2db1c51ba (patch) | |
tree | 0a838b12169ae88f070df5a9c89f636507e4eb47 /test/toxy/multiscale.wid | |
parent | bc5e203f7787980f65f81ddbf69a619ab34fa85e (diff) |
toxy alpha7
svn path=/trunk/externals/miXed/; revision=1402
Diffstat (limited to 'test/toxy/multiscale.wid')
-rw-r--r-- | test/toxy/multiscale.wid | 14 |
1 files changed, 14 insertions, 0 deletions
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 |