diff options
| author | culler <culler> | 2019-10-26 14:41:37 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-10-26 14:41:37 (GMT) |
| commit | cd2e85da01cbcc264954b6b36912b49b5a17bbcd (patch) | |
| tree | fedfb971d172d983132c075ef39c1ca64254d721 | |
| parent | 67c03eb3637104e2ae1595b548e6c21043f93c64 (diff) | |
| download | tk-cd2e85da01cbcc264954b6b36912b49b5a17bbcd.zip tk-cd2e85da01cbcc264954b6b36912b49b5a17bbcd.tar.gz tk-cd2e85da01cbcc264954b6b36912b49b5a17bbcd.tar.bz2 | |
Add a regression test for this bug.
| -rw-r--r-- | tests/unixEmbed.test | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index 7d26fbf..d46818a 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -1263,6 +1263,24 @@ test unixEmbed-10.2 {geometry propagation in tkUnixWm.c/UpdateGeometryInfo} -con deleteWindows } -result {70x300+0+0} +test unixEmbed-11.1 {focus -force works for embedded toplevels} -constraints { + unix +} -setup { + deleteWindows +} -body { + toplevel .t + pack [frame .t.f -container 1 -width 200 -height 200] -fill both + update idletasks + toplevel .embed -use [winfo id .t.f] -bg green + update idletasks + focus -force .t + focus -force .embed + focus + } -cleanup { + deleteWindows +} -result .embed + + # cleanup deleteWindows cleanupbg |