blob: d8e93aeb6c160f0a9c31dc694135b7344d038555 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
source base.tcl
set w .line
set graph [bltLineGraph $w]
$graph crosshairs configure -hide no
$graph crosshairs configure -x 200 -y 200
echo "Testing Crosshairs..."
bltTest2 $graph crosshairs -color green $dops
bltTest2 $graph crosshairs -dashes "8 3" $dops
bltTest2 $graph crosshairs -hide yes $dops
bltTest2 $graph crosshairs -linewidth 3 $dops
bltTest2 $graph crosshairs -x 100 $dops
bltTest2 $graph crosshairs -y 100 $dops
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
echo "done"
bltPlotDestroy $w
|