diff options
| author | stanton <stanton> | 1999-04-16 01:25:53 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-16 01:25:53 (GMT) |
| commit | 404fc236f34304df53b7e44bc7971d786b87d453 (patch) | |
| tree | 26ed396a9d8bc0deb59c9732db47806e3d11217b /tests/defs | |
| parent | 23b428ee02ffc11a8ca297f866710dc0c1a92618 (diff) | |
| download | tk-404fc236f34304df53b7e44bc7971d786b87d453.zip tk-404fc236f34304df53b7e44bc7971d786b87d453.tar.gz tk-404fc236f34304df53b7e44bc7971d786b87d453.tar.bz2 | |
* Merged changes from 8.0.5:
- Updated for Mac release
Diffstat (limited to 'tests/defs')
| -rw-r--r-- | tests/defs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: defs,v 1.3 1998/12/04 04:19:12 hershey Exp $ +# RCS: @(#) $Id: defs,v 1.4 1999/04/16 01:25:55 stanton Exp $ if {![info exists VERBOSE]} { set VERBOSE 0 @@ -246,6 +246,10 @@ proc test {name description script answer args} { puts stdout "$answer" puts stdout "---- $name FAILED" } + if {[string compare $::tcl_platform(platform) macintosh] == 0} { + # Force the text to be drawn even if the tests are not updating. + update idletasks + } } proc dotests {file args} { |