1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Results screen for trad |
4 |
|
# |
57 |
|
|
58 |
|
proc testappend {flst tf} { # test if tf exists and append to flst if so |
59 |
|
upvar $flst mylist |
60 |
< |
if [file exists $tf] { |
60 |
> |
if [file isfile $tf] { |
61 |
|
lappend mylist $tf |
62 |
|
} |
63 |
|
} |
67 |
|
set fpics {} |
68 |
|
set ufpics {} |
69 |
|
foreach vw $radvar(view) { |
70 |
< |
if [file exists ${rawfroot}_[lindex $vw 0].unf] { |
70 |
> |
if [file isfile ${rawfroot}_[lindex $vw 0].unf] { |
71 |
|
lappend ufpics [lindex $vw 0] |
72 |
< |
} elseif {[file exists $radvar(PICTURE)_[lindex $vw 0].pic]} { |
72 |
> |
} elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].pic]} { |
73 |
|
lappend fpics [lindex $vw 0] |
74 |
|
} |
75 |
|
} |