diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-03-19 16:02:35 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-03-19 16:02:35 (GMT) |
| commit | d1b32da5067a637798b6ccc72d451f4e665a8995 (patch) | |
| tree | 028c2939feb9b0f841e29f3b0137d157f9a8ec50 /tests/scale.test | |
| parent | febc03541b2ba778fd3156341c1b292821486407 (diff) | |
| download | tk-d1b32da5067a637798b6ccc72d451f4e665a8995.zip tk-d1b32da5067a637798b6ccc72d451f4e665a8995.tar.gz tk-d1b32da5067a637798b6ccc72d451f4e665a8995.tar.bz2 | |
Revert previous commit since it does not let the tests pass at Github. Moreover, change the test name to scale-18.4, which was unused so far (contrary to scale-18.3).
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/scale.test b/tests/scale.test index a2f4eca..67b3261 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1395,7 +1395,8 @@ 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 { + +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 @@ -1407,9 +1408,9 @@ test scale-18.3 {Bug [415415ffff] - Long callback: One click -> Several steps} - } -body { foreach {x y} [.s coord 50] {} event generate .s <Button-1> -x $x -y $y - after 50 + update event generate .s <ButtonRelease-1> -x $x -y $y - after 50 ; update + update set x1 } -cleanup { destroy .s |