# This is a box that arranges screen objects package neb::Tree::LayoutBox; use strict; use English; use Carp; use neb::Tree::Node; use neb::Tree::Container; use neb::Tree::Tag; use neb::Tree::ScreenObject; our @ISA = ('neb::Tree::ScreenObject'); sub halign { my $self = shift; my $halign = shift; $self->attribute("halign", $halign) if defined ($halign); return $self->attribute("halign"); } sub valign { my $self = shift; my $valign = shift; $self->attribute("valign", $valign) if defined ($valign); return $self->attribute("valign"); } # Layout boxes are meant to vanish from the tree before they are output. sub cleanup { my $self->shift; $self->SUPER::cleanup; return @{$self->content}; } 1;