--- ray/src/util/do_scene.tcl	1995/09/13 14:51:01	2.1
+++ ray/src/util/do_scene.tcl	2012/06/01 22:55:14	2.5
@@ -1,13 +1,8 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_scene.tcl,v 2.5 2012/06/01 22:55:14 greg Exp $
 #
 # Track octree and scene files
 #
 
-set myglob(materials) *.mat
-set myglob(illum) *.rad
-set myglob(scene) *.rad
-set myglob(objects) *
-
 proc newfent f {		# add file to our list
 	global rifname radvar mybox myvar
 	set rd [file dirname $rifname]
@@ -39,7 +34,7 @@ proc lbgetf nm {		# get list box files
 
 proc oct_delete {} {		# delete octree file
 	global radvar curmess
-	if {"$radvar(OCTREE)" == {} || ! [file exists $radvar(OCTREE)]} {
+	if {"$radvar(OCTREE)" == {} || ! [file isfile $radvar(OCTREE)]} {
 		set curmess {No octree file.}
 		return
 	}
@@ -221,7 +216,7 @@ proc do_scene w {		# Create scene screen
 			-anchor se
 	helplink $w.revert trad scene revert
 	button $w.copy -text Copy -relief raised -command {getfile -grab \
-			-send copyscene -view view_txt -glob $rif_glob}
+			-send copyscene -view view_txt -glob $myglob(rif)}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se
 	helplink $w.copy trad scene copy