still trying to revert

GMOD · Jan 27, 2013 · 7c2e34b · 7c2e34b
1 parent 83040e1
commit 7c2e34b
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 49 deletions.
diff --git a/lib/Bio/Graphics/GDWrapper.pm b/lib/Bio/Graphics/GDWrapper.pm
diff --git a/lib/Bio/Graphics/Panel.pm b/lib/Bio/Graphics/Panel.pm
@@ -3,7 +3,6 @@ package Bio::Graphics::Panel;
 use strict;
 use Bio::Graphics::Glyph::Factory;
 use Bio::Graphics::Feature;
-use Bio::Graphics::GDWrapper;
 
 # KEYLABELFONT must be treated as string until image_class is established
 use constant KEYLABELFONT => 'gdMediumBoldFont';
@@ -54,7 +53,6 @@ sub new {
   my $empty_track_style   = $options{-empty_tracks} || 'key';
   my $autopad      = defined $options{-auto_pad} ? $options{-auto_pad} : 1;
   my $truecolor    = $options{-truecolor}  || 0;
-  my $truetype     = $options{-truetype}  || 0;
   my $image_class  = ($options{-image_class} && $options{-image_class} =~ /SVG/)
                       ? 'GD::SVG'
 		      : $options{-image_class} || 'GD';  # Allow users to specify GD::SVG using SVG
@@ -106,7 +104,6 @@ sub new {
 		autopad   => $autopad,
 		all_callbacks => $allcallbacks,
 		truecolor     => $truecolor,
-		truetype      => $truetype,
 		flip          => $flip,
 		linkrule      => $linkrule,
 		titlerule     => $titlerule,
@@ -163,12 +160,6 @@ sub flip {
   $self->{flip} = shift if @_;
   $g;
 }
-sub truetype {
-  my $self = shift;
-  my $g = $self->{truetype};
-  $self->{truetype} = shift if @_;
-  $g;
-}
 
 # values of empty_track_style are:
 #    "suppress" -- suppress empty tracks entirely (default)
@@ -534,9 +525,7 @@ sub gd {
   }
 
   $self->{translations} = \%translation_table;
-  $self->{gd}           = $gd->isa('GD::SVG') ? $gd 
-                        : $self->truetype     ? Bio::Graphics::GDWrapper->new($gd)
-			: $gd;
+  $self->{gd}           = $gd;
 
   eval {$gd->alphaBlending(0)};
   if ($self->bgcolor) {