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