| # | Line 79 | Line 79 | proc delpic {} { # Delete selected pictures | |
|---|---|---|
| 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]} { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |