Toolbar

Summary

Bio::Graphics::Glyph::group - The "group" glyph

Package variables

Included modules

Inherit

Bio::Graphics::Glyph::segmented_keyglyph

Synopsis

  See Bio::Graphics::Panel and Bio::Graphics::Glyph.

Description

This glyph is used internally by Bio::Graphics::Panel for laying out
groups of glyphs that move in concert. It should not be used
explicitly.

Methods

Methods description

None available.

Methods code

sub bump {

  my $bump = shift->SUPER::bump(@_);
  return unless defined $bump;
  return 1  if $bump >  1;
  return -1 if $bump < -1;
  return $bump;
}

1;

__END__

}

sub connector {

  my $self = shift;
  my $super = $self->SUPER::connector(@_);
  return $super if $self->all_callbacks;
  return 'dashed' unless defined($super) && ($super eq 'none' or !$super);
}

# we don't label group (yet)

}

sub new {

  my $self = shift->SUPER::new(@_);
  # reset our parts to level zero
  foreach (@{$self->{parts}}) {
    $_->{level} = 0;
  }
  $self;
}

# don't allow simple bumping in groups -- it looks terrible...

}

General documentation

Please report them.

Ace::Sequence, Ace::Sequence::Feature, Bio::Graphics::Panel,
Bio::Graphics::Track, Bio::Graphics::Glyph::anchored_arrow,
Bio::Graphics::Glyph::arrow,
Bio::Graphics::Glyph::box,
Bio::Graphics::Glyph::primers,
Bio::Graphics::Glyph::segments,
Bio::Graphics::Glyph::toomany,
Bio::Graphics::Glyph::transcript,

Lincoln Stein <lstein@cshl.org>
Copyright (c) 2001 Cold Spring Harbor Laboratory
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. See DISCLAIMER.txt for
disclaimers of warranty.