diff options
| author | culler <culler> | 2019-04-15 20:41:50 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-04-15 20:41:50 (GMT) |
| commit | da3f9fd3d5fdc940f61b8a0ecac86967c0cde879 (patch) | |
| tree | 75b3a1bfe606a547536924fa41b7cfc4a5f8cd5a /tests | |
| parent | 845459f9fd4222d82d04de9282235999501948dc (diff) | |
| parent | c7e4427914c39b33a76da2dc61a174c6481dd4fe (diff) | |
| download | tk-da3f9fd3d5fdc940f61b8a0ecac86967c0cde879.zip tk-da3f9fd3d5fdc940f61b8a0ecac86967c0cde879.tar.gz tk-da3f9fd3d5fdc940f61b8a0ecac86967c0cde879.tar.bz2 | |
Less intrusive fix for test frame-3.9.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/frame.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/frame.test b/tests/frame.test index 43b69ef..50bed70 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -662,10 +662,9 @@ 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 + update idletasks list [expr {[winfo rootx .x] - [winfo rootx .t]}] \ [expr {[winfo rooty .x] - [winfo rooty .t]}] \ [winfo width .t] [winfo height .t] |