--- ray/src/util/do_scene3.6.tcl	1994/10/27 15:56:08	2.1
+++ ray/src/util/do_scene3.6.tcl	1994/10/29 10:20:50	2.5
@@ -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
@@ -25,7 +25,7 @@ proc lbgetf nm {		# get list box files
 	global myglob radvar mybox myvar curpat curmess
 	set myvar $nm
 	set oldnum [llength $radvar($nm)]
-	if [getfile -perm -glob $myglob($nm) -view view_txt -send newfent] {
+	if [getfile -grab -perm -glob $myglob($nm) -view view_txt -send newfent] {
 		set curmess "Added [expr [llength $radvar($nm)] - $oldnum] entries."
 	} elseif {[llength $radvar($nm)] > $oldnum} {
 		set radvar($nm) [lreplace $radvar($nm) $oldnum end]
@@ -142,13 +142,13 @@ proc do_scene w {		# Create scene screen
 	place $w.oct -relwidth .5714 -relheight .0610 -relx .2143 -rely .0610
 	helplink $w.oct trad scene octree
 	button $w.odel -text Delete -relief raised -command oct_delete
-	place $w.odel -relwidth .1071 -relheight .0610 -relx .8214 -rely .0610
+	place $w.odel -relwidth .1071 -relheight .0610 -relx .8000 -rely .0610
 	helplink $w.odel trad scene octdelete
 	# Materials listbox
 	button $w.matb -text Materials -relief raised \
 			-command "lbgetf materials"
 	set mybox(materials) $w.mat.lb
-	place $w.matb -relwidth .1071 -relheight .0610 -relx .0714 -rely .1463
+	place $w.matb -relwidth .1200 -relheight .0610 -relx .0714 -rely .1463
 	frame $w.mat
 	scrollbar $w.mat.sb -relief sunken -command "$w.mat.lb yview"
 	listbox $w.mat.lb -relief sunken -yscroll "$w.mat.sb set" -font $lbfont
@@ -162,7 +162,7 @@ proc do_scene w {		# Create scene screen
 	button $w.illb -text Illum -relief raised \
 			-command "lbgetf illum"
 	set mybox(illum) $w.ill.lb
-	place $w.illb -relwidth .1071 -relheight .0610 -relx .0714 -rely .2683
+	place $w.illb -relwidth .1200 -relheight .0610 -relx .0714 -rely .2683
 	frame $w.ill
 	scrollbar $w.ill.sb -relief sunken -command "$w.ill.lb yview"
 	listbox $w.ill.lb -relief sunken -yscroll "$w.ill.sb set" -font $lbfont
@@ -176,7 +176,7 @@ proc do_scene w {		# Create scene screen
 	button $w.sceb -text Scene -relief raised \
 			-command "lbgetf scene"
 	set mybox(scene) $w.sce.lb
-	place $w.sceb -relwidth .1071 -relheight .0610 -relx .0714 -rely .3902
+	place $w.sceb -relwidth .1200 -relheight .0610 -relx .0714 -rely .3902
 	frame $w.sce
 	scrollbar $w.sce.sb -relief sunken -command "$w.sce.lb yview"
 	listbox $w.sce.lb -relief sunken -yscroll "$w.sce.sb set" -font $lbfont
@@ -190,7 +190,7 @@ proc do_scene w {		# Create scene screen
 	button $w.objb -text Objects -relief raised \
 			-command "lbgetf objects"
 	set mybox(objects) $w.obj.lb
-	place $w.objb -relwidth .1071 -relheight .0610 -relx .0714 -rely .6829
+	place $w.objb -relwidth .1200 -relheight .0610 -relx .0714 -rely .6829
 	frame $w.obj
 	scrollbar $w.obj.sb -relief sunken -command "$w.obj.lb yview"
 	listbox $w.obj.lb -relief sunken -yscroll "$w.obj.sb set" -font $lbfont
@@ -200,7 +200,7 @@ proc do_scene w {		# Create scene screen
 	place $w.obj -relwidth .5714 -relheight .2683 -relx .2143 -rely .6829
 	eval $w.obj.lb insert end $radvar(objects)
 	button $w.autob -text Auto -relief raised -command getdepend
-	place $w.autob -relwidth .1071 -relheight .0610 -relx .0714 -rely .7927
+	place $w.autob -relwidth .1200 -relheight .0610 -relx .0714 -rely .7927
 	helplink "$w.obj.lb $w.objb $w.autob" trad scene objects
 	# View button
 	button $w.vwb -text Edit -relief raised -command vwselfil
@@ -216,7 +216,7 @@ proc do_scene w {		# Create scene screen
 	place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
 			-anchor se
 	helplink $w.revert trad scene revert
-	button $w.copy -text Copy -relief raised -command {getfile \
+	button $w.copy -text Copy -relief raised -command {getfile -grab \
 			-send copyscene -view view_txt -glob $rif_glob}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se