[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>

1 files changed, 1 insertions, 1 deletions

diff --git a/library/ttk/button.tcl b/library/ttk/button.tcl
index fc9c1bb..8ccdb91 100644
--- a/library/ttk/button.tcl
+++ b/library/ttk/button.tcl
@@ -28,7 +28,7 @@ bind TButton <<Invoke>> 	{ ttk::button::activate %W }
 bind TButton <ButtonPress-1> \
     { %W instate !disabled { ttk::clickToFocus %W; %W state pressed } }
 bind TButton <ButtonRelease-1> \
-    { %W instate {pressed !disabled} { %W state !pressed; %W invoke } }
+    { %W instate pressed { %W state !pressed; %W instate !disabled { %W invoke } } }
 bind TButton <Button1-Leave> \
     { %W state !pressed }
 bind TButton <Button1-Enter> \