From 97ecfa0608baa3d22866e1e86b0968b0fc49af7b Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Sat, 20 Apr 2002 00:42:41 +0000 Subject: [PATCH] Fixed bug #546259: erroneous use of 'config' --- ChangeLog | 4 ++++ windows_list.tcl | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * windows_list.tcl: Fixed bug #546259: erroneous use of 'config' + Thu Apr 04 22:38:44 2002 Pat Thoyts * 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]]" } -- 2.23.0