diff options
| author | joye <joye> | 2014-02-19 20:13:35 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-02-19 20:13:35 (GMT) |
| commit | 515702b8eeee7c2b8d7342e893ca8bcfb59537fc (patch) | |
| tree | 693510be9cbd81c038a78068380809f66550c157 /tests/base.tcl | |
| parent | f17196b154ec4d4315ce6e746408e4bb618a629b (diff) | |
| download | blt-515702b8eeee7c2b8d7342e893ca8bcfb59537fc.zip blt-515702b8eeee7c2b8d7342e893ca8bcfb59537fc.tar.gz blt-515702b8eeee7c2b8d7342e893ca8bcfb59537fc.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests/base.tcl')
| -rw-r--r-- | tests/base.tcl | 9 |
1 files changed, 9 insertions, 0 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 |