diff options
| author | culler <culler> | 2019-02-01 23:38:29 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-02-01 23:38:29 (GMT) |
| commit | 144943f2693109cf7edfca3d9eb1ee99a3aedef5 (patch) | |
| tree | 804280411a41dd4d386975d79151bdeae843dad2 /tests/unixEmbed.test | |
| parent | 25dfb62ab6c1f942344631c852e0dfce78f0a360 (diff) | |
| download | tk-144943f2693109cf7edfca3d9eb1ee99a3aedef5.zip tk-144943f2693109cf7edfca3d9eb1ee99a3aedef5.tar.gz tk-144943f2693109cf7edfca3d9eb1ee99a3aedef5.tar.bz2 | |
Remove unnecessary sleep from unixEmbed-6.2a, which still fails however.
Diffstat (limited to 'tests/unixEmbed.test')
| -rw-r--r-- | tests/unixEmbed.test | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index a736e24..9f0ace5 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -946,17 +946,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 slave alias w1 winfo id .f1 slave eval { destroy [winfo child .] + set x {} toplevel .t1 -use [w1] - } - after 300 {set x done} - vwait x - slave eval { - bind .t1 <Configure> {lappend x {configure .t1 %w %h}} update - set x {} + bind .t1 <Configure> {lappend x {configure .t1 %w %h}} .t1 configure -width 300 -height 120 update list $x [winfo geom .t1] |