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