[Bioperl-l] is Bio::Graphics::Glyph::line supposed to draw description?

ben berman benb at fruitfly.org
Mon Aug 9 01:47:02 EDT 2004

I was trying to draw a description string with the 
Bio::Graphics::Glyph::line glyph, but it doesn't seem to work.  I 
checked the latest version (1.5) , and the draw() function is as 

> sub draw {
>   my $self = shift;
>   my $gd = shift;
>   my ($x1,$y1,$x2,$y2) = $self->calculate_boundaries(@_);
>   my $fg = $self->fgcolor;
>   my $a2 = $self->SUPER::height/2;
>   my $center = $y1+$a2;
>   $gd->line($x1,$center,$x2,$center,$fg);
>   # add a label if requested
>   $self->draw_label($gd, at _) if $self->option('label');
> }

The arrow glyph, which does seem to implement the description string 
correctly, has the following:

>   # add a label if requested
>   $self->draw_label($gd,$dx,$dy)       if $self->option('label');
>   $self->draw_description($gd,$dx,$dy) if $self->option('description');
> }

Is this omission by design?  Based on the documentation for 
Panel::add_track, i kind of expected all glyphs to implement this if 

i would commit the change myself, but i want to be cautious since i'm 
not an active contributor.


More information about the Bioperl-l mailing list