| 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 |
| 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] { |
| 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 |
