--- ray/src/util/do_action.tcl 1994/10/27 18:08:09 2.3 +++ ray/src/util/do_action.tcl 1994/11/30 15:23:56 2.5 @@ -100,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 @@ -146,7 +146,6 @@ proc make_vmenus {} { # make/update view menus catch {destroy $mywin.rbvmb.m} if {[llength $radvar(view)] < 2} { $mywin.rivmb configure -state disabled - $mywin.rbvmb configure -state disabled return } menu $mywin.rivmb.m @@ -156,7 +155,7 @@ proc make_vmenus {} { # make/update view menus -variable rvview -value [lindex $v 0] } menu $mywin.rbvmb.m - $mywin.rbvmb configure -menu $mywin.rbvmb.m -state normal + $mywin.rbvmb configure -menu $mywin.rbvmb.m $mywin.rbvmb.m add radiobutton -label ALL \ -variable rpview -value " ALL" $mywin.rbvmb.m add separator