diff options
author | joye <joye> | 2014-05-21 19:03:48 (GMT) |
---|---|---|
committer | joye <joye> | 2014-05-21 19:03:48 (GMT) |
commit | af45850d31b3e6584ca2c737ff78f9c793668c46 (patch) | |
tree | 27803f143b7f979a52f7dd3401f37124ea7cabe4 /tests/base.tcl | |
parent | cd469b4255c3b34ab0adf63169a1811d4971f53e (diff) | |
download | blt-af45850d31b3e6584ca2c737ff78f9c793668c46.zip blt-af45850d31b3e6584ca2c737ff78f9c793668c46.tar.gz blt-af45850d31b3e6584ca2c737ff78f9c793668c46.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'tests/base.tcl')
-rw-r--r-- | tests/base.tcl | 13 |
1 files changed, 6 insertions, 7 deletions
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 |