@@ -1,4 +1,8 @@
 Revision history for Perl extension Bio::Graphics.
+2.38
+   - If left labeling requested and the selected font size is larger than the available height,
+     then go to smallest available font (gdTinyFont).
+
 2.37
    - Merge fix for incorrect parsing of feature_file sections (issue #6)
    - Added decorated_transcript glyph

@@ -4,7 +4,7 @@
       "Lincoln Stein <lincoln.stein@oicr.on.ca>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.110440",
+   "generated_by" : "Module::Build version 0.4005, CPAN::Meta::Converter version 2.112621",
    "license" : [
       "perl_5"
    ],
@@ -16,7 +16,7 @@
    "prereqs" : {
       "configure" : {
          "requires" : {
-            "Module::Build" : "0.38"
+            "Module::Build" : "0.40"
          }
       },
       "runtime" : {
@@ -34,7 +34,7 @@
    "provides" : {
       "Bio::Graphics" : {
          "file" : "lib/Bio/Graphics.pm",
-         "version" : "2.37"
+         "version" : "2.38"
       },
       "Bio::Graphics::ConfiguratorI" : {
          "file" : "lib/Bio/Graphics/ConfiguratorI.pm",
@@ -483,5 +483,5 @@
          "http://dev.perl.org/licenses/"
       ]
    },
-   "version" : "2.37"
+   "version" : "2.38"
 }

@@ -4,9 +4,9 @@ author:
   - 'Lincoln Stein <lincoln.stein@oicr.on.ca>'
 build_requires: {}
 configure_requires:
-  Module::Build: 0.38
+  Module::Build: 0.40
 dynamic_config: 1
-generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.110440'
+generated_by: 'Module::Build version 0.4005, CPAN::Meta::Converter version 2.112621'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -15,7 +15,7 @@ name: Bio-Graphics
 provides:
   Bio::Graphics:
     file: lib/Bio/Graphics.pm
-    version: 2.37
+    version: 2.38
   Bio::Graphics::ConfiguratorI:
     file: lib/Bio/Graphics/ConfiguratorI.pm
     version: 0
@@ -355,4 +355,4 @@ requires:
   Statistics::Descriptive: 2.6
 resources:
   license: http://dev.perl.org/licenses/
-version: 2.37
+version: 2.38

@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3800
+# Note: this file was auto-generated by Module::Build::Compat version 0.4005
 
     unless (eval "use Module::Build::Compat 0.02; 1" ) {
       print "This module requires Module::Build to install itself.\n";

@@ -217,7 +217,9 @@ sub pad_left {
 }
 sub labelfont {
   my $self = shift;
-  return $self->getfont('label_font',$self->font);
+  my $font = $self->getfont('label_font',$self->font);
+  $font = GD->gdTinyFont if $self->string_height($font) > $self->height && $self->label_position eq 'left';
+  return $font;
 }
 sub descfont {
   my $self = shift;
@@ -478,8 +480,8 @@ sub draw_label {
 			$self->top + $top - 1,
 			$label);
   } elsif ($self->label_position eq 'left') {
-      my $y = $self->{top} + ($self->height - $self->string_height($font))/2 + $top;
-      $y    = $self->{top} + $top if $y < $self->{top} + $top;
+#      my $y = $top + $self->{top} + ($self->height - $self->string_height($font))/2;
+      my $y = $top + $self->{top} - 1;
       $self->render_label($gd,
 			  $font,
 			  $x,

@@ -2,7 +2,7 @@ package Bio::Graphics;
 
 use strict;
 use Bio::Graphics::Panel;
-our $VERSION = '2.37';
+our $VERSION = '2.38';
 
 1;