ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/do_action.tcl

Comparing ray/src/util/do_action.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:06 1994 UTC vs.
Revision 2.5 by greg, Wed Nov 30 15:23:56 1994 UTC

#	Line 37 | Line 37 | proc make_oct args {           # Make octree file ($args is {-t
37		set fi [open "|make $radvar(OCTREE) $args" r]
38		while {[gets $fi curmess] >= 0} { update ; after 1000 }
39		catch {close $fi} curmess
40	–	if {"$args" == {}} {return}
40		}
41		if {"$args" == {}} {
42		run_rad -v 0
#	Line 101 | Line 100 | proc kill_batch {} {           # kill batch rendering
100		switch -glob [exec uname] {
101		SunOS -
102		ULTRIX {set ps "ps -lg"}
103	<	default {set ps "ps -lu $env(USER)"}
103	>	default {set ps "ps -lu $env(LOGNAME)"}
104		}
105		set fi [open "|$ps" r]
106		gets $fi li
#	Line 144 | Line 143 | proc make_vmenus {} {          # make/update view menus
143		set rvview [lindex [lindex $radvar(view) 0] 0]
144		}
145		catch {destroy $mywin.rivmb.m}
146	+	catch {destroy $mywin.rbvmb.m}
147		if {[llength $radvar(view)] < 2} {
148		$mywin.rivmb configure -state disabled
149	<	} else {
150	<	menu $mywin.rivmb.m
151	<	$mywin.rivmb configure -menu $mywin.rivmb.m
152	<	foreach v $radvar(view) {
153	<	$mywin.rivmb.m add radiobutton -label [lindex $v 0] \
154	<	-variable rvview -value [lindex $v 0]
155	<	}
149	>	return
150		}
151	<	catch {destroy $mywin.rbvmb.m}
152	<	if {[llength $radvar(view)] < 2} {
153	<	$mywin.rbvmb configure -state disabled
154	<	} else {
155	<	menu $mywin.rbvmb.m
156	<	$mywin.rbvmb configure -menu $mywin.rbvmb.m
157	<	$mywin.rbvmb.m add radiobutton -label ALL \
158	<	-variable rpview -value " ALL"
159	<	$mywin.rbvmb.m add separator
160	<	foreach v $radvar(view) {
161	<	$mywin.rbvmb.m add radiobutton -label [lindex $v 0] \
162	<	-variable rpview -value [lindex $v 0]
163	<	}
151	>	menu $mywin.rivmb.m
152	>	$mywin.rivmb configure -menu $mywin.rivmb.m -state normal
153	>	foreach v $radvar(view) {
154	>	$mywin.rivmb.m add radiobutton -label [lindex $v 0] \
155	>	-variable rvview -value [lindex $v 0]
156	>	}
157	>	menu $mywin.rbvmb.m
158	>	$mywin.rbvmb configure -menu $mywin.rbvmb.m
159	>	$mywin.rbvmb.m add radiobutton -label ALL \
160	>	-variable rpview -value " ALL"
161	>	$mywin.rbvmb.m add separator
162	>	foreach v $radvar(view) {
163	>	$mywin.rbvmb.m add radiobutton -label [lindex $v 0] \
164	>	-variable rpview -value [lindex $v 0]
165		}
166		}
167

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)