diff options
Diffstat (limited to 'tests/bitmapmarker.tcl')
| -rw-r--r-- | tests/bitmapmarker.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/bitmapmarker.tcl b/tests/bitmapmarker.tcl index 9dff62a..07fb957 100644 --- a/tests/bitmapmarker.tcl +++ b/tests/bitmapmarker.tcl @@ -3,8 +3,9 @@ source base.tcl set w .line set graph [bltLineGraph $w] -set mm [$graph marker create bitmap tt -element data1 \ +set mm [$graph marker create bitmap tt -element data2 \ -coords {1.5 100} -bitmap error] +$graph element configure data1 -hide yes echo "Testing Bitmap Marker..." @@ -14,13 +15,13 @@ bltTest3 $graph marker $mm -bg red #bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -bitmap hourglass bltTest3 $graph marker $mm -coords {1 50} -bltTest3 $graph marker $mm -element data2 +bltTest3 $graph marker $mm -element data1 bltTest3 $graph marker $mm -fg cyan bltTest3 $graph marker $mm -fill yellow bltTest3 $graph marker $mm -foreground blue 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 -state disabled bltTest3 $graph marker $mm -under yes |