added Tabsets. finished toHtml

This commit is contained in:
Doug Bell 2009-11-20 18:12:11 -06:00
parent db785fbc02
commit 38d395e49f
9 changed files with 166 additions and 39 deletions

View file

@ -115,7 +115,7 @@ sub toHtml {
my ( $self ) = @_;
my $html = '<fieldset><legend>' . $self->label . '</legend>';
$html .= inner();
$html .= join "", map { $_->toHtml } @{$self->objects};
$html .= '</fieldset>';
return $html;