diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2020-07-22 20:06:54 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2020-07-22 20:06:54 (GMT) |
commit | 562a649a1f5145e6563ca33766d5030c17782006 (patch) | |
tree | 9dae88caa104812b1a3bc0941901a37fd39c8748 /tests/crosshairs.tcl | |
parent | 7f27a43cedb771534c895921dd84eede4cd48874 (diff) | |
download | blt-562a649a1f5145e6563ca33766d5030c17782006.zip blt-562a649a1f5145e6563ca33766d5030c17782006.tar.gz blt-562a649a1f5145e6563ca33766d5030c17782006.tar.bz2 |
fix tkblt tests
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 |