From 5a82aaa8aef5ade9107c28e74fff74736d4c206c Mon Sep 17 00:00:00 2001 From: fvogel Date: Thu, 11 Feb 2021 21:36:52 +0000 Subject: Extend condition for running an 'after' in controlPointerWarpTiming to Windows 10 or above (instead of exactly Win10). --- tests/constraints.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 } } -- cgit v0.12