blob: 1067703d6ccdaa7062f161689ff22e765ac1ef20 (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
source base.tcl
set w .bar
set graph [bltBarGraph $w]
echo "Testing BarGraph..."
# Graph
bltTest $graph -aspect 2
bltTest $graph -background red
bltTest $graph -barmode stacked
bltTest $graph -barmode aligned
bltTest $graph -barmode overlap
bltTest $graph -barwidth .15
#bltTest $graph -baseline
bltTest $graph -bd 50
bltTest $graph -bg green
bltTest $graph -bm 50
bltTest $graph -borderwidth 50
bltTest $graph -bottommargin 50
#bltTest $graph -bufferelements
#bltTest $graph -buffergraph
bltTest $graph -cursor cross
bltTest $graph -fg blue
bltTest $graph -font {times 36 bold italic}
bltTest $graph -foreground cyan
#bltTest $graph -halo
bltTest $graph -height 300
#bltTest $graph -highlightbackground
#bltTest $graph -highlightcolor
#bltTest $graph -highlightthickness
bltTest $graph -invertxy yes
#bltTest $graph -justify
bltTest $graph -leftmargin 50
bltTest $graph -lm 50
bltTest $graph -plotbackground cyan
bltTest $graph -plotborderwidth 50
bltTest $graph -plotpadx 50
bltTest $graph -plotpady 50
bltTest $graph -plotrelief groove
bltTest $graph -relief groove
bltTest $graph -rightmargin 50
bltTest $graph -rm 50
#bltTest $graph -searchhalo
#bltTest $graph -searchmode
#bltTest $graph -searchalong
#bltTest $graph -stackaxes
#bltTest $graph -takefocus
bltTest $graph -title "This is a Title"
bltTest $graph -tm 50
bltTest $graph -topmargin 50
bltTest $graph -width 300
bltTest $graph -plotwidth 300
bltTest $graph -plotheight 300
echo "done"
bltPlotDestroy $w
|
