| # | Line 39 | Line 39 | proc lbgetf nm { # get list box files | |
|---|---|---|
| 39 | ||
| 40 | proc oct_delete {} { # delete octree file | |
| 41 | global radvar curmess | |
| 42 | < | if {"$radvar(OCTREE)" == {} || ! [file exists $radvar(OCTREE)]} { |
| 42 | > | if {"$radvar(OCTREE)" == {} || ! [file isfile $radvar(OCTREE)]} { |
| 43 | set curmess {No octree file.} | |
| 44 | return | |
| 45 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |