From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sat, 20 Apr 2002 00:42:41 +0000 (+0000)
Subject: Fixed bug #546259: erroneous use of 'config'
X-Git-Tag: r5_1_6p9~1
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=97ecfa0608baa3d22866e1e86b0968b0fc49af7b;p=tkinspect

Fixed bug #546259: erroneous use of 'config'
---

diff --git a/ChangeLog b/ChangeLog
index af9c875..3d93ec9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Apr 20 01:27:46 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
+
+	* windows_list.tcl: Fixed bug #546259: erroneous use of 'config'
+
 Thu Apr 04 22:38:44 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
 
 	* globals_list.tcl: 
diff --git a/windows_list.tcl b/windows_list.tcl
index 7216f32..ef8bd28 100644
--- a/windows_list.tcl
+++ b/windows_list.tcl
@@ -76,15 +76,15 @@ widget windows_list {
     method retrieve {target window} {
 	set result [$self retrieve_$slot(mode) $target $window]
 	set old_bg [send $target [list $window cget -background]]
-	send $target [list $window config -background #ff69b4]
+	send $target [list $window configure -background #ff69b4]
 	send $target [list after 200 \
-		      [list catch [list $window config -background $old_bg]]]
+                [list catch [list $window configure -background $old_bg]]]
 	return $result
     }
     method retrieve_config {target window} {
 	set result "# window configuration of [list $window]\n"
 	append result "[list $window] config"
-	foreach spec [send $target [list $window config]] {
+	foreach spec [send $target [list $window configure]] {
 	    if {[llength $spec] == 2} continue
 	    append result " \\\n\t[lindex $spec 0] [list [lindex $spec 4]]"
 	}