| # | 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 |