diff options
| author | joye <joye> | 2014-05-20 17:32:16 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-05-20 17:32:16 (GMT) |
| commit | 866c986e9aaa919a169b25572337c11e2348b95f (patch) | |
| tree | 8842b17e7c2b54f25b8f901415f1eeb0dff1f754 /tests/base.tcl | |
| parent | 849aa78c208c4cd02706127ba6e5e9c872de62d3 (diff) | |
| download | blt-866c986e9aaa919a169b25572337c11e2348b95f.zip blt-866c986e9aaa919a169b25572337c11e2348b95f.tar.gz blt-866c986e9aaa919a169b25572337c11e2348b95f.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests/base.tcl')
| -rw-r--r-- | tests/base.tcl | 15 |
1 files changed, 10 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} { |