Before
foreach attr $the_attributes {
if { [ set value [ get_attribute $o $attr ] ] != “” && $attr == “ref_name” } {
if { $verbose } {
echo [ format "%-30s %30s" $name $value ]
}
lappend _ref_name $value
}
}
After
set value [ get_attribute $o "ref_name" ]
if { $value != “” } {
if { $verbose } {
echo [ format "%-30s %30s" $name $value ]
}
lappend _ref_name $value
}
Filed under: tcl
