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].hdr]} { |
73 |
|
lappend fpics [lindex $vw 0] |
74 |
|
} |
75 |
|
} |
102 |
|
global fvwbox ufvwbox radvar rawfroot |
103 |
|
set sl {} |
104 |
|
foreach i [$fvwbox curselection] { |
105 |
< |
testappend sl $radvar(PICTURE)_[$fvwbox get $i].pic |
105 |
> |
testappend sl $radvar(PICTURE)_[$fvwbox get $i].hdr |
106 |
|
if {$getall && $rawfroot != $radvar(PICTURE)} { |
107 |
< |
testappend sl ${rawfroot}_[$fvwbox get $i].pic |
107 |
> |
testappend sl ${rawfroot}_[$fvwbox get $i].hdr |
108 |
|
} |
109 |
|
if {$getall && $radvar(ZFILE) != {}} { |
110 |
|
testappend sl $radvar(ZFILE)_[$fvwbox get $i].zbf |
151 |
|
set curmess "No finished pictures selected." |
152 |
|
foreach i [$fvwbox curselection] { |
153 |
|
set vw [$fvwbox get $i] |
154 |
< |
set p $radvar(PICTURE)_$vw.pic |
154 |
> |
set p $radvar(PICTURE)_$vw.hdr |
155 |
|
set df [format $convdest $vw] |
156 |
|
set curmess "Converting $p to $df..." |
157 |
|
update |
166 |
|
global curmess prntcom radvar fvwbox |
167 |
|
set curmess "No finished pictures selected." |
168 |
|
foreach i [$fvwbox curselection] { |
169 |
< |
set p $radvar(PICTURE)_[$fvwbox get $i].pic |
169 |
> |
set p $radvar(PICTURE)_[$fvwbox get $i].hdr |
170 |
|
set curmess "Printing $p..." |
171 |
|
update |
172 |
|
set pc [format $prntcom $p] |