Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix issue which caused the track bgcolor property to be ignored in so…

…me cases
  • Loading branch information...
commit 59fc9d5a9dc37a3eed4d7f087eda4b5d41b467ef 1 parent 5f05ea6
Lincoln Stein lstein authored
Showing with 3 additions and 1 deletion.
  1. +1 −0  Changes
  2. +2 −1  lib/Bio/Graphics/Glyph.pm
1  Changes
View
@@ -3,6 +3,7 @@ Revision history for Perl extension Bio::Graphics.
2.23
- Workaround a problem in BioPerl 1.069 which prevents FeatureFile from rendering
properly. Fixed in 1.06902 and higher.
+ - Fix issue which caused the track bgcolor property to be ignored in some cases.
2.22
- Changed package "Math" to "Bio::Graphics::Math" to avoid CPAN namespace
3  lib/Bio/Graphics/Glyph.pm
View
@@ -700,7 +700,8 @@ sub fillcolor {
# we also look for the "fillcolor" option for Ace::Graphics compatibility
sub bgcolor {
my $self = shift;
- my ($bgcolor) = $self->feature->get_tag_values('bgcolor') if $self->feature->has_tag('bgcolor');
+ my $bgcolor;
+ ($bgcolor) = $self->feature->get_tag_values('bgcolor') if $self->feature->has_tag('bgcolor');
$bgcolor ||= $self->option('bgcolor'); # Let feature attribute override color
my $index = defined $bgcolor ? $bgcolor : $self->option('fillcolor');
$index = 'white' unless defined $index;
Please sign in to comment.
Something went wrong with that request. Please try again.