| 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 |
| 252 |
|
set readonly 0 |
| 287 |
|
pack $w.left -side left |
| 288 |
|
button $w.left.load -text LOAD -width 5 \ |
| 289 |
|
-relief raised -command {newload $curfile} |
| 290 |
< |
button $w.left.save -text SAVE -width 5 \ |
| 291 |
< |
-relief raised -command {newsave $curfile} |
| 290 |
> |
button $w.left.save -text SAVE -width 5 -relief raised \ |
| 291 |
> |
-command "newsave \$curfile; update_dir $w.right" |
| 292 |
|
button $w.left.new -text NEW -width 5 \ |
| 293 |
|
-relief raised -command {newnew $curfile} |
| 294 |
|
pack $w.left.load $w.left.save $w.left.new -side top -pady 15 -padx 20 |
