| # | Line 45 | Line 45 | proc oct_delete {} { # delete octree file | |
|---|---|---|
| 45 | } | |
| 46 | if [tk_dialog .dlg {Verification} \ | |
| 47 | "Really delete octree file $radvar(OCTREE)?" \ | |
| 48 | < | questhead 1 {Delete} {Cancel}] { |
| 48 | > | questhead 0 {Delete} {Cancel}] { |
| 49 | return 0 | |
| 50 | } | |
| 51 | if [catch {exec rm $radvar(OCTREE) < /dev/null} curmess] {return 0} | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |