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 |
|
} |