diff options
author | joye <joye> | 2014-02-19 22:05:14 (GMT) |
---|---|---|
committer | joye <joye> | 2014-02-19 22:05:14 (GMT) |
commit | 3235bb172a71442d0d0704ef4ce6f269a050c79f (patch) | |
tree | 6bbfb6437a52b6bfbc127e8f4c518436d8a28e12 /tests/base.tcl | |
parent | 515702b8eeee7c2b8d7342e893ca8bcfb59537fc (diff) | |
download | blt-3235bb172a71442d0d0704ef4ce6f269a050c79f.zip blt-3235bb172a71442d0d0704ef4ce6f269a050c79f.tar.gz blt-3235bb172a71442d0d0704ef4ce6f269a050c79f.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'tests/base.tcl')
-rw-r--r-- | tests/base.tcl | 32 |
1 files changed, 24 insertions, 8 deletions
diff --git a/tests/base.tcl b/tests/base.tcl index e4de658..bfd12db 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -41,11 +41,24 @@ proc bltTest2 {graph which option value} { after $sleep } -proc bltCmd {graph cmd value} { +proc bltTest3 {graph which item option value} { global sleep - echo " $graph $cmd $value" - $graph $cmd $value + echo " $item $option $value" + set org [$graph $which cget $item $option] + $graph $which configure $item $option $value + update + after $sleep + $graph $which configure $item $option $org + update + after $sleep +} + +proc bltCmd {graph args} { + global sleep + + echo " $graph $args" + eval $graph $args update after $sleep } @@ -93,13 +106,16 @@ proc bltLineGraph {w} { pack $graph -expand yes -fill both $graph element create data1 \ - -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \ - -ydata { 13 25 36 46 55 64 70 75 80 90} \ + -xdata {0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0} \ + -ydata {13 25 36 46 55 64 70 75 80 90} \ -color blue $graph element create data2 \ - -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \ - -ydata { 26 50 72 92 110 128 140 150 160 180} \ - -color red + -xdata {0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0} \ + -ydata {26 50 72 92 110 128 140 150 160 180} \ + -yerror {10 10 10 10 10 10 10 10 10 10 10} \ + -color red \ + -dashes {10 20 10} \ + -showvalues y $graph legend configure -title "Legend" update |