摘要： proc watch {varnames key op} {if {$key != ""} {set varname ${varnames}($key)}upvar $varnames variputs "$varnames is $vari (operation $op)"}# ---------------------------------------trace variable valuea w watchtrace variable valuea r watch# ---------------------------------------p 阅读全文