diff options
| author | marc_culler <marc.culler@gmail.com> | 2021-04-29 16:24:46 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2021-04-29 16:24:46 (GMT) |
| commit | 5d7033d0846109740b2bff177df2ff01a1e655ca (patch) | |
| tree | 03d38643038df2f4854a20fda46f1745104d2e2d /tests/scale.test | |
| parent | 18c3f4d712b9916fd2746ba7060593e8b01f8e87 (diff) | |
| download | tk-5d7033d0846109740b2bff177df2ff01a1e655ca.zip tk-5d7033d0846109740b2bff177df2ff01a1e655ca.tar.gz tk-5d7033d0846109740b2bff177df2ff01a1e655ca.tar.bz2 | |
Add a call to [window display] after creating a new window. This makes the tests work in High Sierra.
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/scale.test b/tests/scale.test index d7f3a75..6e62710 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1473,17 +1473,18 @@ test scale-20.3 {Bug [2262543fff] - Scale widget unexpectedly fires command call test scale-20.4 {Bug [2262543fff] - Scale widget unexpectedly fires command callback, case 4} -setup { catch {destroy .s} set res {} - set commandedVar -1 } -body { scale .s -from 1 -to 50 -command {set commandedVar} - .s set 10 pack .s + update idletasks + .s set 10 set timeout [after 500 {set $commandedVar "timeout"}] + set commandedVar -1 vwait commandedVar ; # -command callback shall fire set res [list [.s get] $commandedVar] } -cleanup { - destroy .s after cancel $timeout + destroy .s } -result {10 10} test scale-20.5 {Bug [2262543fff] - Scale widget unexpectedly fires command callback, case 5} -setup { catch {destroy .s} @@ -1492,6 +1493,7 @@ test scale-20.5 {Bug [2262543fff] - Scale widget unexpectedly fires command call } -body { scale .s -from 1 -to 50 pack .s + update idletasks .s set 10 .s configure -command {set commandedVar} update ; # -command callback shall NOT fire @@ -1506,6 +1508,7 @@ test scale-20.6 {Bug [2262543fff] - Scale widget unexpectedly fires command call } -body { scale .s -from 1 -to 50 pack .s + update idletasks .s configure -command {set commandedVar} .s set 10 set timeout [after 500 {set $commandedVar "timeout"}] |