diff options
| -rw-r--r-- | tests/base.tcl | 9 | ||||
| -rw-r--r-- | tests/crosshairs.tcl | 25 |
2 files changed, 23 insertions, 11 deletions
diff --git a/tests/base.tcl b/tests/base.tcl index 21dd1d7..e4de658 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -41,6 +41,15 @@ proc bltTest2 {graph which option value} { after $sleep } +proc bltCmd {graph cmd value} { + global sleep + + echo " $graph $cmd $value" + $graph $cmd $value + update + after $sleep +} + proc bltBarGraph {w} { global sleep diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl index 0406eb8..0a8ad2f 100644 --- a/tests/crosshairs.tcl +++ b/tests/crosshairs.tcl @@ -1,19 +1,22 @@ source base.tcl -set w .ch +set w .line set graph [bltLineGraph $w] -#bltTest2 $graph crosshairs -color green -#bltTest2 $graph crosshairs -dashes "dotdot" -#bltTest2 $graph crosshairs -dashes "5 8 3" -#bltTest2 $graph crosshairs -hide yes -#bltTest2 $graph crosshairs -linewidth 3 -#bltTest2 $graph crosshairs -position "@1,50" +$graph crosshairs configure -hide no +$graph crosshairs configure -position "@200,200" -#$graph crosshairs on -#$graph crosshairs off -#$graph crosshairs toggle +bltTest2 $graph crosshairs -color green +bltTest2 $graph crosshairs -dashes "dashdot" +bltTest2 $graph crosshairs -dashes "5 8 3" +bltTest2 $graph crosshairs -hide yes +bltTest2 $graph crosshairs -linewidth 3 +bltTest2 $graph crosshairs -position "@100,100" + +bltCmd $graph crosshairs on +bltCmd $graph crosshairs off +bltCmd $graph crosshairs toggle echo "done" -#bltPlotDestroy $w +bltPlotDestroy $w |