[Bioperl-guts-l] bioperl-live/Bio/Graphics FeatureBase.pm, 1.5, 1.6 Glyph.pm, 1.100, 1.101

Lincoln Stein lstein at dev.open-bio.org
Fri Jun 2 15:05:57 EDT 2006


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

Modified Files:
	FeatureBase.pm Glyph.pm 
Log Message:
a number of bug fixes and features enhancements to support forthcoming gbrowse release

Index: Glyph.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -C2 -d -r1.100 -r1.101
*** Glyph.pm	1 Jun 2006 16:14:18 -0000	1.100
--- Glyph.pm	2 Jun 2006 19:05:55 -0000	1.101
***************
*** 425,431 ****
  }
  
! sub font {
!   my $self = shift;
!   my $font = $self->option('font');
  
    my $img_class = $self->image_class;
--- 425,435 ----
  }
  
! sub getfont {
!   my $self    = shift;
!   my $option  = shift || 'font';
!   my $default = shift;
! 
!   my $font = $self->option($option) || $default;
!   return unless $font;
  
    my $img_class = $self->image_class;
***************
*** 440,445 ****
      		 };
  
!     my $gdfont = $ref->{$font} || $img_class->gdSmallFont();
!     $self->configure(font=>$gdfont);
      return $gdfont;
    }
--- 444,449 ----
      		 };
  
!     my $gdfont = $ref->{$font};
!     $self->configure($option => $gdfont);
      return $gdfont;
    }
***************
*** 447,450 ****
--- 451,459 ----
  }
  
+ sub font {
+   my $self = shift;
+   return $self->getfont('font','gdSmallFont');
+ }
+ 
  sub fontcolor {
    my $self = shift;

Index: FeatureBase.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/FeatureBase.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FeatureBase.pm	1 Jun 2006 03:13:07 -0000	1.5
--- FeatureBase.pm	2 Jun 2006 19:05:55 -0000	1.6
***************
*** 232,236 ****
    my $self = shift;
    my $dna =  exists $self->{seq} ? $self->{seq} : '';
-   # $dna .= 'n' x ($self->length - CORE::length($dna));
    return $dna;
  }
--- 232,235 ----



More information about the Bioperl-guts-l mailing list