moving to tabsets and ordered everything

This commit is contained in:
Doug Bell 2009-11-17 14:00:07 -06:00
parent 631f6ad267
commit db785fbc02
5 changed files with 48 additions and 38 deletions

View file

@ -3,6 +3,7 @@ package WebGUI::FormBuilder::Role::HasTabs;
use strict;
use Moose::Role;
with 'WebGUI::FormBuilder::Role::HasObjects';
requires 'session', 'pack', 'unpack';
has 'tabs' => (
@ -94,21 +95,4 @@ sub getTab {
return $self->{_tabsByName}{$name};
}
#----------------------------------------------------------------------------
=head2 toHtml ( )
Render the tabs in this part of the form
=cut
override 'toHtml' => sub {
my ( $self ) = @_;
my $html = super();
for my $tab ( @{$self->tabs} ) {
$html .= $tab->toHtml;
}
return $html;
};
1;