… | |
… | |
207 | ); |
207 | ); |
208 | |
208 | |
209 | my $hltfunc = $_->{_channel_highlighted} |
209 | my $hltfunc = $_->{_channel_highlighted} |
210 | || ($_->{_active} ? \&clr_act : \&clr_def); |
210 | || ($_->{_active} ? \&clr_act : \&clr_def); |
211 | |
211 | |
212 | $tab->set_markup ($hltfunc->("$label\-$_->{_tab_pos}")); |
212 | $tab->set_markup ( |
|
|
213 | $hltfunc->($label . (defined $_->{_tab_pos} ? "\-$_->{_tab_pos}" : "")) |
|
|
214 | ); |
213 | } |
215 | } |
214 | } |
216 | } |
215 | |
217 | |
216 | sub add_channel { |
218 | sub add_channel { |
217 | my ($self, $info) = @_; |
219 | my ($self, $info) = @_; |