From e6b5ed155e24bbebe51c02c278e71236c73fffce Mon Sep 17 00:00:00 2001
From: das <das>
Date: Wed, 30 May 2007 13:24:01 +0000
Subject: replace previous inoperative commit with direct setting of
 highlightbackground on all buttons

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

diff --git a/library/demos/button.tcl b/library/demos/button.tcl
index eb73408..ef01e66 100644
--- a/library/demos/button.tcl
+++ b/library/demos/button.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window containing
 # several button widgets.
 #
-# RCS: @(#) $Id: button.tcl,v 1.2.26.1 2007/05/30 06:37:03 das Exp $
+# RCS: @(#) $Id: button.tcl,v 1.2.26.2 2007/05/30 13:24:01 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -29,7 +29,14 @@ proc colorrefresh {w col} {
     $w configure -bg $col
     $w.buttons configure -bg $col
     if {[tk windowingsystem] eq "aqua"} {
-	$w.buttons configure -highlightbackground $col
+	# set highlightbackground of all buttons in $w
+	set l [list $w]
+	while {[llength $l]} {
+	    set l [concat [lrange $l 1 end] [winfo children [set b [lindex $l 0]]]]
+	    if {[winfo class $b] eq "Button"} {
+		$b configure -highlightbackground $col
+	    }
+	}
     }
 }
 
-- 
cgit v0.12