--- ray/src/util/do_action.tcl 1994/10/27 17:28:19 2.2 +++ ray/src/util/do_action.tcl 1994/10/31 11:30:44 2.4 @@ -37,7 +37,6 @@ proc make_oct args { # Make octree file ($args is {-t set fi [open "|make $radvar(OCTREE) $args" r] while {[gets $fi curmess] >= 0} { update ; after 1000 } catch {close $fi} curmess - if {"$args" == {}} {return} } if {"$args" == {}} { run_rad -v 0 @@ -101,7 +100,7 @@ proc kill_batch {} { # kill batch rendering switch -glob [exec uname] { SunOS - ULTRIX {set ps "ps -lg"} - default {set ps "ps -lu $env(USER)"} + default {set ps "ps -lu $env(LOGNAME)"} } set fi [open "|$ps" r] gets $fi li