| 79 |
|
} |
| 80 |
|
if [tk_dialog .dlg {Verification} \ |
| 81 |
|
"Really delete picture file(s) $selected_pics?" \ |
| 82 |
< |
questhead 1 {Delete} {Cancel}] { |
| 82 |
> |
questhead 0 {Delete} {Cancel}] { |
| 83 |
|
return |
| 84 |
|
} |
| 85 |
|
if {! [catch {eval exec rm $selected_pics < /dev/null} curmess]} { |
| 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." |
