| # | Line 15 | Line 15 | proc amb_delete {} { # delete ambient file | |
|---|---|---|
| 15 | if {$nv > 50 && [tk_dialog .dlg {Verification} \ | |
| 16 | "Really delete ambient file $radvar(AMBFILE)\ | |
| 17 | with $nv indirect irradiance values?" \ | |
| 18 | < | questhead 1 {Delete} {Cancel}]} { |
| 18 | > | questhead 0 {Delete} {Cancel}]} { |
| 19 | return 0 | |
| 20 | } | |
| 21 | if [catch {exec rm $radvar(AMBFILE) < /dev/null} curmess] {return 0} | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |