moving to tabsets and ordered everything
This commit is contained in:
parent
631f6ad267
commit
db785fbc02
5 changed files with 48 additions and 38 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue