diff options
Diffstat (limited to 'tests/textmarker.tcl')
-rw-r--r-- | tests/textmarker.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl index fbaf276..0b38fbb 100644 --- a/tests/textmarker.tcl +++ b/tests/textmarker.tcl @@ -5,23 +5,24 @@ set graph [bltLineGraph $w] set mm [$graph marker create text tt -element data1 \ -coords {1.5 100} -text {Text Marker} -font {24}] +$graph element configure data1 -hide yes echo "Testing Text Marker..." bltTest3 $graph marker $mm -anchor nw -bltTest3 $graph marker $mm -background blue +bltTest3 $graph marker $mm -background yellow bltTest3 $graph marker $mm -bg red #bltTest3 $graph marker $mm -bindtags {aa} 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 -font {times 24 bold italic} -bltTest3 $graph marker $mm -foreground red +bltTest3 $graph marker $mm -foreground blue bltTest3 $graph marker $mm -justify right 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 -rotate 45 bltTest3 $graph marker $mm -state disabled |