[Bioperl-l] different label colours

[Horvath Tamas]

I'm trying to use different label colours in one single track, but the  
'sub {}' does not work for the '-fontcolor' option. Is there a solution? 
If not yet, where should I look over the code, to implement it?

Hota

PS.:

-fontcolor => sub { my $feature = shift;
                                         return 'red' if 
$feature->primary_tag =~ /mudr/i;
                                         return 'blue' if 
$feature->primary_tag =~ /zn_finger/i;
                                         return 'orange' if 
$feature->primary_tag =~ /repeat/i;
                                         return 'green' if 
$feature->primary_tag eq 'exon';
                                    },
this is how it looks like, but the label color is consistently black 
(though if I explicitly use -fontcolor => 'green' then the label is 
green indeed)