From db5b18fad456b5cbf18035bc125c535bfdcf147d Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 9 Jan 2024 14:07:01 +0000 Subject: Make TK_NO_DEPRECATED=1 test-cases work --- tests/constraints.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 8a5717b..3f8c897 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -238,7 +238,7 @@ namespace eval tk { # to [event generate $w] is not "now", and $w refers to a Tk window, i.e. not # the whole screen. # - variable idle_pointer_warping [expr {![package vsatisfies [package provide Tk] 8.7-]}] + variable idle_pointer_warping [expr {![package vsatisfies [package provide tk] 8.7-]}] proc controlPointerWarpTiming {{duration 50}} { variable idle_pointer_warping if {$idle_pointer_warping} { -- cgit v0.12