diff options
| author | culler <culler> | 2018-12-10 19:18:47 (GMT) |
|---|---|---|
| committer | culler <culler> | 2018-12-10 19:18:47 (GMT) |
| commit | 91766cbfd1a4af5e5df1bde664f65ec7cde7ed19 (patch) | |
| tree | f0d2e8a59e9dcea2ed3232d27337bdc3ee30df16 /tests/unixWm.test | |
| parent | 77ac411b0567500011861bcbe1063774926561a9 (diff) | |
| download | tk-91766cbfd1a4af5e5df1bde664f65ec7cde7ed19.zip tk-91766cbfd1a4af5e5df1bde664f65ec7cde7ed19.tar.gz tk-91766cbfd1a4af5e5df1bde664f65ec7cde7ed19.tar.bz2 | |
Don't force other platforms to wait for the aqua animations to finish.
Diffstat (limited to 'tests/unixWm.test')
| -rw-r--r-- | tests/unixWm.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test index 6f1c94b..d85b7e2 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -13,11 +13,11 @@ tcltest::loadTestedCommands namespace import -force ::tk::test:loadTkCommand -proc sleep ms { - global x - after $ms {set x 1} - vwait x -} + proc animationDelay {} { + if {[tk windowingsystem] == "aqua"} { + sleep 250 + } + } # Recent versions of macOS show an animation when a window is deiconified. # Tests which check the geometry of a window after deiconifying it should |