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
|
