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