--- ray/src/util/do_views3.6.tcl	1994/10/28 20:14:39	2.2
+++ ray/src/util/do_views3.6.tcl	1995/07/06 12:23:44	2.5
@@ -43,7 +43,10 @@ proc addview {{pos end}} {		# add current view
 		return -1
 	}
 	set curmess {}
-	set n [lsearch -glob $radvar(view) "$viewname *"]
+	set n [lsearch -exact $radvar(view) $viewname]
+	if {$n < 0} {
+		set n [lsearch -glob $radvar(view) "$viewname *"]
+	}
 	if {$n >= 0} {
 		set radvar(view) [lreplace $radvar(view) $n $n]
 		if {"$pos" != "end" && $pos > $n} {incr pos -1}
@@ -77,7 +80,7 @@ proc delview {} {			# delete current view
 }
 
 proc copyviews rf {		# copy view settings from another RIF
-	load_vars [file tail $rf] {view UP PICTURE RESOLUTION}
+	load_vars [file tail $rf] {view UP PICTURE RESOLUTION RAWSAVE}
 	vnchange viewname {} w
 }
 
@@ -173,6 +176,11 @@ proc do_views w {			# create views screen
 	entry $w.rze -textvariable radvar(RESOLUTION) -relief sunken
 	place $w.rze -relwidth .2857 -relheight .0610 -relx .2857 -rely .7717
 	helplink $w.rze trad views resolution
+	# Rawsave
+	checkbutton $w.rawb -relief flat -text Rawsave \
+			-variable radvar(RAWSAVE) -onvalue True -offvalue False
+	place $w.rawb -relx .6429 -rely .7717
+	helplink $w.rawb trad views rawsave
 	# Revert and Copy buttons
 	button $w.revert -text Revert -relief raised \
 			-command "copyviews $rifname"
@@ -186,7 +194,7 @@ proc do_views w {			# create views screen
 	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