diff options
author | fvogel <fvogelnew1@free.fr> | 2022-03-14 22:03:57 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-03-14 22:03:57 (GMT) |
commit | a9282615584405177536ca546f482f537a2839ad (patch) | |
tree | ff4e18ad1b5a211ab14d0ea83ff8979d9dc33657 /tests | |
parent | 15fe190c755cab700c23b1bdc1940b41e33f122d (diff) | |
download | tk-a9282615584405177536ca546f482f537a2839ad.zip tk-a9282615584405177536ca546f482f537a2839ad.tar.gz tk-a9282615584405177536ca546f482f537a2839ad.tar.bz2 |
Add non-regression test scale-18.3, failing before the fix, and passing after the fix.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/scale.test | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/tests/scale.test b/tests/scale.test index 6e62710..856a7bf 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1395,7 +1395,25 @@ test scale-18.3 {Scale button 2 events [Bug 787065]} -setup { rename bgerror {} destroy .s } -result {0 {}} - +test scale-18.3 {Bug [415415ffff] - Long callback: One click -> Several steps} -setup { + catch {destroy .s} + scale .s -from 0 -to 5 -resolution 1 -variable x1 -orient horizontal -length 100\ + -command longCmd -repeatdelay 300 + pack .s + update + proc longCmd {unused} { + after 500 + } +} -body { + foreach {x y} [.s coord 50] {} + event generate .s <Button-1> -x $x -y $y + update + event generate .s <ButtonRelease-1> -x $x -y $y + update + set x1 +} -cleanup { + destroy .s +} -result {1} test scale-19 {Bug [3529885fff] - Click in through goes in wrong direction} \ -setup { |