ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/src/util/do_action.tcl
(Generate patch)

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

# Line 100 | 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 146 | Line 146 | proc make_vmenus {} {          # make/update view menus
146          catch {destroy $mywin.rbvmb.m}
147          if {[llength $radvar(view)] < 2} {
148                  $mywin.rivmb configure -state disabled
149 –                $mywin.rbvmb configure -state disabled
149                  return
150          }
151          menu $mywin.rivmb.m
# Line 156 | Line 155 | proc make_vmenus {} {          # make/update view menus
155                                  -variable rvview -value [lindex $v 0]
156          }
157          menu $mywin.rbvmb.m
158 <        $mywin.rbvmb configure -menu $mywin.rbvmb.m -state normal
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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines