From 515702b8eeee7c2b8d7342e893ca8bcfb59537fc Mon Sep 17 00:00:00 2001
From: joye <joye>
Date: Wed, 19 Feb 2014 20:13:35 +0000
Subject: *** empty log message ***

---
 tests/base.tcl       |  9 +++++++++
 tests/crosshairs.tcl | 25 ++++++++++++++-----------
 2 files changed, 23 insertions(+), 11 deletions(-)

diff --git a/tests/base.tcl b/tests/base.tcl
index 21dd1d7..e4de658 100644
--- a/tests/base.tcl
+++ b/tests/base.tcl
@@ -41,6 +41,15 @@ proc bltTest2 {graph which option value} {
     after $sleep
 }
 
+proc bltCmd {graph cmd value} {
+    global sleep
+
+    echo " $graph $cmd $value"
+    $graph $cmd $value
+    update
+    after $sleep
+}
+
 proc bltBarGraph {w} {
     global sleep
 
diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl
index 0406eb8..0a8ad2f 100644
--- a/tests/crosshairs.tcl
+++ b/tests/crosshairs.tcl
@@ -1,19 +1,22 @@
 source base.tcl
 
-set w .ch
+set w .line
 set graph [bltLineGraph $w]
 
-#bltTest2 $graph crosshairs -color green
-#bltTest2 $graph crosshairs -dashes "dotdot"
-#bltTest2 $graph crosshairs -dashes "5 8 3"
-#bltTest2 $graph crosshairs -hide yes
-#bltTest2 $graph crosshairs -linewidth 3
-#bltTest2 $graph crosshairs -position "@1,50"
+$graph crosshairs configure -hide no
+$graph crosshairs configure -position "@200,200"
 
-#$graph crosshairs on
-#$graph crosshairs off
-#$graph crosshairs toggle
+bltTest2 $graph crosshairs -color green
+bltTest2 $graph crosshairs -dashes "dashdot"
+bltTest2 $graph crosshairs -dashes "5 8 3"
+bltTest2 $graph crosshairs -hide yes
+bltTest2 $graph crosshairs -linewidth 3
+bltTest2 $graph crosshairs -position "@100,100"
+
+bltCmd $graph crosshairs on
+bltCmd $graph crosshairs off
+bltCmd $graph crosshairs toggle
 
 echo "done"
-#bltPlotDestroy $w
+bltPlotDestroy $w
 
-- 
cgit v0.12