| # | 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 241 | Line 241 | proc newsave f { # save a RIF | |
| 241 | questhead 1 {Go Ahead} {Cancel}] { | |
| 242 | return 0 | |
| 243 | } | |
| 244 | + | } |
| 245 | + | if {[file exists $f] && ! [file writable $f] && |
| 246 | + | [catch {exec chmod u+w $f} curmess]} { |
| 247 | + | beep |
| 248 | + | return 0 |
| 249 | } | |
| 250 | if [save_vars $f] { | |
| 251 | set rifname [pwd]/$f | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |