15 |
my $self = shift; |
my $self = shift; |
16 |
my $halign = shift; |
my $halign = shift; |
17 |
|
|
18 |
$self->attribute("halign", $halign) if defined ($halign); |
$self->attribute("lam:halign", $halign) if defined ($halign); |
19 |
return $self->attribute("halign"); |
return $self->attribute("halign") || "left"; |
20 |
} |
} |
21 |
|
|
22 |
sub valign |
sub valign |
24 |
my $self = shift; |
my $self = shift; |
25 |
my $valign = shift; |
my $valign = shift; |
26 |
|
|
27 |
$self->attribute("valign", $valign) if defined ($valign); |
$self->attribute("lam:valign", $valign) if defined ($valign); |
28 |
return $self->attribute("valign"); |
return $self->attribute("valign") || "top"; |
|
} |
|
|
|
|
|
# Layout boxes are meant to vanish from the tree before they are output. |
|
|
sub cleanup |
|
|
{ |
|
|
my $self = shift; |
|
|
$self->SUPER::cleanup; |
|
|
return @{$self->content}; |
|
29 |
} |
} |
30 |
|
|
31 |
1; |
1; |