diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/axis.tcl | 4 | ||||
-rw-r--r-- | tests/barelement.tcl | 4 | ||||
-rw-r--r-- | tests/bargraph.tcl | 4 | ||||
-rw-r--r-- | tests/barpen.tcl | 4 | ||||
-rw-r--r-- | tests/base.tcl | 8 | ||||
-rw-r--r-- | tests/crosshairs.tcl | 4 | ||||
-rw-r--r-- | tests/legend.tcl | 4 | ||||
-rw-r--r-- | tests/lineelement.tcl | 4 | ||||
-rw-r--r-- | tests/linegraph.tcl | 4 | ||||
-rw-r--r-- | tests/linemarker.tcl | 4 | ||||
-rw-r--r-- | tests/linepen.tcl | 4 | ||||
-rw-r--r-- | tests/marker.tcl | 4 | ||||
-rw-r--r-- | tests/polygonmarker.tcl | 4 | ||||
-rw-r--r-- | tests/ps.tcl | 2 | ||||
-rw-r--r-- | tests/test.tcl | 2 | ||||
-rw-r--r-- | tests/textmarker.tcl | 4 |
16 files changed, 32 insertions, 32 deletions
diff --git a/tests/axis.tcl b/tests/axis.tcl index 9fb6af9..80f97ea 100644 --- a/tests/axis.tcl +++ b/tests/axis.tcl @@ -7,7 +7,7 @@ $graph axis configure x -bd 2 -background cyan -title "X\nAxis" -limitsformat "% $graph axis configure y -bd 2 -background cyan -title "Y\nAxis" bltCmd $graph axis activate y -echo "Testing Axis..." +puts stderr "Testing Axis..." bltTest3 $graph axis y -activeforeground red $dops bltTest3 $graph axis y -activerelief sunken $dops @@ -100,6 +100,6 @@ bltCmd $graph xaxis configure -color #bltCmd $graph xaxis use #bltCmd $graph xaxis view -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/barelement.tcl b/tests/barelement.tcl index 8188f7b..5b8cb07 100644 --- a/tests/barelement.tcl +++ b/tests/barelement.tcl @@ -9,7 +9,7 @@ $graph element configure data2 -color blue $graph pen create foo -showvalues y -color purple $graph element activate data3 -echo "Testing Bar Element..." +puts stderr "Testing Bar Element..." bltTest3 $graph element data3 -activepen foo $dops bltTest3 $graph element data2 -background yellow $dops @@ -92,6 +92,6 @@ bltCmd $graph element show data2 bltCmd $graph element show {data1 data2 data3} bltCmd $graph element type data1 -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl index 03f538f..20f067d 100644 --- a/tests/bargraph.tcl +++ b/tests/bargraph.tcl @@ -3,7 +3,7 @@ source base.tcl set w .bar set graph [bltBarGraph $w] -echo "Testing Bar Graph..." +puts stderr "Testing Bar Graph..." # Graph bltTest $graph -aspect 2 $dops @@ -75,6 +75,6 @@ bltCmd $graph configure -background cyan ##bltCmd $graph y2axis ##bltCmd $graph yaxis -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/barpen.tcl b/tests/barpen.tcl index e313a81..d06928b 100644 --- a/tests/barpen.tcl +++ b/tests/barpen.tcl @@ -6,7 +6,7 @@ set graph [bltBarGraph $w] $graph pen create foo -color red -showvalues y $graph element configure data2 -pen foo -echo "Testing Bar Pen..." +puts stderr "Testing Bar Pen..." bltTest3 $graph pen foo -background yellow $dops bltTest3 $graph pen foo -bd 4 $dops @@ -46,6 +46,6 @@ bltCmd $graph pen delete bar bltCmd $graph pen names bltCmd $graph pen type foo -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/base.tcl b/tests/base.tcl index b02b79d..c02abfa 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -24,7 +24,7 @@ proc bltPlotDestroy {w} { proc bltTest {graph option value {dops 0}} { global sleep - echo " $option $value" + puts stderr " $option $value" set org [$graph cget $option] $graph configure $option $value update @@ -42,7 +42,7 @@ proc bltTest {graph option value {dops 0}} { proc bltTest2 {graph which option value {dops 0}} { global sleep - echo " $option $value" + puts stderr " $option $value" set org [$graph $which cget $option] $graph $which configure $option $value update @@ -60,7 +60,7 @@ proc bltTest2 {graph which option value {dops 0}} { proc bltTest3 {graph which item option value {dops 0}} { global sleep - echo " $item $option $value" + puts stderr " $item $option $value" set org [$graph $which cget $item $option] $graph $which configure $item $option $value update @@ -78,7 +78,7 @@ proc bltTest3 {graph which item option value {dops 0}} { proc bltCmd {graph args} { global sleep - echo " $graph $args" + puts stderr " $graph $args" eval $graph $args update # after $sleep diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl index 95dc270..c63cea5 100644 --- a/tests/crosshairs.tcl +++ b/tests/crosshairs.tcl @@ -6,7 +6,7 @@ set graph [bltLineGraph $w] $graph crosshairs on $graph crosshairs configure -x 200 -y 200 -echo "Testing Crosshairs..." +puts stderr "Testing Crosshairs..." bltTest2 $graph crosshairs -color green bltTest2 $graph crosshairs -dashes "8 3" @@ -21,6 +21,6 @@ bltCmd $graph crosshairs on bltCmd $graph crosshairs off bltCmd $graph crosshairs toggle -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/legend.tcl b/tests/legend.tcl index 3724e6f..dba8da0 100644 --- a/tests/legend.tcl +++ b/tests/legend.tcl @@ -7,7 +7,7 @@ $graph legend selection set data2 $graph legend focus data1 $graph legend configure -selectrelief groove -echo "Testing Legend..." +puts stderr "Testing Legend..." #bltTest2 $graph legend -activebackground $dops #bltTest2 $graph legend -activeborderwidth $dops @@ -96,6 +96,6 @@ bltCmd $graph legend selection toggle data1 data2 bltCmd $graph legend selection set data1 data2 bltCmd $graph legend selection clearall -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl index 95b732b..5edb38e 100644 --- a/tests/lineelement.tcl +++ b/tests/lineelement.tcl @@ -8,7 +8,7 @@ $graph element configure data1 -dash {8 3} -showvalues y -smooth step -symbol ci $graph pen create foo -showvalues y -symbol circle -dashes {8 3} -color purple -linewidth 2 $graph element activate data3 -echo "Testing Line Element.." +puts stderr "Testing Line Element.." bltTest3 $graph element data3 -activepen foo $dops bltTest3 $graph element data2 -areabackground yellow $dops @@ -100,6 +100,6 @@ bltCmd $graph element show data2 bltCmd $graph element show {data1 data2 data3} bltCmd $graph element type data1 -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl index 4e70dd5..6204e72 100644 --- a/tests/linegraph.tcl +++ b/tests/linegraph.tcl @@ -3,7 +3,7 @@ source base.tcl set w .line set graph [bltLineGraph $w] -echo "Testing Line Graph..." +puts stderr "Testing Line Graph..." bltTest $graph -aspect 2 $dops bltTest $graph -background red $dops @@ -70,6 +70,6 @@ bltCmd $graph configure -background cyan ##bltCmd $graph y2axis ##bltCmd $graph yaxis -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index d462a9e..3b66ba6 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -10,7 +10,7 @@ set nn [$graph marker create line ss -element data2 \ -outline green -dashes 4] $graph element configure data1 -hide yes -echo "Testing Line Marker..." +puts stderr "Testing Line Marker..." bltTest3 $graph marker $mm -bindtags {aa} 0 bltTest3 $graph marker $mm -cap round $dops @@ -29,6 +29,6 @@ bltTest3 $graph marker $mm -under yes $dops bltTest3 $graph marker $mm -xoffset 20 $dops bltTest3 $graph marker $mm -yoffset 20 $dops -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/linepen.tcl b/tests/linepen.tcl index 8a1dd83..e47b243 100644 --- a/tests/linepen.tcl +++ b/tests/linepen.tcl @@ -6,7 +6,7 @@ set graph [bltLineGraph $w] $graph pen create foo -color red -showvalues y -symbol circle -dashes {4 4} $graph element configure data2 -pen foo -echo "Testing Line Pen..." +puts stderr "Testing Line Pen..." bltTest3 $graph pen foo -color yellow $dops bltTest3 $graph pen foo -dashes {8 3} $dops @@ -50,6 +50,6 @@ bltCmd $graph pen delete bar bltCmd $graph pen names bltCmd $graph pen type foo -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/marker.tcl b/tests/marker.tcl index 12776b0..8a09a43 100644 --- a/tests/marker.tcl +++ b/tests/marker.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] -echo "Testing Marker..." +puts stderr "Testing Marker..." #bltCmd $graph marker bind aa <Button-1> [list puts "%x %y"] bltCmd $graph marker cget $mm -cap @@ -28,6 +28,6 @@ bltCmd $graph marker raise $mm bltCmd $graph marker raise $mm $nn bltCmd $graph marker type $mm -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index e562821..b1712b0 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -7,7 +7,7 @@ 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..." +puts stderr "Testing Polygon Marker..." bltTest3 $graph marker $mm -bindtags {aa} 0 bltTest3 $graph marker $mm -cap round $dops @@ -25,6 +25,6 @@ bltTest3 $graph marker $mm -under yes $dops bltTest3 $graph marker $mm -xoffset 20 $dops bltTest3 $graph marker $mm -yoffset 20 $dops -echo "done" +puts stderr "done" bltPlotDestroy $w diff --git a/tests/ps.tcl b/tests/ps.tcl index eab89e0..7a9ce23 100644 --- a/tests/ps.tcl +++ b/tests/ps.tcl @@ -24,6 +24,6 @@ $graph postscript output bar.ps #set graph [bltBarGraph $w] -#echo "done" +#puts stderr "done" #bltPlotDestroy $w diff --git a/tests/test.tcl b/tests/test.tcl index 6c17a4d..df6ffd8 100644 --- a/tests/test.tcl +++ b/tests/test.tcl @@ -5,6 +5,6 @@ set graph [bltLineGraph $w] #set graph [bltBarGraph $w] -#echo "done" +#puts stderr "done" #bltPlotDestroy $w diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl index 8644d43..ba3defc 100644 --- a/tests/textmarker.tcl +++ b/tests/textmarker.tcl @@ -7,7 +7,7 @@ set mm [$graph marker create text tt -element data2 \ -coords {1. 112} -text "Text\nMarker" -font {helvetica 24}] $graph element configure data1 -hide yes -echo "Testing Text Marker..." +puts stderr "Testing Text Marker..." bltTest3 $graph marker $mm -anchor nw $dops bltTest3 $graph marker $mm -anchor n $dops @@ -39,6 +39,6 @@ bltTest3 $graph marker $mm -under yes $dops bltTest3 $graph marker $mm -xoffset 20 $dops bltTest3 $graph marker $mm -yoffset 20 $dops -echo "done" +puts stderr "done" bltPlotDestroy $w |