diff options
| author | marc_culler <marc.culler@gmail.com> | 2020-07-12 22:20:04 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2020-07-12 22:20:04 (GMT) |
| commit | 5e62075ec23dc8688b0880787a8509deb0b3d7b1 (patch) | |
| tree | 4232f10045b56fda23cf0a784040f30e4792917f /tests/textWind.test | |
| parent | af7543d7737a8987f2a209471913e6bbf4106b78 (diff) | |
| download | tk-5e62075ec23dc8688b0880787a8509deb0b3d7b1.zip tk-5e62075ec23dc8688b0880787a8509deb0b3d7b1.tar.gz tk-5e62075ec23dc8688b0880787a8509deb0b3d7b1.tar.bz2 | |
Tweak and untweak a couple of tests with race conditions.
Diffstat (limited to 'tests/textWind.test')
| -rw-r--r-- | tests/textWind.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/textWind.test b/tests/textWind.test index 938357b..f2daaca 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -751,15 +751,17 @@ test textWind-10.5 {EmbWinLayoutProc procedure, error in creating window} -setup destroy .t.f proc bgerror args { global msg - lappend msg $args + if {$msg == ""} { + lappend msg $args + } } } -body { .t insert 1.0 "Some sample text" + set msg {} .t window create 1.5 -create { frame .t.f frame .t.f.f -width 10 -height 20 -bg $color } - set msg {} update idletasks lappend msg [winfo exists .t.f.f] } -cleanup { |