| 148 |
|
} |
| 149 |
|
if {"$vl" == "all" && ! [chksave]} {return 0} |
| 150 |
|
set curmess {Please wait...} |
| 151 |
< |
update idletasks |
| 151 |
> |
update |
| 152 |
|
if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] { |
| 153 |
|
set curmess [exec cat /usr/tmp/ro[pid]] |
| 154 |
|
exec rm -f /usr/tmp/ro[pid] |
| 273 |
|
proc do_file w { |
| 274 |
|
global rifname readonly rif_glob curfile curpat |
| 275 |
|
if {"$w" == "done"} { |
| 276 |
+ |
cd [file dirname $rifname] |
| 277 |
|
set rif_glob $curpat |
| 278 |
|
return |
| 279 |
|
} |
| 282 |
|
pack $w.left -side left |
| 283 |
|
button $w.left.load -text LOAD -width 5 \ |
| 284 |
|
-relief raised -command {newload $curfile} |
| 285 |
< |
button $w.left.save -text SAVE -width 5 \ |
| 286 |
< |
-relief raised -command {newsave $curfile} |
| 285 |
> |
button $w.left.save -text SAVE -width 5 -relief raised \ |
| 286 |
> |
-command "newsave \$curfile; update_dir $w.right" |
| 287 |
|
button $w.left.new -text NEW -width 5 \ |
| 288 |
|
-relief raised -command {newnew $curfile} |
| 289 |
|
pack $w.left.load $w.left.save $w.left.new -side top -pady 15 -padx 20 |
