ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/do_scene3.6.tcl
(Generate patch)

Comparing ray/src/util/do_scene3.6.tcl (file contents):
Revision 2.6 by greg, Tue Dec 6 15:54:43 1994 UTC vs.
Revision 2.8 by greg, Tue Oct 17 21:28:15 1995 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines