--- ray/src/util/do_action.tcl	1995/10/17 21:28:06	2.9
+++ ray/src/util/do_action.tcl	2005/02/16 05:40:12	2.12
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_action.tcl,v 2.12 2005/02/16 05:40:12 greg Exp $
 #
 # Action screen for trad
 #
@@ -8,7 +8,7 @@ set hostname [exec hostname]
 
 proc make_script {} {		# make run script
 	global scname rpview curmess
-	set rfn /usr/tmp/rf[pid]
+	set rfn /tmp/rf[pid]
 	if {! [save_vars $rfn]} {
 		beep
 		set curmess "Cannot save variables to temporary file!"
@@ -19,7 +19,7 @@ proc make_script {} {		# make run script
 		lappend radcom -v $rpview
 	}
 	if {"$scname" == {}} {
-		set rof /usr/tmp/ro[pid]
+		set rof /tmp/ro[pid]
 	} else {
 		set rof $scname
 	}
@@ -50,7 +50,7 @@ proc make_oct args {		# Make octree file ($args is {-t
 
 proc run_rad args {		# Run rad command with given arguments
 	global curmess
-	set rfn /usr/tmp/rf[pid]
+	set rfn /tmp/rf[pid]
 	if {! [save_vars $rfn]} {
 		beep
 		set curmess "Cannot save variables to temporary file!"
@@ -196,10 +196,10 @@ proc do_action w {		# Action screen
 	# Render interactively
 	label $w.ril -text {Render interactively}
 	place $w.ril -relx .1429 -rely .2439
-	button $w.rirv -text rview -relief raised \
+	button $w.rirv -text rvu -relief raised \
 			-command {run_rad -v $rvview -o x11}
 	place $w.rirv -relwidth .1071 -relheight .0610 -relx .4643 -rely .2439
-	helplink $w.rirv trad action rview
+	helplink $w.rirv trad action rvu
 	label $w.rivl -text View:
 	place $w.rivl -relx .6072 -rely .2439
 	menubutton $w.rivmb -textvariable rvview -anchor w -relief raised