# | 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] { | |
# | Line 242 | Line 242 | proc newsave f { # save a RIF | |
242 | return 0 | |
243 | } | |
244 | } | |
245 | < | if {! [file writable $f] && [catch {exec chmod u+w $f} curmess]} { |
245 | > | if {[file exists $f] && ! [file writable $f] && |
246 | > | [catch {exec chmod u+w $f} curmess]} { |
247 | beep | |
248 | return 0 | |
249 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |