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