diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-09 14:07:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-09 14:07:01 (GMT) |
| commit | db5b18fad456b5cbf18035bc125c535bfdcf147d (patch) | |
| tree | 5d4c628f539ca08c714d6c6f8b3aeccecf200ac5 | |
| parent | fa95ec58b5800b356b9b7523011fe55264f60cee (diff) | |
| download | tk-db5b18fad456b5cbf18035bc125c535bfdcf147d.zip tk-db5b18fad456b5cbf18035bc125c535bfdcf147d.tar.gz tk-db5b18fad456b5cbf18035bc125c535bfdcf147d.tar.bz2 | |
Make TK_NO_DEPRECATED=1 test-cases work
| -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 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} { |