diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/axis.tcl | 3 | ||||
-rw-r--r-- | tests/barelement.tcl | 1 | ||||
-rw-r--r-- | tests/bargraph.tcl | 1 | ||||
-rw-r--r-- | tests/bitmapmarker.tcl | 1 | ||||
-rw-r--r-- | tests/crosshairs.tcl | 5 | ||||
-rw-r--r-- | tests/legend.tcl | 1 | ||||
-rw-r--r-- | tests/lineelement.tcl | 1 | ||||
-rw-r--r-- | tests/linegraph.tcl | 1 | ||||
-rw-r--r-- | tests/linemarker.tcl | 5 | ||||
-rw-r--r-- | tests/linepen.tcl | 1 | ||||
-rw-r--r-- | tests/marker.tcl | 1 | ||||
-rw-r--r-- | tests/polygonmarker.tcl | 3 | ||||
-rw-r--r-- | tests/textmarker.tcl | 3 |
13 files changed, 20 insertions, 7 deletions
diff --git a/tests/axis.tcl b/tests/axis.tcl index e7f08bb..a55ff9e 100644 --- a/tests/axis.tcl +++ b/tests/axis.tcl @@ -3,9 +3,10 @@ source base.tcl set w .line set graph [bltLineGraph $w] -$graph xaxis configure -title "X Axis" -limitsformat "%g" +$graph axis configure x -title "X Axis" -limitsformat "%g" echo "Testing Axis..." +bltCmd $graph axis configure x #bltCmd $graph axis activate #bltCmd $graph axis bind diff --git a/tests/barelement.tcl b/tests/barelement.tcl index a0b971c..94c0da5 100644 --- a/tests/barelement.tcl +++ b/tests/barelement.tcl @@ -10,6 +10,7 @@ $graph pen create foo -showvalues y -color purple $graph element activate data3 echo "Testing Bar Element..." +bltCmd $graph element data1 configure bltTest3 $graph element data3 -activepen foo bltTest3 $graph element data2 -background yellow diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl index 66e62c7..032c0cd 100644 --- a/tests/bargraph.tcl +++ b/tests/bargraph.tcl @@ -4,6 +4,7 @@ set w .bar set graph [bltBarGraph $w] echo "Testing Bar Graph..." +bltCmd $graph configure # Graph bltTest $graph -aspect 2 diff --git a/tests/bitmapmarker.tcl b/tests/bitmapmarker.tcl index 07fb957..fffada0 100644 --- a/tests/bitmapmarker.tcl +++ b/tests/bitmapmarker.tcl @@ -8,6 +8,7 @@ set mm [$graph marker create bitmap tt -element data2 \ $graph element configure data1 -hide yes echo "Testing Bitmap Marker..." +bltCmd $graph marker configure $mm bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background yellow diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl index e0a0926..86efb8c 100644 --- a/tests/crosshairs.tcl +++ b/tests/crosshairs.tcl @@ -3,11 +3,12 @@ source base.tcl set w .line set graph [bltLineGraph $w] -echo "Testing Crosshairs..." - $graph crosshairs configure -hide no $graph crosshairs configure -x 200 -y 200 +echo "Testing Crosshairs..." +$graph crosshairs configure + bltTest2 $graph crosshairs -color green bltTest2 $graph crosshairs -dashes "8 3" bltTest2 $graph crosshairs -hide yes diff --git a/tests/legend.tcl b/tests/legend.tcl index 1893081..0a55cfa 100644 --- a/tests/legend.tcl +++ b/tests/legend.tcl @@ -8,6 +8,7 @@ $graph legend focus data1 $graph legend configure -selectrelief groove echo "Testing Legend..." +$graph legend configure #bltTest2 $graph legend -activebackground #bltTest2 $graph legend -activeborderwidth diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl index 4c2aefb..ebf858c 100644 --- a/tests/lineelement.tcl +++ b/tests/lineelement.tcl @@ -9,6 +9,7 @@ $graph pen create foo -showvalues y -symbol circle -dashes {8 3} -color purple $graph element activate data3 echo "Testing Line Element.." +bltTest3 $graph element configure data1 bltTest3 $graph element data3 -activepen foo bltTest3 $graph element data2 -areabackground yellow diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl index 020816e..6a79e2c 100644 --- a/tests/linegraph.tcl +++ b/tests/linegraph.tcl @@ -4,6 +4,7 @@ set w .line set graph [bltLineGraph $w] echo "Testing Line Graph..." +bltCmd $graph configure bltTest $graph -aspect 2 bltTest $graph -background red diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index 3d2e52b..7df2cff 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -3,14 +3,15 @@ source base.tcl set w .line set graph [bltLineGraph $w] -set mm [$graph marker create line tt -element data1 \ +set mm [$graph marker create line tt -element data2 \ -coords {1 50 1.5 100 1 150} -linewidth 5] -set nn [$graph marker create line ss -element data1 \ +set nn [$graph marker create line ss -element data2 \ -coords {1 150 .5 100 1 50} -linewidth 1 \ -outline green -dashes 4] $graph element configure data1 -hide yes echo "Testing Line Marker..." +bltCmd $graph marker configure $mm #bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -cap round diff --git a/tests/linepen.tcl b/tests/linepen.tcl index e3f5634..d8cf2b0 100644 --- a/tests/linepen.tcl +++ b/tests/linepen.tcl @@ -7,6 +7,7 @@ $graph pen create foo -color red -showvalues y -symbol circle -dashes {4 4} $graph element configure data2 -pen foo echo "Testing Line Pen..." +$graph element configure data1 bltTest3 $graph pen foo -color yellow bltTest3 $graph pen foo -dashes {8 3} diff --git a/tests/marker.tcl b/tests/marker.tcl index 23a3a92..2a9e702 100644 --- a/tests/marker.tcl +++ b/tests/marker.tcl @@ -10,6 +10,7 @@ set nn [$graph marker create line ss -element data1 \ -outline green -dashes 4] echo "Testing Marker..." +bltCmd $graph marker configure $mm #bltCmd $graph marker bind aa <Button-1> [list puts "%x %y"] bltCmd $graph marker cget $mm -cap diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index 21ff799..4acd7c5 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -3,11 +3,12 @@ source base.tcl set w .line set graph [bltLineGraph $w] -set mm [$graph marker create polygon tt -element data1 \ +set mm [$graph marker create polygon tt -element data2 \ -coords {1 50 1.5 100 1 150} -linewidth 5] $graph element configure data1 -hide yes echo "Testing Polygon Marker..." +bltCmd $graph marker configure $mm #bltTest3 $graph marker $mm -bindtags {aa} bltTest3 $graph marker $mm -cap round diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl index 0b38fbb..a72b767 100644 --- a/tests/textmarker.tcl +++ b/tests/textmarker.tcl @@ -3,11 +3,12 @@ source base.tcl set w .line set graph [bltLineGraph $w] -set mm [$graph marker create text tt -element data1 \ +set mm [$graph marker create text tt -element data2 \ -coords {1.5 100} -text {Text Marker} -font {24}] $graph element configure data1 -hide yes echo "Testing Text Marker..." +bltCmd $graph marker configure $mm bltTest3 $graph marker $mm -anchor nw bltTest3 $graph marker $mm -background yellow |