show name of object, rather than handle, in title of attribute panel

diff --git a/tclpkg/tcldot/demo/doted b/tclpkg/tcldot/demo/doted
index 4a7deb56771a8c95409c1e3e2ca327fc75e74a6e..052b18459247bc72c02ffa2cf59226434df89bc8 100755 (executable)
--- a/tclpkg/tcldot/demo/doted
+++ b/tclpkg/tcldot/demo/doted
@@ -366,7 +366,7 @@ proc setAttributesWidget {c o d l q s} {
        catch {destroy $w}
        toplevel $w
 #      positionWindow $w
-       wm title $w "$o Attributes"
+       wm title $w "[$o showname] Attributes"
        wm iconname $w "Attributes"
        foreach a [eval $l] {
                if {[catch {eval $q $a} v]} {set v {}}