diff options
Diffstat (limited to 'tests/crosshairs.tcl')
| -rw-r--r-- | tests/crosshairs.tcl | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl index c63cea5..ad6246e 100644 --- a/tests/crosshairs.tcl +++ b/tests/crosshairs.tcl @@ -1,25 +1,25 @@ source base.tcl set w .line -set graph [bltLineGraph $w] +set bltgr [bltLineGraph $w] -$graph crosshairs on -$graph crosshairs configure -x 200 -y 200 +$bltgr crosshairs on +$bltgr crosshairs configure -x 200 -y 200 puts stderr "Testing Crosshairs..." -bltTest2 $graph crosshairs -color green -bltTest2 $graph crosshairs -dashes "8 3" -bltTest2 $graph crosshairs -linewidth 3 -bltTest2 $graph crosshairs -x 100 -bltTest2 $graph crosshairs -y 100 +bltTest2 $bltgr crosshairs -color green +bltTest2 $bltgr crosshairs -dashes "8 3" +bltTest2 $bltgr crosshairs -linewidth 3 +bltTest2 $bltgr crosshairs -x 100 +bltTest2 $bltgr crosshairs -y 100 -bltCmd $graph crosshairs cget -color -bltCmd $graph crosshairs configure -bltCmd $graph crosshairs configure -color -bltCmd $graph crosshairs on -bltCmd $graph crosshairs off -bltCmd $graph crosshairs toggle +bltCmd $bltgr crosshairs cget -color +bltCmd $bltgr crosshairs configure +bltCmd $bltgr crosshairs configure -color +bltCmd $bltgr crosshairs on +bltCmd $bltgr crosshairs off +bltCmd $bltgr crosshairs toggle puts stderr "done" bltPlotDestroy $w |