annotate variant_effect_predictor/Bio/Graphics/Glyph/group.pm @ 1:d6778b5d8382 draft default tip

Deleted selected files
author willmclaren
date Fri, 03 Aug 2012 10:05:43 -0400
parents 21066c0abaf5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
1 package Bio::Graphics::Glyph::group;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
2
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
3 use strict;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
4 use vars '@ISA';
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
5 use Bio::Graphics::Glyph::segmented_keyglyph;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
6 @ISA = 'Bio::Graphics::Glyph::segmented_keyglyph';
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
7
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
8 # group sets connector to 'dashed'
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
9 sub connector {
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
10 my $self = shift;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
11 my $super = $self->SUPER::connector(@_);
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
12 return $super if $self->all_callbacks;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
13 return 'dashed' unless defined($super) && ($super eq 'none' or !$super);
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
14 }
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
15
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
16 # we don't label group (yet)
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
17 sub label { 0 }
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
18
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
19 sub new {
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
20 my $self = shift->SUPER::new(@_);
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
21 # reset our parts to level zero
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
22 foreach (@{$self->{parts}}) {
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
23 $_->{level} = 0;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
24 }
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
25 $self;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
26 }
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
27
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
28 # don't allow simple bumping in groups -- it looks terrible...
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
29 sub bump {
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
30 my $bump = shift->SUPER::bump(@_);
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
31 return unless defined $bump;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
32 return 1 if $bump > 1;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
33 return -1 if $bump < -1;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
34 return $bump;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
35 }
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
36
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
37 1;
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
38
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
39 __END__
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
40
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
41 =head1 NAME
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
42
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
43 Bio::Graphics::Glyph::group - The "group" glyph
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
44
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
45 =head1 SYNOPSIS
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
46
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
47 See L<Bio::Graphics::Panel> and L<Bio::Graphics::Glyph>.
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
48
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
49 =head1 DESCRIPTION
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
50
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
51 This glyph is used internally by Bio::Graphics::Panel for laying out
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
52 groups of glyphs that move in concert. It should not be used
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
53 explicitly.
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
54
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
55 =head1 BUGS
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
56
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
57 Please report them.
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
58
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
59 =head1 SEE ALSO
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
60
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
61 L<Ace::Sequence>, L<Ace::Sequence::Feature>, L<Bio::Graphics::Panel>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
62 L<Bio::Graphics::Track>, L<Bio::Graphics::Glyph::anchored_arrow>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
63 L<Bio::Graphics::Glyph::arrow>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
64 L<Bio::Graphics::Glyph::box>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
65 L<Bio::Graphics::Glyph::primers>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
66 L<Bio::Graphics::Glyph::segments>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
67 L<Bio::Graphics::Glyph::toomany>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
68 L<Bio::Graphics::Glyph::transcript>,
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
69
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
70 =head1 AUTHOR
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
71
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
72 Lincoln Stein E<lt>lstein@cshl.orgE<gt>
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
73
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
74 Copyright (c) 2001 Cold Spring Harbor Laboratory
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
75
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
76 This library is free software; you can redistribute it and/or modify
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
77 it under the same terms as Perl itself. See DISCLAIMER.txt for
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
78 disclaimers of warranty.
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
79
21066c0abaf5 Uploaded
willmclaren
parents:
diff changeset
80 =cut