diff options
| -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] |