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

Comparing ray/src/util/do_action.tcl (file contents):
Revision 2.2 by greg, Thu Oct 27 17:28:19 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 147 | 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
150 –                $mywin.rbvmb configure -state disabled
149                  return
150          }
151          menu $mywin.rivmb.m
# Line 157 | 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