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.3 by greg, Thu Oct 27 18:08:09 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 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}
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 –                }
156 –        }
146          catch {destroy $mywin.rbvmb.m}
147          if {[llength $radvar(view)] < 2} {
148 +                $mywin.rivmb configure -state disabled
149                  $mywin.rbvmb configure -state disabled
150 <        } else {
151 <                menu $mywin.rbvmb.m
152 <                $mywin.rbvmb configure -menu $mywin.rbvmb.m
153 <                $mywin.rbvmb.m add radiobutton -label ALL \
154 <                                -variable rpview -value " ALL"
155 <                $mywin.rbvmb.m add separator
156 <                foreach v $radvar(view) {
157 <                        $mywin.rbvmb.m add radiobutton -label [lindex $v 0] \
158 <                                        -variable rpview -value [lindex $v 0]
159 <                }
150 >                return
151 >        }
152 >        menu $mywin.rivmb.m
153 >        $mywin.rivmb configure -menu $mywin.rivmb.m -state normal
154 >        foreach v $radvar(view) {
155 >                $mywin.rivmb.m add radiobutton -label [lindex $v 0] \
156 >                                -variable rvview -value [lindex $v 0]
157 >        }
158 >        menu $mywin.rbvmb.m
159 >        $mywin.rbvmb configure -menu $mywin.rbvmb.m -state normal
160 >        $mywin.rbvmb.m add radiobutton -label ALL \
161 >                        -variable rpview -value " ALL"
162 >        $mywin.rbvmb.m add separator
163 >        foreach v $radvar(view) {
164 >                $mywin.rbvmb.m add radiobutton -label [lindex $v 0] \
165 >                                -variable rpview -value [lindex $v 0]
166          }
167   }
168  

Diff Legend

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