diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-10-08 18:45:41 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-10-08 18:45:41 (GMT) |
| commit | 243ab6b1c0e547e66a6fafe5795e80bb0761264f (patch) | |
| tree | 0c54b9e927c3dcd76f702efa9c8bd13e6cca67d8 /tests | |
| parent | 3eb5ca85e212ad0f434c7c8bdf9c46732c731c1b (diff) | |
| download | blt-243ab6b1c0e547e66a6fafe5795e80bb0761264f.zip blt-243ab6b1c0e547e66a6fafe5795e80bb0761264f.tar.gz blt-243ab6b1c0e547e66a6fafe5795e80bb0761264f.tar.bz2 | |
2 minor fixes for merger #19
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/base.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/base.tcl b/tests/base.tcl index c02abfa..e3dac2e 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -32,8 +32,8 @@ proc bltTest {graph option value {dops 0}} { $graph postscript output foo.ps exec open /Applications/Preview.app/ foo.ps } -# after $sleep - read stdin 1 + after $sleep +# read stdin 1 $graph configure $option $org update after $sleep @@ -50,8 +50,8 @@ proc bltTest2 {graph which option value {dops 0}} { $graph postscript output foo.ps exec open /Applications/Preview.app/ foo.ps } -# after $sleep - read stdin 1 + after $sleep +# read stdin 1 $graph $which configure $option $org update after $sleep @@ -68,8 +68,8 @@ proc bltTest3 {graph which item option value {dops 0}} { $graph postscript output foo.ps exec open /Applications/Preview.app/ foo.ps } -# after $sleep - read stdin 1 + after $sleep +# read stdin 1 $graph $which configure $item $option $org update after $sleep @@ -81,8 +81,8 @@ proc bltCmd {graph args} { puts stderr " $graph $args" eval $graph $args update -# after $sleep - read stdin 1 + after $sleep +# read stdin 1 } proc bltElements {graph} { |