--- ray/src/util/do_scene3.6.tcl 1994/10/29 10:20:50 2.5 +++ ray/src/util/do_scene3.6.tcl 1994/12/06 15:54:43 2.6 @@ -56,7 +56,7 @@ proc oct_delete {} { # delete octree file proc getdepend {} { # get object dependencies global radvar curmess mybox set curmess "Please wait..." - update idletasks + update foreach newf [eval exec raddepend $radvar(illum) $radvar(scene)] { if {[lsearch -exact $radvar(objects) $newf] < 0} { lappend radvar(objects) $newf