summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjoye <joye>2014-05-21 19:03:48 (GMT)
committerjoye <joye>2014-05-21 19:03:48 (GMT)
commitaf45850d31b3e6584ca2c737ff78f9c793668c46 (patch)
tree27803f143b7f979a52f7dd3401f37124ea7cabe4 /tests
parentcd469b4255c3b34ab0adf63169a1811d4971f53e (diff)
downloadblt-af45850d31b3e6584ca2c737ff78f9c793668c46.zip
blt-af45850d31b3e6584ca2c737ff78f9c793668c46.tar.gz
blt-af45850d31b3e6584ca2c737ff78f9c793668c46.tar.bz2
*** empty log message ***
Diffstat (limited to 'tests')
-rw-r--r--tests/axis.tcl4
-rw-r--r--tests/bargraph.tcl2
-rw-r--r--tests/base.tcl13
-rw-r--r--tests/linegraph.tcl2
-rw-r--r--tests/textmarker.tcl4
5 files changed, 12 insertions, 13 deletions
diff --git a/tests/axis.tcl b/tests/axis.tcl
index 1e3b1de..0c2176f 100644
--- a/tests/axis.tcl
+++ b/tests/axis.tcl
@@ -3,7 +3,7 @@ source base.tcl
set w .line
set graph [bltLineGraph $w]
-$graph axis configure x -bd 2 -background cyan -title "X Axis" -limitsformat "%g"
+$graph axis configure x -bd 2 -background cyan -title "X\nAxis" -limitsformat "%g"
$graph axis configure y -bd 2 -background cyan
bltCmd $graph axis activate y
@@ -34,7 +34,7 @@ bltTest3 $graph axis x -gridminorcolor blue
bltTest3 $graph axis x -gridminordashes {8 3}
bltTest3 $graph axis x -gridminorlinewidth 2
bltTest3 $graph axis x -hide yes
-##bltTest3 $graph axis x -justify left
+bltTest3 $graph axis x -justify left
bltTest3 $graph axis x -labeloffset yes
bltTest3 $graph axis x -limitscolor red
bltTest3 $graph axis x -limitsfont "times 18 bold italic"
diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl
index 032c0cd..a4d0097 100644
--- a/tests/bargraph.tcl
+++ b/tests/bargraph.tcl
@@ -31,7 +31,7 @@ bltTest $graph -height 300
#bltTest $graph -highlightcolor
#bltTest $graph -highlightthickness
bltTest $graph -invertxy yes
-#bltTest $graph -justify
+bltTest $graph -justify left
bltTest $graph -leftmargin 50
bltTest $graph -lm 50
bltTest $graph -plotbackground cyan
diff --git a/tests/base.tcl b/tests/base.tcl
index f963003..6cc63c3 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
@@ -90,12 +91,11 @@ proc bltElements {graph} {
proc bltBarGraph {w} {
global sleep
- set title "Bar Graph"
- bltPlot $w $title
+ bltPlot $w "Bar Graph"
set graph [blt::barchart ${w}.gr \
-width 600 \
-height 500 \
- -title $title \
+ -title "Bar\nGraph" \
-barwidth .2 \
-barmode aligned \
]
@@ -110,12 +110,11 @@ proc bltBarGraph {w} {
proc bltLineGraph {w} {
global sleep
- set title "Line Graph"
- bltPlot $w $title
+ bltPlot $w "Line Graph"
set graph [blt::graph ${w}.gr \
-width 600 \
-height 500 \
- -title $title \
+ -title "Line\nGraph" \
]
pack $graph -expand yes -fill both
bltElements $graph
diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl
index 6a79e2c..574282c 100644
--- a/tests/linegraph.tcl
+++ b/tests/linegraph.tcl
@@ -26,7 +26,7 @@ bltTest $graph -height 300
#bltTest $graph -highlightcolor
#bltTest $graph -highlightthickness
bltTest $graph -invertxy yes
-#bltTest $graph -justify
+bltTest $graph -justify left
bltTest $graph -leftmargin 50
bltTest $graph -lm 50
bltTest $graph -plotbackground cyan
diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl
index a72b767..12b5f23 100644
--- a/tests/textmarker.tcl
+++ b/tests/textmarker.tcl
@@ -4,7 +4,7 @@ set w .line
set graph [bltLineGraph $w]
set mm [$graph marker create text tt -element data2 \
- -coords {1.5 100} -text {Text Marker} -font {24}]
+ -coords {1.5 100} -text "Text\nMarker" -font {24}]
$graph element configure data1 -hide yes
echo "Testing Text Marker..."
@@ -20,7 +20,7 @@ bltTest3 $graph marker $mm -fg cyan
bltTest3 $graph marker $mm -fill yellow
bltTest3 $graph marker $mm -font {times 24 bold italic}
bltTest3 $graph marker $mm -foreground blue
-bltTest3 $graph marker $mm -justify right
+bltTest3 $graph marker $mm -justify left
bltTest3 $graph marker $mm -hide yes
bltTest3 $graph marker $mm -mapx x2
bltTest3 $graph marker $mm -mapy y2