--- ray/src/util/do_scene3.6.tcl	1994/10/28 20:14:38	2.4
+++ ray/src/util/do_scene3.6.tcl	1995/02/22 20:48:52	2.7
@@ -6,7 +6,7 @@
 set myglob(materials) *.mat
 set myglob(illum) *.rad
 set myglob(scene) *.rad
-set myglob(objects) *.rad
+set myglob(objects) *
 
 proc newfent f {		# add file to our list
 	global rifname radvar mybox myvar
@@ -45,7 +45,7 @@ proc oct_delete {} {		# delete octree file
 	}
 	if [tk_dialog .dlg {Verification} \
 			"Really delete octree file $radvar(OCTREE)?" \
-			questhead 1 {Delete} {Cancel}] {
+			questhead 0 {Delete} {Cancel}] {
 		return 0
 	}
 	if [catch {exec rm $radvar(OCTREE) < /dev/null} curmess] {return 0}
@@ -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