- status: open --> closed
Since aliases became auto-generated, and widget
commands defined using the alias as well, I think that
instead of generic labels in the tree, like
BUT
RB
Frame
etc.
it makes sense to use the alias, like so:
Button1: open
RadioButton1: var=...
Frame9
The icon already indicates what type it is, so a type
label is unnecessary.
I wrote this little routine:
proc vTcl:tree_alias {wid {def {?}}} {
global widget
set ans $def
catch {set ans $widget(rev,$wid)}
return $ans
}
And changed a few of the tree label routines
For example, in checkbuttons:
I just replaced the generic label CB ->
[vTcl:tree_alias $target CB]
###############
proc getWidgetTreeLabel {target} {
set ttt1 [$target cget -text]
set ttt2 [$target cget -variable]
set ttt3 [$target cget -onvalue]
set ttt4 [$target cget -offvalue]
if {$ttt2 == ""} {
return "[vTcl:tree_alias $target CB]:
$ttt1"
} else {
return "[vTcl:tree_alias $target CB]:
$ttt1 var=$ttt2\(on=$ttt3,off=$ttt4\)"
}
}
################
Here is one I added for frame:
###########
proc getWidgetTreeLabel {target} {
return [vTcl:tree_alias $target Frame]
}
###########