diff options
| author | culler <culler> | 2019-02-03 16:39:31 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-02-03 16:39:31 (GMT) |
| commit | e46d193fc6cc775196c64d70aaa67810c9882844 (patch) | |
| tree | 088b54ab1e2e65d522dcf0b5ed277bcc3b8caf53 /tests/unixEmbed.test | |
| parent | 144943f2693109cf7edfca3d9eb1ee99a3aedef5 (diff) | |
| download | tk-e46d193fc6cc775196c64d70aaa67810c9882844.zip tk-e46d193fc6cc775196c64d70aaa67810c9882844.tar.gz tk-e46d193fc6cc775196c64d70aaa67810c9882844.tar.bz2 | |
Simplify and uniformize unixEmbed tests 6.1, 6.1a, 6.2, 6.2a.
Diffstat (limited to 'tests/unixEmbed.test')
| -rw-r--r-- | tests/unixEmbed.test | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index 9f0ace5..0abccc8 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -874,9 +874,7 @@ test unixEmbed-6.1 {EmbedGeometryRequest procedure, window changes size} -constr dobg { eval destroy [winfo child .] toplevel .t1 -use $w1 - } - update - dobg { + update bind .t1 <Configure> {lappend x {configure .t1 %w %h}} set x {} .t1 configure -width 300 -height 120 @@ -922,15 +920,11 @@ test unixEmbed-6.2 {EmbedGeometryRequest procedure, window changes size} -constr dobg { eval destroy [winfo child .] toplevel .t1 -use $w1 - } - after 300 {set x done} - vwait x - dobg { + update bind .t1 <Configure> {lappend x {configure .t1 %w %h}} set x {} .t1 configure -width 300 -height 120 - after 300 {set y done} - vwait y + update list $x [winfo geom .t1] } } -cleanup { @@ -946,14 +940,14 @@ test unixEmbed-6.2a {EmbedGeometryRequest procedure, window changes size} -const } -body { frame .f1 -container 1 -width 200 -height 50 place .f1 -width 200 -height 200 - update idletasks + update slave alias w1 winfo id .f1 slave eval { destroy [winfo child .] - set x {} toplevel .t1 -use [w1] update bind .t1 <Configure> {lappend x {configure .t1 %w %h}} + set x {} .t1 configure -width 300 -height 120 update list $x [winfo geom .t1] |