diff options
author | joye <joye> | 2014-05-20 19:08:57 (GMT) |
---|---|---|
committer | joye <joye> | 2014-05-20 19:08:57 (GMT) |
commit | 558d13bd64d9b121b2d8aa38b19527eac75302f8 (patch) | |
tree | 25f2c4df41944e73f0c8166e26a0d0b20277e547 /tests/barpen.tcl | |
parent | b8968fb771ec905f3dd6d9de54fe96478b9c46b3 (diff) | |
download | blt-558d13bd64d9b121b2d8aa38b19527eac75302f8.zip blt-558d13bd64d9b121b2d8aa38b19527eac75302f8.tar.gz blt-558d13bd64d9b121b2d8aa38b19527eac75302f8.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'tests/barpen.tcl')
-rw-r--r-- | tests/barpen.tcl | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/tests/barpen.tcl b/tests/barpen.tcl new file mode 100644 index 0000000..6189b2a --- /dev/null +++ b/tests/barpen.tcl @@ -0,0 +1,44 @@ +source base.tcl + +set w .bar +set graph [bltBarGraph $w] + +$graph pen create foo -color red -showvalues y +$graph element configure data2 -pen foo + +echo "Testing Bar Pen..." + +bltTest3 $graph pen foo -background yellow +bltTest3 $graph pen foo -bd 4 +bltTest3 $graph pen foo -bg yellow +bltTest3 $graph pen foo -borderwidth 4 +bltTest3 $graph pen foo -color yellow +bltTest3 $graph pen foo -errorbarcolor green +bltTest3 $graph pen foo -errorbarwidth 2 +bltTest3 $graph pen foo -errorbarcap 10 +bltTest3 $graph pen foo -fg yellow +bltTest3 $graph pen foo -fill cyan +bltTest3 $graph pen foo -foreground green +bltTest3 $graph pen foo -outline red +bltTest3 $graph pen foo -relief flat +bltTest3 $graph pen foo -showerrorbars no +bltTest3 $graph pen foo -showvalues none +bltTest3 $graph pen foo -showvalues x +bltTest3 $graph pen foo -showvalues both +bltTest3 $graph pen foo -valueanchor n +bltTest3 $graph pen foo -valuecolor cyan +bltTest3 $graph pen foo -valuefont "times 18 bold italic" +bltTest3 $graph pen foo -valueformat "%e" +bltTest3 $graph pen foo -valuerotate 45 + +bltCmd $graph pen cget foo -color +bltCmd $graph pen configure foo +bltCmd $graph pen configure foo -color +bltCmd $graph pen create bar +bltCmd $graph pen delete bar +bltCmd $graph pen names +bltCmd $graph pen type foo + +echo "done" +bltPlotDestroy $w + |