[Bio] / SubsystemExtension / ClusterView.pm Repository:
ViewVC logotype

View of /SubsystemExtension/ClusterView.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (as text) (annotate) (vendor branch)
Fri Dec 30 08:41:53 2005 UTC (13 years, 11 months ago) by heiko
Branch: BRF, MAIN
CVS Tags: release_0_1, HEAD
Changes since 1.1: +0 -0 lines
Initial import

package SubsystemExtension::ClusterView;


use strict;
use warnings;
use Carp;


use constant GENEWIDTH => 32;
use constant GENEHEIGHT => 12;
use constant SPACING => 5;


sub new {

    my ($class, $cluster) = @_;

    my $self;
    $self->{cluster} = $cluster;
	
    bless $self, $class;

    return $self;

}


sub update {
	my ($self, $cluster) = @_;

	$self->{cluster} = $cluster if (ref $cluster && $cluster->isa("SubsystemExtension::Cluster"));

}

sub output {

	my ($self, $params) = @_;
	carp "abstract output for a cluster\n"; 
}





1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3