--- ray/src/util/do_scene.tcl	1995/10/17 21:28:13	2.2
+++ 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]
@@ -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