diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-06-28 21:52:34 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-06-28 21:52:34 (GMT) |
| commit | 7af54d1796313d02d07a18ce8ab01801eafdb8e3 (patch) | |
| tree | 0b30f8362c91eb2a5e96ea4a62bb70f773745ea4 | |
| parent | a924c1e1ae7b79dcb6d3fc285d030c00b94e3957 (diff) | |
| download | tk-7af54d1796313d02d07a18ce8ab01801eafdb8e3.zip tk-7af54d1796313d02d07a18ce8ab01801eafdb8e3.tar.gz tk-7af54d1796313d02d07a18ce8ab01801eafdb8e3.tar.bz2 | |
Further ruggedize unixEmbed-11.2 because it still failed once at GitHub Actions in branch unstable_tests on macOS with clang (mem, --enable-aqua). Even with [645a3198] the time out is hit (1 second in total), after which [winfo exists .embed.b] still is O. Try to update in more steps when creating toplevels or packs windows.
| -rw-r--r-- | tests/constraints.tcl | 2 | ||||
| -rw-r--r-- | tests/unixEmbed.test | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 507dcea..1b9d106 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -268,7 +268,7 @@ namespace eval tk { } if {$count > 19} { puts "waitForUnmap $w: timeout! mapping state is [winfo ismapped $w]" - puts " winfo geometry is [winfo geometry $w]" + puts " winfo geometry is [winfo geometry $w]" } } diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index 986dc6a..1b84de5 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -1303,6 +1303,7 @@ test unixEmbed-11.2 {mouse coordinates in embedded toplevels} -constraints { pack [frame .main.f -container 1 -width 200 -height 200] -fill both updateWidgets toplevel .embed -use [winfo id .main.f] -bg green + update pack [button .embed.b -text "Emb Button" \ -command {lappend result ".embed.b"}] -padx 30 -pady 30 update |