From c08fb932b2dfb648827eb09a3631db10ef7c6fd8 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Mon, 2 Sep 2002 22:00:53 +0000
Subject: 	* library/button.tcl (::tk::ButtonLeave): correctly restore
 state 	of button to normal for unix bindings. [Bug #597920]

---
 library/button.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/button.tcl b/library/button.tcl
index 65971d8..928e2b1 100644
--- a/library/button.tcl
+++ b/library/button.tcl
@@ -4,7 +4,7 @@
 # checkbutton, and radiobutton widgets and provides procedures
 # that help in implementing those bindings.
 #
-# RCS: @(#) $Id: button.tcl,v 1.15 2002/08/31 06:12:28 das Exp $
+# RCS: @(#) $Id: button.tcl,v 1.16 2002/09/02 22:00:53 hobbs Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -342,7 +342,7 @@ proc ::tk::ButtonEnter {w} {
 
 proc ::tk::ButtonLeave w {
     variable ::tk::Priv
-    if {[$w cget -state] eq "disabled"} {
+    if {[$w cget -state] ne "disabled"} {
 	$w configure -state normal
     }
 
-- 
cgit v0.12