--- ray/src/util/do_views3.6.tcl	1994/10/27 15:56:09	2.1
+++ ray/src/util/do_views3.6.tcl	1994/11/05 09:31:48	2.3
@@ -179,14 +179,14 @@ proc do_views w {			# create views screen
 	place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
 			-anchor se
 	helplink $w.revert trad views revert
-	button $w.copy -text Copy -relief raised -command {getfile \
+	button $w.copy -text Copy -relief raised -command {getfile -grab \
 			-send copyviews -view view_txt -glob $rif_glob}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se
 	helplink $w.copy trad views copy
 	# Assign focus
 	bind $w.vne <Return> "focus $w.vo.e"
-	bind $w.vo.e <Return> addview
+	bind $w.vo.e <Return> "addview ; $w.vclr invoke"
 	bind $w.vo.e <B2-Motion> {}
 	bind $w.vo.e <Button-2> "$w.vo.e insert insert \[selection get\]"
 	$w.vclr invoke