*** empty log message ***

2 files changed, 109 insertions, 5 deletions

diff --git a/tests/base.tcl b/tests/base.tcl
index 09cb919..cc1ee6c 100644
--- a/tests/base.tcl
+++ b/tests/base.tcl
@@ -1,4 +1,5 @@
-set sleep 1000
+#set sleep 1000
+set sleep 500
 
 proc bltPlot {w title} {
     toplevel $w
@@ -22,7 +23,8 @@ proc bltTest {graph option value} {
     set org [$graph cget $option]
     $graph configure $option $value
     update
-    after $sleep
+#    after $sleep
+    read stdin 1
     $graph configure $option $org
     update
     after $sleep
@@ -35,7 +37,8 @@ proc bltTest2 {graph which option value} {
     set org [$graph $which cget $option]
     $graph $which configure $option $value
     update
-    after $sleep
+#    after $sleep
+    read stdin 1
     $graph $which configure $option $org
     update
     after $sleep
@@ -48,7 +51,8 @@ proc bltTest3 {graph which item option value} {
     set org [$graph $which cget $item $option]
     $graph $which configure $item $option $value
     update
-    after $sleep
+#    after $sleep
+    read stdin 1
     $graph $which configure $item $option $org
     update
     after $sleep
@@ -60,7 +64,8 @@ proc bltCmd {graph args} {
     echo " $graph $args"
     eval $graph $args
     update
-    after $sleep
+#    after $sleep
+    read stdin 1
 }
 
 proc bltElements {graph} {
diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl
new file mode 100644
index 0000000..addab07
--- /dev/null
+++ b/tests/lineelement.tcl
@@ -0,0 +1,99 @@
+source base.tcl
+
+set w .line
+set graph [bltLineGraph $w]
+
+$graph element configure data1 -dash {8 3} -showvalues y -smooth step -symbol circle -outline yellow -outlinewidth 3 -pixels 10
+
+$graph pen create foo -showvalues y -symbol circle -dashes {8 3} -color purple
+$graph element activate data3
+
+echo "Line Element"
+
+bltTest3 $graph element data3 -activepen foo
+bltTest3 $graph element data2 -areabackground yellow
+#bltTest3 $graph element data2 -bindtags
+bltTest3 $graph element data2 -color yellow
+bltTest3 $graph element data2 -dashes {8 3}
+bltTest3 $graph element data1 -data {0.2 8 0.4 20 0.6 31 0.8 41 1.0 50 1.2 59 1.4 65 1.6 70 1.8 75 2.0 85}
+bltTest3 $graph element data2 -errorbarcolor green
+bltTest3 $graph element data2 -errorbarwidth 2
+bltTest3 $graph element data2 -errorbarcap 10
+bltTest3 $graph element data1 -fill cyan
+bltTest3 $graph element data2 -hide yes
+bltTest3 $graph element data2 -label "This is a test"
+bltTest3 $graph element data2 -legendrelief groove
+bltTest3 $graph element data2 -linewidth 3
+bltTest3 $graph element data2 -mapx x2
+bltTest3 $graph element data2 -mapy y2
+bltTest3 $graph element data1 -maxsymbols 4
+bltTest3 $graph element data1 -offdash red
+bltTest3 $graph element data1 -outline red
+bltTest3 $graph element data1 -outlinewidth 5
+bltTest3 $graph element data2 -pen foo
+bltTest3 $graph element data1 -pixels 20
+#bltTest3 $graph element data2 -reduce
+bltTest3 $graph element data1 -scalesymbols no
+bltTest3 $graph element data2 -showerrorbars no
+bltTest3 $graph element data1 -showvalues none
+bltTest3 $graph element data1 -showvalues x
+bltTest3 $graph element data1 -showvalues both
+bltTest3 $graph element data1 -smooth linear
+bltTest3 $graph element data1 -smooth cubic
+bltTest3 $graph element data1 -smooth quadratic
+bltTest3 $graph element data1 -smooth catrom
+#bltTest3 $graph element data2 -styles
+bltTest3 $graph element data1 -symbol arrow
+bltTest3 $graph element data1 -symbol cross
+bltTest3 $graph element data1 -symbol diamond
+bltTest3 $graph element data1 -symbol none
+bltTest3 $graph element data1 -symbol plus
+bltTest3 $graph element data1 -symbol scross
+bltTest3 $graph element data1 -symbol splus
+bltTest3 $graph element data1 -symbol square
+bltTest3 $graph element data1 -symbol triangle
+bltTest3 $graph element data2 -trace both
+bltTest3 $graph element data1 -valueanchor n
+bltTest3 $graph element data1 -valuecolor cyan
+bltTest3 $graph element data1 -valuefont "times 18 bold italic"
+bltTest3 $graph element data1 -valueformat "%e"
+bltTest3 $graph element data1 -valuerotate 45
+#bltTest3 $graph element data2 -weights
+bltTest3 $graph element data1 -x {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8}
+bltTest3 $graph element data1 -xdata {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8}
+bltTest3 $graph element data2 -xerror {.1 .1 .1 .1 .1 .1 .1 .1 .1 .1 .1}
+#bltTest3 $graph element data2 -xhigh
+#bltTest3 $graph element data2 -xlow
+bltTest3 $graph element data1 -y {8 20 31 41 50 59 65 70 75 85} 
+bltTest3 $graph element data1 -ydata {8 20 31 41 50 59 65 70 75 85}
+bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5}
+#bltTest3 $graph element data2 -yhigh
+#bltTest3 $graph element data2 -ylow
+
+bltCmd $graph element activate data2
+bltCmd $graph element deactivate data2
+#bltCmd $graph element bind data1 <Button-1> [list puts "%x %y"]
+bltCmd $graph element cget data1 -smooth
+bltCmd $graph element configure data1
+bltCmd $graph element configure data1 -smooth
+#bltCmd $graph element closest 50 50
+#bltCmd $graph element closest 50 50 data1 data2
+bltCmd $graph element create data4
+bltCmd $graph element create data5
+bltCmd $graph element delete data4 data5
+bltCmd $graph element exists data1
+#bltCmd $graph element get
+bltCmd $graph element lower data1
+bltCmd $graph element lower data2 data3
+bltCmd $graph element names
+bltCmd $graph element names data1
+bltCmd $graph element raise data2
+bltCmd $graph element raise data2 data3
+bltCmd $graph element raise data1
+bltCmd $graph element show data2
+bltCmd $graph element show {data1 data2 data3}
+bltCmd $graph element type data1
+
+echo "done"
+bltPlotDestroy $w
+