--- ray/src/util/do_zone.tcl	1994/10/28 10:43:34	2.2
+++ ray/src/util/do_zone.tcl	1994/11/01 20:01:58	2.4
@@ -36,7 +36,7 @@ proc zonechange {nm el op} {		# record change in ZONE
 		return
 	}
 	trace vdelete radvar(ZONE) wu zonechange
-	set radvar(ZONE) "$zonevar(IE)  $zonevar(xmin) $zonevar(xmax)  $zonevar(ymin) $zonevar(ymax)  $zonevar(zmin) $zonevar(zmax)"
+	set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)"
 	trace variable radvar(ZONE) wu zonechange
 }
 
@@ -138,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