diff options
author | fvogel <fvogelnew1@free.fr> | 2022-06-18 07:22:25 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-06-18 07:22:25 (GMT) |
commit | 798a1e8ff482d34a90363209b97249e6b8615609 (patch) | |
tree | f0467f6e6e19c68784576d8e24089eeb16a0c195 | |
parent | bfc1d5e2f8d755d89bb17f89d36de379f8c9e24d (diff) | |
download | tk-798a1e8ff482d34a90363209b97249e6b8615609.zip tk-798a1e8ff482d34a90363209b97249e6b8615609.tar.gz tk-798a1e8ff482d34a90363209b97249e6b8615609.tar.bz2 |
Further ruggedize unixEmbed-11.2 since after [768fe936] it failed once at GitHub Actions in branch unstable_tests on macOS with clang (mem, --enable-aqua). Error was:
---- errorInfo: bad window path name ".embed.b"
while executing
"winfo ismapped $w"
(procedure "waitForMap" line 3)
invoked from within
"waitForMap .embed.b"
("uplevel" body line 11)
invoked from within
"uplevel 1 $script"
---- errorCode: TK LOOKUP WINDOW .embed.b
-rw-r--r-- | tests/constraints.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 56259e7..d9461c0 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -248,7 +248,7 @@ namespace eval tk { # Procedures waiting for a window to be mapped or unmapped, with timeout proc waitForMap {w} { set count 0 - while {$count < 10 && ![winfo ismapped $w]} { + while {$count < 10 && (![winfo exists $w] || ![winfo ismapped $w])} { updateWidgets incr count after 50 |