# | 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 | |
# | Line 167 | Line 167 | proc load_vars {f {vl all}} { # load RIF variables | |
167 | set curmess {Project loaded.} | |
168 | } else { | |
169 | foreach n $vl { | |
170 | < | set radvar($n) {} |
170 | > | catch {unset radvar($n)} |
171 | } | |
172 | while {[gets $fi curli] != -1} { | |
173 | if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |