diff options
Diffstat (limited to 'tests/linepen.tcl')
| -rw-r--r-- | tests/linepen.tcl | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/tests/linepen.tcl b/tests/linepen.tcl index 38b29fc..e3f5634 100644 --- a/tests/linepen.tcl +++ b/tests/linepen.tcl @@ -3,23 +3,32 @@ source base.tcl set w .line set graph [bltLineGraph $w] -$graph pen create foo -showvalues y -symbol circle -dashes "8 4" +$graph pen create foo -color red -showvalues y -symbol circle -dashes {4 4} $graph element configure data2 -pen foo echo "Testing Line Pen..." -bltTest3 $graph pen foo -color red -bltTest3 $graph pen foo -dashes "5 8 3" -bltTest3 $graph pen foo -errorbarcolor yellow +bltTest3 $graph pen foo -color yellow +bltTest3 $graph pen foo -dashes {8 3} +bltTest3 $graph pen foo -errorbarcolor green bltTest3 $graph pen foo -errorbarwidth 2 -bltTest3 $graph pen foo -fill green -bltTest3 $graph pen foo -linewidth 2 -bltTest3 $graph pen foo -offdash yellow +bltTest3 $graph pen foo -errorbarcap 10 +bltTest3 $graph pen foo -fill cyan +bltTest3 $graph pen foo -linewidth 3 +bltTest3 $graph pen foo -offdash black bltTest3 $graph pen foo -outline green -bltTest3 $graph pen foo -outlinewidth 2 +bltTest3 $graph pen foo -outlinewidth 5 bltTest3 $graph pen foo -pixels 20 bltTest3 $graph pen foo -showvalues none +bltTest3 $graph pen foo -symbol arrow +bltTest3 $graph pen foo -symbol cross +bltTest3 $graph pen foo -symbol diamond +bltTest3 $graph pen foo -symbol none +bltTest3 $graph pen foo -symbol plus +bltTest3 $graph pen foo -symbol scross +bltTest3 $graph pen foo -symbol splus bltTest3 $graph pen foo -symbol square +bltTest3 $graph pen foo -symbol triangle bltTest3 $graph pen foo -valueanchor n bltTest3 $graph pen foo -valuecolor cyan bltTest3 $graph pen foo -valuefont "times 18 bold italic" |