From 30329416a3c01e9ac098a93f793bced1dfb8f2f9 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 23 Apr 2002 00:48:29 +0000
Subject: 	* library/button.tcl (ButtonLeave): corrected the 3 
 implementations of ButtonLeave to check for Priv(relief) existing 	before
 trying to use it. [Patch #541849]

---
 ChangeLog          |  4 ++++
 library/button.tcl | 21 +++++++++++----------
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8aa78f5..89cd7dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2002-04-22  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* library/button.tcl (ButtonLeave): corrected the 3
+	implementations of ButtonLeave to check for Priv(relief) existing
+	before trying to use it. [Patch #541849]
+
 	* generic/tkTextDisp.c (DisplayLineBackground): 
 	* unix/tkUnix3d.c (Tk_3DHorizontalBevel): 
 	* unix/tkUnixFont.c (Tk_DrawChars): applied fixes to not overrun
diff --git a/library/button.tcl b/library/button.tcl
index fe32659..ef14f71 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.12 2001/11/23 02:04:08 das Exp $
+# RCS: @(#) $Id: button.tcl,v 1.13 2002/04/23 00:48:29 hobbs Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -149,7 +149,7 @@ proc ::tk::ButtonEnter w {
 
 	if {[string equal $Priv(buttonWindow) $w]} {
 	    $w configure -state active -relief sunken
-	} elseif { [string compare [$w cget -overrelief] ""] } {
+	} elseif {[$w cget -overrelief] ne ""} {
 	    set Priv(relief) [$w cget -relief]
 	    $w configure -relief [$w cget -overrelief]
 	}
@@ -176,8 +176,8 @@ proc ::tk::ButtonLeave w {
     # Restore the original button relief if the mouse button is down
     # or there is an -overrelief value.
 
-    if {[string equal $Priv(buttonWindow) $w] || \
-	    [string compare [$w cget -overrelief] ""] } {
+    if {[info exists Priv(relief)] && (($Priv(buttonWindow) eq $w) || \
+	    ([$w cget -overrelief] ne ""))} {
 	$w configure -relief $Priv(relief)
     }
 
@@ -327,7 +327,7 @@ proc ::tk::ButtonEnter {w} {
 
 	if {[string equal $Priv(buttonWindow) $w]} {
 	    $w configure -state active -relief sunken
-	} elseif { [string compare [$w cget -overrelief] ""] } {
+	} elseif {[$w cget -overrelief] ne ""} {
 	    set Priv(relief) [$w cget -relief]
 	    $w configure -relief [$w cget -overrelief]
 	}
@@ -351,12 +351,12 @@ proc ::tk::ButtonLeave w {
     if {[string compare [$w cget -state] "disabled"]} {
 	$w configure -state normal
     }
-    
+
     # Restore the original button relief if the mouse button is down
     # or there is an -overrelief value.
 
-    if {[string equal $Priv(buttonWindow) $w] || \
-	    [string compare [$w cget -overrelief] ""] } {
+    if {[info exists Priv(relief)] && (($Priv(buttonWindow) eq $w) || \
+	    ([$w cget -overrelief] ne ""))} {
 	$w configure -relief $Priv(relief)
     }
 
@@ -457,7 +457,7 @@ proc ::tk::ButtonEnter {w} {
     if {[string compare [$w cget -state] "disabled"]} {
 	if {[string equal $w $Priv(buttonWindow)]} {
 	    $w configure -state active
-	} elseif { [string compare [$w cget -overrelief] ""] } {
+	} elseif {[$w cget -overrelief] ne ""} {
 	    set Priv(relief) [$w cget -relief]
 	    $w configure -relief [$w cget -overrelief]
 	}
@@ -480,7 +480,8 @@ proc ::tk::ButtonLeave w {
     if {[string equal $w $Priv(buttonWindow)]} {
 	$w configure -state normal
     }
-    if { [string compare [$w cget -overrelief] ""] } {
+    if {[info exists Priv(relief)] && (($Priv(buttonWindow) eq $w) || \
+	    ([$w cget -overrelief] ne ""))} {
 	$w configure -relief $Priv(relief)
     }
     set Priv(window) ""
-- 
cgit v0.12