From eb0f03dcf8233f5ff8bed1249145c352863872ae Mon Sep 17 00:00:00 2001 From: joye Date: Wed, 19 Mar 2014 14:57:58 +0000 Subject: *** empty log message *** --- tests/all.tcl | 14 ++++++++++++++ tests/bitmapmarker.tcl | 6 +++--- tests/linemarker.tcl | 2 +- tests/marker.tcl | 4 ++-- tests/polygonmarker.tcl | 2 +- tests/textmarker.tcl | 2 +- 6 files changed, 22 insertions(+), 8 deletions(-) create mode 100644 tests/all.tcl 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 [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 -- cgit v0.12