1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Action screen for trad |
4 |
|
# |
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 |
|
if {[scan [gets $fi] $batch_fmt batch_pid batch_host] != 2} { |
229 |
|
set batch_host unknown |