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.5 by greg, Sat Oct 29 10:20:50 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}
# Line 56 | Line 56 | proc oct_delete {} {           # delete octree file
56   proc getdepend {} {             # get object dependencies
57          global radvar curmess mybox
58          set curmess "Please wait..."
59 <        update idletasks
59 >        update
60          foreach newf [eval exec raddepend $radvar(illum) $radvar(scene)] {
61                  if {[lsearch -exact $radvar(objects) $newf] < 0} {
62                          lappend radvar(objects) $newf

Diff Legend

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