diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-06-12 10:49:20 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-06-12 10:49:20 (GMT) |
| commit | b8691d151cbe257cb1ee0f00e84b9b397a6a3f4f (patch) | |
| tree | 4a6050a778c0db27fc3eeb4a3167fe44c16c9a59 | |
| parent | 36cf0d0e753c2775b2a11f51dd661ae29ffc66cc (diff) | |
| download | tk-b8691d151cbe257cb1ee0f00e84b9b397a6a3f4f.zip tk-b8691d151cbe257cb1ee0f00e84b9b397a6a3f4f.tar.gz tk-b8691d151cbe257cb1ee0f00e84b9b397a6a3f4f.tar.bz2 | |
Stabilize unixEmbed-5.*. Test unixEmbed-5.1a was found to fail once at least, at GitHub Actions in branch unstable_tests on macOS with clang (mem, --enable-aqua).
| -rw-r--r-- | tests/unixEmbed.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index e0d3015..986dc6a 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -722,6 +722,7 @@ test unixEmbed-5.1 {EmbedFocusProc procedure, FocusIn events} -constraints { } -body { frame .f1 -container 1 -width 200 -height 50 pack .f1 + update dobg "set w1 [winfo id .f1]" dobg { eval destroy [winfo child .] @@ -746,6 +747,7 @@ test unixEmbed-5.1a {EmbedFocusProc procedure, FocusIn events} -constraints { } -body { frame .f1 -container 1 -width 200 -height 50 pack .f1 + update child alias w1 winfo id .f1 child eval { destroy [winfo child .] @@ -769,6 +771,7 @@ test unixEmbed-5.2 {EmbedFocusProc procedure, focusing on dead window} -constrai } -body { frame .f1 -container 1 -width 200 -height 50 pack .f1 + update dobg "set w1 [winfo id .f1]" dobg { eval destroy [winfo child .] @@ -794,6 +797,7 @@ test unixEmbed-5.2a {EmbedFocusProc procedure, focusing on dead window} -constra } -body { frame .f1 -container 1 -width 200 -height 50 pack .f1 + update child alias w1 winfo id .f1 child eval { destroy [winfo child .] @@ -815,6 +819,7 @@ test unixEmbed-5.3 {EmbedFocusProc procedure, FocusOut events} -constraints { } -body { frame .f1 -container 1 -width 200 -height 50 pack .f1 + update dobg "set w1 [winfo id .f1]" dobg { eval destroy [winfo child .] @@ -842,6 +847,7 @@ test unixEmbed-5.3a {EmbedFocusProc procedure, FocusOut events} -constraints { } -body { frame .f1 -container 1 -width 200 -height 50 pack .f1 + update child alias w1 winfo id .f1 child eval { destroy [winfo child .] |