diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-02-11 21:36:52 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-02-11 21:36:52 (GMT) |
| commit | 5a82aaa8aef5ade9107c28e74fff74736d4c206c (patch) | |
| tree | 0c1705cf227244e4e3127de8aad99c3072a08baf | |
| parent | c85045b04f0cad5dd13729df5833c364995d0cb6 (diff) | |
| download | tk-5a82aaa8aef5ade9107c28e74fff74736d4c206c.zip tk-5a82aaa8aef5ade9107c28e74fff74736d4c206c.tar.gz tk-5a82aaa8aef5ade9107c28e74fff74736d4c206c.tar.bz2 | |
Extend condition for running an 'after' in controlPointerWarpTiming to Windows 10 or above (instead of exactly Win10).
| -rw-r--r-- | tests/constraints.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index a510987..048a425 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -229,7 +229,7 @@ namespace eval tk { if {$idle_pointer_warping} { update idletasks ;# see a. above } - if {($::tcl_platform(os) eq "Windows NT") && ($::tcl_platform(osVersion) eq "10.0")} { + if {($::tcl_platform(os) eq "Windows NT") && ($::tcl_platform(osVersion) >= 10.0)} { after $duration ;# see b. above } } |