diff options
| author | culler <culler> | 2019-04-12 19:07:10 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-04-12 19:07:10 (GMT) |
| commit | fe9e9205a1c690c8d29a10f1ad8ba6d4cef943c8 (patch) | |
| tree | a3739b6e99132f14b264e5e16136a8ad6da33d24 /tests | |
| parent | 053e2e559d4455faad0294ac6af948771c6e9a56 (diff) | |
| parent | 5fcdcad94218bd7dd8c25afc41d6d7218d6355f5 (diff) | |
| download | tk-fe9e9205a1c690c8d29a10f1ad8ba6d4cef943c8.zip tk-fe9e9205a1c690c8d29a10f1ad8ba6d4cef943c8.tar.gz tk-fe9e9205a1c690c8d29a10f1ad8ba6d4cef943c8.tar.bz2 | |
Add update calls in frame.test for consistent results in OSX 10.12-10.14.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/frame.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/frame.test b/tests/frame.test index e1eb5e4..43b69ef 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -662,8 +662,10 @@ test frame-3.9 {TkCreateFrame procedure, -use option} -constraints { } -body { toplevel .t -container 1 -width 300 -height 120 wm geometry .t +0+0 + update toplevel .x -width 140 -height 300 -use [winfo id .t] -bg green 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] @@ -678,8 +680,10 @@ test frame-3.10 {TkCreateFrame procedure, -use option} -constraints { toplevel .t -container 1 -width 300 -height 120 wm geometry .t +0+0 option add *x.use [winfo id .t] + update toplevel .x -width 140 -height 300 -bg green 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] |