Fix bug #684608 for windows binding display.

diff --git a/ChangeLog b/ChangeLog
index b764a878b8360d2d4eb35dcbca6804a1994b233a..319efad80f3befc590c83bc581d4b1ce419bf5e6 100644 (file)
--- 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 a7e7cb5539d9ba5f03350ff658982848f518faec..93c32fdfeb64732d38bb3b3dd07977a7e3481ba0 100644 (file)
--- 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