diff options
Diffstat (limited to 'tests/polygonmarker.tcl')
-rw-r--r-- | tests/polygonmarker.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index 59078ff..21ff799 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -5,21 +5,22 @@ set graph [bltLineGraph $w] set mm [$graph marker create polygon tt -element data1 \ -coords {1 50 1.5 100 1 150} -linewidth 5] +$graph element configure data1 -hide yes echo "Testing Polygon Marker..." #bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -cap round bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} -bltTest3 $graph marker $mm -dashes "8 3" -bltTest3 $graph marker $mm -element data2 +bltTest3 $graph marker $mm -dashes {8 3} +bltTest3 $graph marker $mm -element data1 bltTest3 $graph marker $mm -fill yellow bltTest3 $graph marker $mm -fillbg blue bltTest3 $graph marker $mm -join round bltTest3 $graph marker $mm -linewidth 1 bltTest3 $graph marker $mm -hide yes -bltTest3 $graph marker $mm -mapx x -bltTest3 $graph marker $mm -mapy y +bltTest3 $graph marker $mm -mapx x2 +bltTest3 $graph marker $mm -mapy y2 bltTest3 $graph marker $mm -outline green bltTest3 $graph marker $mm -outlinebg cyan bltTest3 $graph marker $mm -state disabled |