diff options
| author | culler <culler> | 2019-04-12 19:06:01 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-04-12 19:06:01 (GMT) |
| commit | 5fcdcad94218bd7dd8c25afc41d6d7218d6355f5 (patch) | |
| tree | 2e766643051ca74a3756e0870e78d8d85d563cc6 /tests/frame.test | |
| parent | 0b924bbd8939f5da89d90aa327dd711182020fe7 (diff) | |
| download | tk-5fcdcad94218bd7dd8c25afc41d6d7218d6355f5.zip tk-5fcdcad94218bd7dd8c25afc41d6d7218d6355f5.tar.gz tk-5fcdcad94218bd7dd8c25afc41d6d7218d6355f5.tar.bz2 | |
Add update calls in frame.test for consistent results in OSX 10.12-10.14.
Diffstat (limited to 'tests/frame.test')
| -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 c7b0ed8..b601137 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] |