| 1 |
< |
# SCCSid "$SunId$ LBL" |
| 1 |
> |
# RCSid: $Id$ |
| 2 |
|
# |
| 3 |
|
# Action screen for trad |
| 4 |
|
# |
| 174 |
|
global rifname rvview rpview radvar bfname batch_pid \ |
| 175 |
|
curmess scname mywin alldone batch_fmt hostname |
| 176 |
|
if {"$w" == "done"} { |
| 177 |
< |
unset rpview bfname batch_pid mywin |
| 177 |
> |
unset rvview rpview bfname batch_pid mywin |
| 178 |
|
return |
| 179 |
|
} |
| 180 |
|
set bfname [file rootname [file tail $rifname]].err |
| 196 |
|
# Render interactively |
| 197 |
|
label $w.ril -text {Render interactively} |
| 198 |
|
place $w.ril -relx .1429 -rely .2439 |
| 199 |
< |
button $w.rirv -text rview -relief raised \ |
| 199 |
> |
button $w.rirv -text rvu -relief raised \ |
| 200 |
|
-command {run_rad -v $rvview -o x11} |
| 201 |
|
place $w.rirv -relwidth .1071 -relheight .0610 -relx .4643 -rely .2439 |
| 202 |
< |
helplink $w.rirv trad action rview |
| 202 |
> |
helplink $w.rirv trad action rvu |
| 203 |
|
label $w.rivl -text View: |
| 204 |
|
place $w.rivl -relx .6072 -rely .2439 |
| 205 |
|
menubutton $w.rivmb -textvariable rvview -anchor w -relief raised |
| 223 |
|
-command {view_txt $bfname} |
| 224 |
|
place $w.rbce -relwidth .1786 -relheight .0610 -relx .6429 -rely .5488 |
| 225 |
|
helplink $w.rbce trad action checkerr |
| 226 |
< |
if [file exists $bfname] { |
| 226 |
> |
if [file isfile $bfname] { |
| 227 |
|
set fi [open $bfname r] |
| 228 |
< |
scan [gets $fi] $batch_fmt batch_pid batch_host |
| 229 |
< |
gets $fi radcom |
| 228 |
> |
if {[scan [gets $fi] $batch_fmt batch_pid batch_host] != 2} { |
| 229 |
> |
set batch_host unknown |
| 230 |
> |
set radcom {} |
| 231 |
> |
} else { |
| 232 |
> |
gets $fi radcom |
| 233 |
> |
} |
| 234 |
|
close $fi |
| 235 |
|
if [string match "rad -v *" $radcom] { |
| 236 |
|
set rpview [lindex $radcom 2] |
