140 |
|
set p $radvar(PICTURE)_$vw.pic |
141 |
|
set df [format $convdest $vw] |
142 |
|
set curmess "Converting $p to $df..." |
143 |
< |
update idletasks |
143 |
> |
update |
144 |
|
set cc [format $conv($conv(typ),com) $p $df] |
145 |
|
if {! [catch {eval exec $cc} curmess]} { |
146 |
|
set curmess "Done." |
154 |
|
foreach i [$fvwbox curselection] { |
155 |
|
set p $radvar(PICTURE)_[$fvwbox get $i].pic |
156 |
|
set curmess "Printing $p..." |
157 |
< |
update idletasks |
157 |
> |
update |
158 |
|
set pc [format $prntcom $p] |
159 |
|
if {! [catch {eval exec $pc} curmess]} { |
160 |
|
set curmess "Done." |