File Coverage

lib/Gtk2/Ex/MindMapView/Layout/Column.pm

Criterion	Covered	Total	%
statement	21	67	31.3
branch	0	8	0.0
condition			n/a
subroutine	7	12	58.3
pod	3	3	100.0
total	31	90	34.4

package Gtk2::Ex::MindMapView::Layout::Column;

our $VERSION = '0.000001';

use warnings;
use strict;
use Carp;

use List::Util;

use Gtk2::Ex::MindMapView::Layout::Group;
use Gtk2::Ex::MindMapView::Layout::Cluster;

use base 'Gtk2::Ex::MindMapView::Layout::Group';

sub new
{
    my $class = shift(@_);

    my $self = $class->SUPER::new(@_);

    if (!defined $self->{column_no})
    {
	croak "Gtk2::Ex::MindMapView::Layout::Column requires a 'column_no'\n";
    }

    $self->{clusters} = {}; # Hash of clusters.

    return $self;
}


# $column->add($predecessor_item, $item)

sub add
{
    my ($self, $predecessor_item, $item) = @_;

    my $cluster_item = (defined $predecessor_item) ? $predecessor_item : $item;

    my $cluster = $self->{clusters}{$cluster_item};

    if (!defined $cluster)
    {
	$cluster = Gtk2::Ex::MindMapView::Layout::Cluster->new(column=>$self,
				       predecessor=>$predecessor_item,
				       cluster_no=>(scalar keys(%{$self->{clusters}})));

	$self->{clusters}{$cluster_item} = $cluster;
    }

    $cluster->add($item);

    my @clusters = values (%{$self->{clusters}});

    $self->set(height=>_column_height($self, \@clusters));

    $self->set(width=>_column_width($self, \@clusters));
}


# $column->layout();

sub layout
{
    my $self = shift(@_);

    my ($x, $y) = $self->get(qw(x y));

    my @clusters = values (%{$self->{clusters}});

    my @sorted_clusters = sort { $a->seq_no() <=> $b->seq_no() } @clusters;

#    my @sorted_clusters = sort { $a->get('cluster_no') <=> $b->get('cluster_no') } @clusters;

    my @visible_clusters = grep  { $_->get('height') > 0 } @sorted_clusters;

    foreach my $cluster (@visible_clusters)
    {
	$cluster->set(x=>$x);

	$cluster->set(y=>$y);

	$cluster->layout();

	$y += ($cluster->get('height') + $self->get_vertical_padding());
    }
}


sub _column_height
{
    my ($self, $clusters_ref) = @_;

    my @clusters = @$clusters_ref;

    my @visible_clusters = grep { $_->get('height') > 0 } @clusters;

    return 0 if (scalar @visible_clusters == 0);

    my $total_height = List::Util::sum (map { $_->get('height'); } @visible_clusters);

    my $total_pad = ($#visible_clusters * $self->get_vertical_padding());

#    print "Column, height: $total_height  pad: $total_pad\n";

    return ($total_height + $total_pad);
}

sub _column_width
{
    my ($self, $clusters_ref) = @_;

    my @clusters = @$clusters_ref;

    my $max_width = List::Util::max (map { $_->get('width'); } @clusters);

    my $width = List::Util::min($max_width, $self->get_max_width());

#    print "Column, max_width: $max_width  width: $width\n";

    return $width;
}



1; # Magic true value required at end of module
__END__