[Bioperl-guts-l] bioperl commit

[Lincoln Stein]

lstein
Mon Jul 26 16:52:36 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph
In directory pub.open-bio.org:/tmp/cvs-serv7644/Glyph

Modified Files:
	translation.pm 
Log Message:
fixed problem of translation glyph not aligning to flipped coordinates; issue of colorization of flipped six-frame translation still pending

bioperl-live/Bio/Graphics/Glyph translation.pm,1.15,1.16
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph/translation.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph/translation.pm	2004/07/23 17:24:43	1.15
+++ /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph/translation.pm	2004/07/26 20:52:36	1.16
@@ -191,7 +191,7 @@
   my ($protein,$strand,$color,$gd,$x1,$y1,$x2,$y2) = @_;
   my $pixels_per_base = $self->pixels_per_base * 3;
   $y1++;
-  my $right  = $self->panel->right;
+  my $right  = $self->panel->right + $self->panel->pad_right;
   my $flip   = $self->{flip};
 
   my $gcolor = $self->gridcolor;