diff options
author | fvogel <fvogelnew1@free.fr> | 2022-03-19 22:55:06 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-03-19 22:55:06 (GMT) |
commit | 96818aab884e29a5810c89e38e1679ffe4868ff5 (patch) | |
tree | d3934c99a3bc21621081d79717d1542720bcd615 /tests/scale.test | |
parent | d1b32da5067a637798b6ccc72d451f4e665a8995 (diff) | |
download | tk-96818aab884e29a5810c89e38e1679ffe4868ff5.zip tk-96818aab884e29a5810c89e38e1679ffe4868ff5.tar.gz tk-96818aab884e29a5810c89e38e1679ffe4868ff5.tar.bz2 |
Add a comment pinpointing the specific case purpose of the test.
Diffstat (limited to 'tests/scale.test')
-rw-r--r-- | tests/scale.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/scale.test b/tests/scale.test index 67b3261..157f1fe 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1398,12 +1398,12 @@ test scale-18.3 {Scale button 2 events [Bug 787065]} -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\ + 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 + after 500 ; # larger than -repeatdelay } } -body { foreach {x y} [.s coord 50] {} |