diff options
| author | fvogel <fvogelnew1@free.fr> | 2023-10-20 19:50:48 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2023-10-20 19:50:48 (GMT) |
| commit | 22b052116bf0e0c2f392229aff8e236e0c7954ca (patch) | |
| tree | a68510c8b8c29f2fac3773c0d8b75be42b7c794e /tests/unixWm.test | |
| parent | c0e45b40469bfd9e19a65b7e17109f5eb7cbad3a (diff) | |
| parent | 303453211ac1dbd80a7a37dae7996b37aee47be3 (diff) | |
| download | tk-22b052116bf0e0c2f392229aff8e236e0c7954ca.zip tk-22b052116bf0e0c2f392229aff8e236e0c7954ca.tar.gz tk-22b052116bf0e0c2f392229aff8e236e0c7954ca.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'tests/unixWm.test')
| -rw-r--r-- | tests/unixWm.test | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test index 0036d31..bd1a579 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -121,11 +121,11 @@ set i 1 foreach geom "+$X+80 +$X+40 +$X+$Y0" { test unixWm-4.$i {moving window while withdrawn} unix { wm withdraw .t - update idletasks + sleep 10 wm geom .t $geom update idletasks wm deiconify .t - update idletasks + sleep 10 wm geom .t } 100x150$geom incr i @@ -246,10 +246,6 @@ test unixWm-6.4 {size changes} {unix nonPortable userInteraction} { list $width $height $w2 $h2 [wm geom .t] } {0 0 230 110 114x261+10+10} -# I don't know why the wait below is needed, but without it the test -# fails under twm. -sleep 200 - test unixWm-6.5 {window initially iconic} {unix nonPortable} { destroy .t toplevel .t -width 100 -height 30 @@ -1567,9 +1563,9 @@ test unixWm-44.6 {UpdateGeometryInfo procedure, negative height} unix { } {100 1} destroy .t toplevel .t -width 80 -height 60 -test unixWm-44.7 {UpdateGeometryInfo procedure, computing position} {unix failsOnXQuarz} { - tkwait visibility .t +test unixWm-44.7 {UpdateGeometryInfo procedure, computing position} {unix} { wm overrideredirect .t 1 + tkwait visibility .t update wm geometry .t +5-10 update @@ -1577,9 +1573,9 @@ test unixWm-44.7 {UpdateGeometryInfo procedure, computing position} {unix failsO } [list 5 [expr [winfo screenheight .t] - 70]] destroy .t toplevel .t -width 80 -height 60 -test unixWm-44.8 {UpdateGeometryInfo procedure, computing position} {unix failsOnXQuarz} { - tkwait visibility .t +test unixWm-44.8 {UpdateGeometryInfo procedure, computing position} {unix} { wm overrideredirect .t 1 + tkwait visibility .t update wm geometry .t -30+$Y2 update @@ -1839,8 +1835,8 @@ test unixWm-50.2 {Tk_CoordsToWindow procedure, finding a toplevel, y-coords and update restackDelay toplevel .t2 -width 200 -height 100 -bg blue - tkwait visibility .t2 wm overrideredirect .t2 1 + tkwait visibility .t2 wm geom .t2 +200+200 update raise .t2 @@ -2093,6 +2089,7 @@ test unixWm-51.7 {TkWmRestackToplevel procedure, other window isn't mapped} {uni set result [list [winfo containing 100 100]] lower .t3 restackDelay + sleep 10 lappend result [winfo containing 100 100] } {.t3 .t} test unixWm-51.8 {TkWmRestackToplevel procedure, overrideredirect windows} unix { |