Handle windows with special characters in them.

diff --git a/windows_info.tcl b/windows_info.tcl
index 64b02aec859dc00ff1fa54d3384f315afa69cb3b..5c2db3e36f9afcad60f064c0108695e1aa55f91c 100644 (file)
--- a/windows_info.tcl
+++ b/windows_info.tcl
@@ -18,7 +18,7 @@ object_class windows_info {
     method get_windows {} { return $slot(windows) }
     method append_windows {target result_var parent} {
        upvar $result_var result
-       foreach w [send $target winfo children $parent] {
+       foreach w [send $target [list winfo children $parent]] {
            lappend slot(windows) $w
            $self append_windows $target result $w
        }
@@ -38,7 +38,7 @@ object_class windows_info {
     }
     method get_class {target w} {
        if ![info exists slot($w.class)] {
-           if ![send $target winfo exists $w] {
+           if ![send $target [list winfo exists $w]] {
                # the window no longer exists, so delete it from our list
                set ndx [lsearch -exact $slot(windows) $w]
                if {$ndx >= 0} {

diff --git a/windows_list.tcl b/windows_list.tcl
index 7b91f78b731ec7ef5cbe1ca0ce8a52c3e3b850bb..7216f3217d7306f563ba3305ca729ff87aa6c9ac 100644 (file)
--- a/windows_list.tcl
+++ b/windows_list.tcl
@@ -82,8 +82,8 @@ widget windows_list {
        return $result
     }
     method retrieve_config {target window} {
-       set result "# window configuration of $window\n"
-       append result "$window config"
+       set result "# window configuration of [list $window]\n"
+       append result "[list $window] config"
        foreach spec [send $target [list $window config]] {
            if {[llength $spec] == 2} continue
            append result " \\\n\t[lindex $spec 0] [list [lindex $spec 4]]"
@@ -93,7 +93,7 @@ widget windows_list {
     }
     method format_packing_info {result_var window info} {
        upvar $result_var result
-       append result "pack configure $window"
+       append result "pack configure [list $window]"
        set len [llength $info]
        for {set i 0} {$i < $len} {incr i 2} {
            append result " \\\n\t[lindex $info $i] [lindex $info [expr $i+1]]"
@@ -101,8 +101,8 @@ widget windows_list {
        append result "\n"
     }
     method retrieve_packing {target window} {
-       set result "# packing info for $window\n"
-       if [catch {send $target pack info $window} info] {
+       set result "# packing info for [list $window]\n"
+       if [catch {send $target [list pack info $window]} info] {
            append result "# $info\n"
        } else {
            $self format_packing_info result $window $info
@@ -110,49 +110,49 @@ widget windows_list {
        return $result
     }
     method retrieve_slavepacking {target window} {
-       set result "# packing info for slaves of $window\n"
-       foreach slave [send $target pack slaves $window] {
+       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 pack info $slave]
+               [send $target [list pack info $slave]]
        }
        return $result
     }
     method retrieve_bindtags {target window} {
-       set result "# bindtags of $window\n"
+       set result "# bindtags of [list $window]\n"
        set tags [send $target [list bindtags $window]]
        append result [list bindtags $window $tags]
        append result "\n"
        return $result
     }
     method retrieve_bindtagsplus {target window} {
-       set result "# bindtags of $window\n"
+       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)..."
        foreach tag $tags {
-           foreach sequence [send $target bind $tag] {
+           foreach sequence [send $target [list bind $tag]] {
                append result "\nbind $tag $sequence "
-               lappend result [send $target bind $tag $sequence]
+               lappend result [send $target [list bind $tag $sequence]]
            }
        }
        append result "\n"
        return $result
     }
     method retrieve_bindings {target window} {
-       set result "# bindings of $window"
-       foreach sequence [send $target bind $window] {
+       set result "# bindings of [list $window]"
+       foreach sequence [send $target [list bind $window]] {
            append result "\nbind $window $sequence "
-           lappend result [send $target bind $window $sequence]
+           lappend result [send $target [list bind $window $sequence]]
        }
        append result "\n"
        return $result
     }
     method retrieve_classbindings {target window} {
-       set class [send $target winfo class $window]
+       set class [$slot(main) windows_info get_class $target $window]
        set result "# class bindings for $window\n# class: $class"
-       foreach sequence [send $target bind $class] {
+       foreach sequence [send $target [list bind $class]] {
            append result "\nbind $class $sequence "
-           lappend result [send $target bind $class $sequence]
+           lappend result [send $target [list bind $class $sequence]]
        }
        append result "\n"
        return $result