| 79 |
|
|
| 80 |
|
proc delpic {} { # Delete selected pictures |
| 81 |
|
global curmess |
| 82 |
< |
set selected_pics [get_selpics] |
| 82 |
> |
set selected_pics [get_selpics 1] |
| 83 |
|
if {"$selected_pics" == {}} { |
| 84 |
|
set curmess "No pictures selected." |
| 85 |
|
return |
| 95 |
|
list_views |
| 96 |
|
} |
| 97 |
|
|
| 98 |
< |
proc get_selpics {} { # return selected pictures |
| 98 |
> |
proc get_selpics {{getall 0}} { # return selected pictures |
| 99 |
|
global fvwbox ufvwbox radvar rawfroot |
| 100 |
|
set sl {} |
| 101 |
|
foreach i [$fvwbox curselection] { |
| 102 |
|
testappend sl $radvar(PICTURE)_[$fvwbox get $i].pic |
| 103 |
< |
if {$rawfroot != $radvar(PICTURE)} { |
| 103 |
> |
if {$getall && $rawfroot != $radvar(PICTURE)} { |
| 104 |
|
testappend sl ${rawfroot}_[$fvwbox get $i].pic |
| 105 |
|
} |
| 106 |
< |
if {$radvar(ZFILE) != {}} { |
| 106 |
> |
if {$getall && $radvar(ZFILE) != {}} { |
| 107 |
|
testappend sl $radvar(ZFILE)_[$fvwbox get $i].zbf |
| 108 |
|
} |
| 109 |
|
} |
| 110 |
|
foreach i [$ufvwbox curselection] { |
| 111 |
|
testappend sl ${rawfroot}_[$ufvwbox get $i].unf |
| 112 |
< |
if {$radvar(ZFILE) != {}} { |
| 112 |
> |
if {$getall && $radvar(ZFILE) != {}} { |
| 113 |
|
testappend sl $radvar(ZFILE)_[$ufvwbox get $i].zbf |
| 114 |
|
} |
| 115 |
|
} |
