From 90f8ae368e020ba0e8c41d06e75f4328b8e2ec3d Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Fri, 21 Mar 2003 00:32:29 +0000 Subject: [PATCH] Fix bug #684608 for windows binding display. --- ChangeLog | 5 +++++ windows_list.tcl | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index b764a87..319efad 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Thu Mar 20 10:01:59 2003 Pat Thoyts + + * windows_list.tcl: Applied patch from bug #684608 by Achim Bursian + for garbled bindings display in the window view. + Mon Oct 21 22:42:34 2002 Pat Thoyts * afters_list.tcl: diff --git a/windows_list.tcl b/windows_list.tcl index a7e7cb5..93c32fd 100644 --- a/windows_list.tcl +++ b/windows_list.tcl @@ -113,7 +113,7 @@ widget windows_list { set result "# packing info for slaves of [list $window]\n" foreach slave [send $target [list ::pack slaves $window]] { $self format_packing_info result $slave \ - [send $target [list pack info $slave]] + [send $target [list ::pack info $slave]] } return $result } @@ -128,11 +128,11 @@ widget windows_list { set result "# bindtags of [list $window]\n" set tags [send $target [list ::bindtags $window]] append result [list bindtags $window $tags] - append result "\n# bindings (in bindtag order)..." + append result "\n\n# bindings (in bindtag order)..." foreach tag $tags { foreach sequence [send $target [list ::bind $tag]] { append result "\nbind $tag $sequence " - lappend result [send $target [list bind $tag $sequence]] + append result [list [send $target [list ::bind $tag $sequence]]] } } append result "\n" @@ -142,7 +142,7 @@ widget windows_list { set result "# bindings of [list $window]" foreach sequence [send $target [list ::bind $window]] { append result "\nbind $window $sequence " - lappend result [send $target [list ::bind $window $sequence]] + append result [list [send $target [list ::bind $window $sequence]]] } append result "\n" return $result @@ -152,7 +152,7 @@ widget windows_list { set result "# class bindings for $window\n# class: $class" foreach sequence [send $target [list ::bind $class]] { append result "\nbind $class $sequence " - lappend result [send $target [list ::bind $class $sequence]] + append result [list [send $target [list ::bind $class $sequence]]] } append result "\n" return $result -- 2.23.0