X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b6fd15a8dc44f9b09d5a2bce766cda14b87c6e13..f9c6711c22848fbc30edac1944e46bb21aba8c05:/SL/Layout/Classic.pm

diff --git a/SL/Layout/Classic.pm b/SL/Layout/Classic.pm
index a2ef7702d..e8974c143 100644
--- a/SL/Layout/Classic.pm
+++ b/SL/Layout/Classic.pm
@@ -5,19 +5,22 @@ use parent qw(SL::Layout::Base);
 
 use SL::Layout::Top;
 use SL::Layout::MenuLeft;
+use SL::Layout::None;
+use SL::Layout::Split;
+use SL::Layout::ActionBar;
+use SL::Layout::Content;
 
-sub new {
-  my ($class, @slurp) = @_;
+sub init_sub_layouts {
+  $_[0]->sub_layouts_by_name->{actionbar} = SL::Layout::ActionBar->new;
 
-  my $self = $class->SUPER::new(@slurp);
-
-  $self->add_sub_layouts([
-    SL::Layout::Top->new,
-    SL::Layout::MenuLeft->new,
+  [
     SL::Layout::None->new,
-  ]);
-
-  $self;
+    SL::Layout::Top->new,
+    SL::Layout::Split->new(
+      left  => [ SL::Layout::MenuLeft->new ],
+      right => [ $_[0]->sub_layouts_by_name->{actionbar}, SL::Layout::Content->new ],
+    )
+  ]
 }
 
 1;