summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/axis.tcl3
-rw-r--r--tests/barelement.tcl1
-rw-r--r--tests/bargraph.tcl1
-rw-r--r--tests/bitmapmarker.tcl1
-rw-r--r--tests/crosshairs.tcl5
-rw-r--r--tests/legend.tcl1
-rw-r--r--tests/lineelement.tcl1
-rw-r--r--tests/linegraph.tcl1
-rw-r--r--tests/linemarker.tcl5
-rw-r--r--tests/linepen.tcl1
-rw-r--r--tests/marker.tcl1
-rw-r--r--tests/polygonmarker.tcl3
-rw-r--r--tests/textmarker.tcl3
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