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.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
> Changed lines