| # | Line 19 | Line 19 | proc preen {} { # clean up radvar | |
|---|---|---|
| 19 | set n 1 | |
| 20 | foreach v $oldval { | |
| 21 | if {"[string index $v 0]" == "-"} { | |
| 22 | < | lappend radvar(view) "$n $v" |
| 22 | > | lappend radvar(view) "u$n $v" |
| 23 | } elseif {[lsearch -glob $radvar(view) \ | |
| 24 | "[lindex $v 0] *"] >= 0} { | |
| 25 | continue | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |