summaryrefslogtreecommitdiffstats
path: root/tests/marker.tcl
blob: 345654d485ead535c6924231a4893fb51bc95189 (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
28
29
30
31
32
source base.tcl

set w .line
set graph [bltLineGraph $w]

set mm [$graph marker create line tt -element data1 \
	    -coords {1 50 1.5 100 1 150} -linewidth 5]
set nn [$graph marker create line ss -element data1 \
	    -coords {1 150 .5 100 1 50} -linewidth 1 \
	    -outline green -dashes 4]

#bltCmd $graph marker bind marker ?sequence command?
bltCmd $graph marker cget $mm -cap
bltCmd $graph marker configure $mm
bltCmd $graph marker configure $mm -cap
set foo [$graph marker create line]
bltCmd $graph marker delete $foo
set foo [$graph marker create line foo]
bltCmd $graph marker delete $foo
bltCmd $graph marker exists $mm
bltCmd $graph marker find enclosed 0 0 2 200
bltCmd $graph marker get name current
bltCmd $graph marker lower $mm
bltCmd $graph marker lower $mm $nn
bltCmd $graph marker names
bltCmd $graph marker raise $mm
bltCmd $graph marker raise $mm $nn
bltCmd $graph marker type $mm

echo "done"
bltPlotDestroy $w