From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 21 Mar 2003 00:32:29 +0000 (+0000)
Subject: Fix bug #684608 for windows binding display.
X-Git-Tag: r5_1_6p10~2
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=90f8ae368e020ba0e8c41d06e75f4328b8e2ec3d;p=tkinspect

Fix bug #684608 for windows binding display.
---

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  <patthoyts@users.sourceforge.net>
+
+	* 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 <patthoyts@users.sourceforge.net>
 
 	* 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