diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-10-04 20:52:17 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-10-04 20:52:17 (GMT) |
| commit | f8d1893342d2a5e98b2036996170e28bc4e89d07 (patch) | |
| tree | b3bee7e423d5bae9c135a1385d19b22e2a01245a /tests/frame.test | |
| parent | 2f9f759f85d34b988d5959b61331d408eb7d8b09 (diff) | |
| download | tk-f8d1893342d2a5e98b2036996170e28bc4e89d07.zip tk-f8d1893342d2a5e98b2036996170e28bc4e89d07.tar.gz tk-f8d1893342d2a5e98b2036996170e28bc4e89d07.tar.bz2 | |
Revert [71264368], that made frame-3.10 fail 7 times in 10 tries, on macOS aqua and macOS clang (no, --enable-aqua).
Diffstat (limited to 'tests/frame.test')
| -rw-r--r-- | tests/frame.test | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/tests/frame.test b/tests/frame.test index a089606..ab09ca6 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -667,10 +667,19 @@ test frame-3.10 {TkCreateFrame procedure, -use option} -constraints { } -body { toplevel .t -container 1 -width 300 -height 120 wm geometry .t +0+0 - update + if {[tk windowingsystem] eq "aqua"} { + update idletasks + } else { + update + } option add *x.use [winfo id .t] toplevel .x -width 140 -height 300 -bg green - update + if {[tk windowingsystem] eq "aqua"} { + update idletasks + } else { + tkwait visibility .x + update + } list [expr {[winfo rootx .x] - [winfo rootx .t]}] \ [expr {[winfo rooty .x] - [winfo rooty .t]}] \ [winfo width .t] [winfo height .t] |