[Bioperl-guts-l] bioperl-live/Bio/Graphics Glyph.pm,1.81,1.82

[Lincoln Stein]

Update of /home/repository/bioperl/bioperl-live/Bio/Graphics
In directory pub.open-bio.org:/tmp/cvs-serv19767/Bio/Graphics

Modified Files:
	Glyph.pm 
Log Message:
handling of scales much improved; now possible to color individual boxes or points according to score or other criteria


Index: Glyph.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph.pm,v
retrieving revision 1.81
retrieving revision 1.82
diff -C2 -d -r1.81 -r1.82
*** Glyph.pm	13 Jul 2005 11:20:42 -0000	1.81
--- Glyph.pm	13 Jul 2005 14:46:36 -0000	1.82
***************
*** 532,537 ****
  
    my @parts = $self->parts;
!   return $self->{layout_height}
!     = $self->height + $self->pad_top + $self->pad_bottom unless @parts;
  
    my $bump_direction = $self->bump;
--- 532,536 ----
  
    my @parts = $self->parts;
!   return $self->{layout_height} = $self->height + $self->pad_top + $self->pad_bottom unless @parts;
  
    my $bump_direction = $self->bump;
***************
*** 547,551 ****
        $highest   = $height > $highest ? $height : $highest;
      }
!     return $self->{layout_height} = $highest + $self->pad_top + $self->pad_bottom; # INCORRECTLY ADDING THESE TWICE?
    }
  
--- 546,550 ----
        $highest   = $height > $highest ? $height : $highest;
      }
!     return $self->{layout_height} = $highest + $self->pad_top + $self->pad_bottom;
    }