Clean up appearance of crossbox to avoid odd black bar in the middle.

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Bio::Graphics.
 
+2.32 Mon Dec 10 05:47:45 EST 2012
+   - Clean up appearance of crossbox to avoid odd black bar in the middle.
+
 2.31 Tue Sep 25 22:39:43 EDT 2012
    - Fix infinite loop when drawing wiggle_xyplots with z-score scaling
      over regions that do not vary much.

lib/Bio/Graphics.pm

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

lib/Bio/Graphics/Glyph/crossbox.pm

@@ -14,16 +14,9 @@ sub draw_component {
   my $fg = $self->fgcolor;
   my ($left,$top) = @_;
   my($x1,$y1,$x2,$y2) = $self->bounds(@_);
-  $self->unfilled_box($gd,
-		      $x1, $y1,
-		      $x2, $y2);
-
-  if ($self->option('bgcolor')){
-    my $c = $self->color('bgcolor');
-    my $xmid = ($x2+$x1)/2;
-    my $ymid = ($y2+$y1)/2;
-    $gd->fill($xmid,$ymid,$c);
-  }
+  $self->filled_box($gd,
+		    $x1, $y1,
+		    $x2, $y2);
 
   $gd->line($x1,$y1,$x2,$y2,$fg);
   $gd->line($x1,$y2,$x2,$y1,$fg);