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