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 |
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 |
|
|