diff options
author | joye <joye> | 2014-03-19 14:57:58 (GMT) |
---|---|---|
committer | joye <joye> | 2014-03-19 14:57:58 (GMT) |
commit | eb0f03dcf8233f5ff8bed1249145c352863872ae (patch) | |
tree | b2be8c7209714fffb79d5868a8ce97f9f162f08c | |
parent | 3e470981e44c7f52186c040d9e759a7789b25a81 (diff) | |
download | blt-eb0f03dcf8233f5ff8bed1249145c352863872ae.zip blt-eb0f03dcf8233f5ff8bed1249145c352863872ae.tar.gz blt-eb0f03dcf8233f5ff8bed1249145c352863872ae.tar.bz2 |
*** empty log message ***
-rw-r--r-- | tests/all.tcl | 14 | ||||
-rw-r--r-- | tests/bitmapmarker.tcl | 6 | ||||
-rw-r--r-- | tests/linemarker.tcl | 2 | ||||
-rw-r--r-- | tests/marker.tcl | 4 | ||||
-rw-r--r-- | tests/polygonmarker.tcl | 2 | ||||
-rw-r--r-- | tests/textmarker.tcl | 2 |
6 files changed, 22 insertions, 8 deletions
diff --git a/tests/all.tcl b/tests/all.tcl new file mode 100644 index 0000000..02c1fe4 --- /dev/null +++ b/tests/all.tcl @@ -0,0 +1,14 @@ +graph.tcl +xaxis.tcl +axis.tcl +line.tcl +bar.tcl +element.tcl +pen.tcl +crosshairs.tcl +legend.tcl +marker.tcl +bitmapmarker.tcl +linemarker.tcl +polygonmarker.tcl +textmarker.tcl diff --git a/tests/bitmapmarker.tcl b/tests/bitmapmarker.tcl index 04418ae..b71e58d 100644 --- a/tests/bitmapmarker.tcl +++ b/tests/bitmapmarker.tcl @@ -5,13 +5,14 @@ set graph [bltLineGraph $w] set mm [$graph marker create bitmap tt -element data1 \ -coords {1.5 100} -bitmap error] - +return bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background yellow bltTest3 $graph marker $mm -bg red -#bltTest3 $graph marker $mm -bindtags +bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -bitmap hourglass bltTest3 $graph marker $mm -coords {1 50} +bltTest3 $graph marker $mm -coords {1 50 1.1 60} bltTest3 $graph marker $mm -element data2 bltTest3 $graph marker $mm -fg cyan bltTest3 $graph marker $mm -fill yellow @@ -20,7 +21,6 @@ bltTest3 $graph marker $mm -hide yes bltTest3 $graph marker $mm -mapx x bltTest3 $graph marker $mm -mapy y bltTest3 $graph marker $mm -outline green -#bltTest3 $graph marker $mm -rotate 45 bltTest3 $graph marker $mm -state disabled bltTest3 $graph marker $mm -under yes bltTest3 $graph marker $mm -xoffset 20 diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index a8d20dc..41f7a34 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -9,7 +9,7 @@ set nn [$graph marker create line ss -element data1 \ -coords {1 150 .5 100 1 50} -linewidth 1 \ -outline green -dashes 4] -#bltTest3 $graph marker $mm -bindtags +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 dashdot diff --git a/tests/marker.tcl b/tests/marker.tcl index 345654d..f72029c 100644 --- a/tests/marker.tcl +++ b/tests/marker.tcl @@ -4,12 +4,12 @@ set w .line set graph [bltLineGraph $w] set mm [$graph marker create line tt -element data1 \ - -coords {1 50 1.5 100 1 150} -linewidth 5] + -coords {1 50 1.5 100 1 150} -linewidth 5 -bind {aa}] set nn [$graph marker create line ss -element data1 \ -coords {1 150 .5 100 1 50} -linewidth 1 \ -outline green -dashes 4] -#bltCmd $graph marker bind marker ?sequence command? +bltCmd $graph marker bind aa <Button-1> [list puts "%x %y"] bltCmd $graph marker cget $mm -cap bltCmd $graph marker configure $mm bltCmd $graph marker configure $mm -cap diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index d6403bf..4cd94bd 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -6,7 +6,7 @@ set graph [bltLineGraph $w] set mm [$graph marker create polygon tt -element data1 \ -coords {1 50 1.5 100 1 150} -polygonwidth 5] -#bltTest3 $graph marker $mm -bindtags +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 dashdot diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl index 7e37e94..d6d8e0c 100644 --- a/tests/textmarker.tcl +++ b/tests/textmarker.tcl @@ -9,7 +9,7 @@ set mm [$graph marker create text tt -element data1 \ bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background blue bltTest3 $graph marker $mm -bg red -#bltTest3 $graph marker $mm -bindtags +bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -coords {1 50} bltTest3 $graph marker $mm -element data2 bltTest3 $graph marker $mm -fg cyan |