Layout::Manager::Single - One-size vertical layout manager

Layout-Manager documentation Contained in the Layout-Manager distribution.

Index

Code Index:

NAME

Top

Layout::Manager::Single - One-size vertical layout manager

DESCRIPTION

Top

Lays out all components in a single position. All components are set to the height and width of the container and positioned at the offsets. This basically stacks them all vertically.

SYNOPSIS

Top

  $cont->add_component($comp1);
  $cont->add_component($comp2);

  my $lm = Layout::Manager::Single->new();
  $lm->do_layout($cont);

METHODS

Top

do_layout

Size and position the components in this layout.

AUTHOR

Top

Cory Watson, <gphat@cpan.org>

COPYRIGHT & LICENSE

Top

Copyright 2008 - 2010 by Cory G Watson

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Layout-Manager documentation Contained in the Layout-Manager distribution. 
package Layout::Manager::Single;
use Moose;

extends 'Layout::Manager';

override('do_layout', sub {
    my ($self, $container) = @_;

    return 0 if $container->prepared && $self->_check_container($container);

    my $bbox = $container->inside_bounding_box;
    my $cwidth = $bbox->width;
    my $cheight = $bbox->height;
    my $x = $bbox->origin->x;
    my $y = $bbox->origin->y;

    my $count = 0;
    foreach my $comp (@{ $container->components }) {

        next unless defined($comp) && $comp->visible;

        $comp->width($cwidth);
        $comp->height($cheight);
        $comp->origin->x($x);
        $comp->origin->y($y);

        if($comp->can('do_layout')) {
            $comp->do_layout($comp);
        } else {
            #$comp->prepared(1);
        }
    }

    $container->prepared(1);
    return 1;
});

__PACKAGE__->meta->make_immutable;

no Moose;

1;
__END__