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