--- ray/src/util/do_zone.tcl	1994/10/27 15:56:10	2.1
+++ ray/src/util/do_zone.tcl	1994/10/28 20:14:41	2.3
@@ -109,10 +109,9 @@ proc do_zone w {		# set up ZONE screen
 	label $w.indl -text Indirect:
 	place $w.indl -relx .0714 -rely .5488
 	scale $w.inds -showvalue yes -from 0 -to 5 \
-			-orient horizontal -command indscale \
-			-length 450 -width 25
+			-orient horizontal -command indscale
 	$w.inds set $radvar(INDIRECT)
-	place $w.inds -relx .2857 -rely .5488
+	place $w.inds -relx .2857 -rely .5488 -relwidth .6500 -relheight .1200
 	helplink $w.inds trad zone indirect
 	# Variability
 	label $w.varl -text Variability:
@@ -139,7 +138,7 @@ proc do_zone w {		# set up ZONE screen
 	place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
 			-anchor se
 	helplink $w.revert trad zone revert
-	button $w.copy -text Copy -relief raised -command {getfile \
+	button $w.copy -text Copy -relief raised -command {getfile -grab \
 			-send copyzone -view view_txt -glob $rif_glob}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se