# | Line 1 | Line 1 | |
---|---|---|
1 | < | # SCCSid "$SunId$ LBL" |
1 | > | # RCSid: $Id$ |
2 | # | |
3 | # Action screen for trad | |
4 | # | |
# | Line 223 | Line 223 | proc do_action w { # Action screen | |
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |