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