diff options
author | fvogel <fvogelnew1@free.fr> | 2022-04-07 06:31:17 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-04-07 06:31:17 (GMT) |
commit | 1028113403405cae6bc0836ae76cd79111ea8770 (patch) | |
tree | 71ee8706f85f93f4c0d99524fccd25464e9f176c /tests/scale.test | |
parent | 8dcd0c3affd7c9e7220daa443f906abb7842aeb4 (diff) | |
parent | c9add176f75de1c563d091ca0c8f2c85fb7a5691 (diff) | |
download | tk-1028113403405cae6bc0836ae76cd79111ea8770.zip tk-1028113403405cae6bc0836ae76cd79111ea8770.tar.gz tk-1028113403405cae6bc0836ae76cd79111ea8770.tar.bz2 |
Fix [415415fff]: Scale long callback: One click -> Two steps
Diffstat (limited to 'tests/scale.test')
-rw-r--r-- | tests/scale.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/scale.test b/tests/scale.test index e9b300b..8a459e8 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1396,6 +1396,25 @@ test scale-18.3 {Scale button 2 events [Bug 787065]} -setup { destroy .s } -result {0 {}} +test scale-18.4 {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 ; # larger than -repeatdelay + } +} -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 { |