From 02c3c12b138ceaa8c46e0e42011fabb7eab3acf1 Mon Sep 17 00:00:00 2001 From: ellson Date: Wed, 15 Jun 2005 08:53:40 +0000 Subject: [PATCH] show name of object, rather than handle, in title of attribute panel --- tclpkg/tcldot/demo/doted | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tclpkg/tcldot/demo/doted b/tclpkg/tcldot/demo/doted index 4a7deb567..052b18459 100755 --- 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 {}} -- 2.40.0