summaryrefslogtreecommitdiffstats
path: root/tests/ttk/ttk.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2011-03-19 02:00:40 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2011-03-19 02:00:40 (GMT)
commit2d6d54e8eddb42bb1f0ea1d7e8f2a36f07b93cc8 (patch)
tree79c19473af43ce7fc7b827964122072262185961 /tests/ttk/ttk.test
parent25da577cdf47ba31dadd5f5234a2b3d60242f9f7 (diff)
downloadtk-2d6d54e8eddb42bb1f0ea1d7e8f2a36f07b93cc8.zip
tk-2d6d54e8eddb42bb1f0ea1d7e8f2a36f07b93cc8.tar.gz
tk-2d6d54e8eddb42bb1f0ea1d7e8f2a36f07b93cc8.tar.bz2
[Bug 3223850] - button remains stuck when disabled as depressed on XP
If a button is disabled while the state is pressed, then the release event handler did not remove the pressed state. Modified the handler to always remove the pressed state while only calling invoke if !disabled. Reported-by: Thomas MENEZ <thomasmenez@users.sourceforge.net> Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
Diffstat (limited to 'tests/ttk/ttk.test')
-rw-r--r--tests/ttk/ttk.test17
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test
index 9732f46..ddfaf84 100644
--- a/tests/ttk/ttk.test
+++ b/tests/ttk/ttk.test
@@ -197,6 +197,23 @@ test ttk-2.7 "instate scripts, true" -body {
set x
} -result 1
+test ttk-2.8 "bug 3223850: button state disabled during click" -setup {
+ destroy .b
+ set ttk28 {}
+ pack [ttk::button .b -command {set ::ttk28 failed}]
+} -body {
+ bind .b <ButtonPress-1> {after 0 {.b configure -state disabled}}
+ after 1 {event generate .b <ButtonPress-1>}
+ after 20 {event generate .b <ButtonRelease-1>}
+ set aid [after 100 {set ::ttk28 [.b instate {disabled !pressed}]}]
+ vwait ::ttk28
+ after cancel $aid
+ set ttk28
+} -cleanup {
+ destroy .b
+ unset -nocomplain ttk28 aid
+} -result 1
+
# misc. error detection
test ttk-3.0 "Bad option" -body {
ttk::button .bad -badoption foo