Fixed bug #546259: erroneous use of 'config'

diff --git a/ChangeLog b/ChangeLog
index af9c87534199f860316fbefc0dba8048526c33c8..3d93ec9785c96da320e653cd890657a2b8816e0f 100644 (file)
--- 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 7216f3217d7306f563ba3305ca729ff87aa6c9ac..ef8bd286b5609fc459900e2b26257ce715fc9116 100644 (file)
--- 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]]"
        }