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 |
146 |
|
catch {destroy $mywin.rbvmb.m} |
147 |
|
if {[llength $radvar(view)] < 2} { |
148 |
|
$mywin.rivmb configure -state disabled |
149 |
– |
$mywin.rbvmb configure -state disabled |
149 |
|
return |
150 |
|
} |
151 |
|
menu $mywin.rivmb.m |
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 |