diff options
author | fvogel <fvogelnew1@free.fr> | 2022-09-25 13:17:38 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-09-25 13:17:38 (GMT) |
commit | c6dbab7080f3659c705a1140bcda6925da5d45d1 (patch) | |
tree | c3fd2e7eae236ebc094d85e7902a8479cb6ec28a /tests/frame.test | |
parent | f6b940b4946a5beda52f781dc96bf04ac206b424 (diff) | |
download | tk-c6dbab7080f3659c705a1140bcda6925da5d45d1.zip tk-c6dbab7080f3659c705a1140bcda6925da5d45d1.tar.gz tk-c6dbab7080f3659c705a1140bcda6925da5d45d1.tar.bz2 |
Since [64999025af], frame-3.10 now fails at Github Actions on macOS with aqua (xcode or clang), quite repeatably. Restore frame-3.10 as it is in core-8-6-branch.
Diffstat (limited to 'tests/frame.test')
-rw-r--r-- | tests/frame.test | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/tests/frame.test b/tests/frame.test index 84d6b7d..fcd8867 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -673,13 +673,19 @@ test frame-3.10 {TkCreateFrame procedure, -use option} -constraints { } -body { toplevel .t -container 1 -width 300 -height 120 wm geometry .t +0+0 - updateWidgets + if {[tk windowingsystem] eq "aqua"} { + update idletasks + } else { + update + } option add *x.use [winfo id .t] toplevel .x -width 140 -height 300 -bg green - if {[tk windowingsystem] ne "aqua"} { - tkwait visibility .x + if {[tk windowingsystem] eq "aqua"} { + update idletasks + } else { + tkwait visibility .x + update } - updateWidgets list [expr {[winfo rootx .x] - [winfo rootx .t]}] \ [expr {[winfo rooty .x] - [winfo rooty .t]}] \ [winfo width .t] [winfo height .t] |