SL/Layout/Classic.pm

   1 package SL::Layout::Classic;
   2
   3 use strict;
   4 use parent qw(SL::Layout::Base);
   5
   6 use SL::Layout::Top;
   7 use SL::Layout::MenuLeft;
   8 use SL::Layout::None;
   9 use SL::Layout::Split;
  10 use SL::Layout::ActionBar;
  11 use SL::Layout::Content;
  12
  13 sub init_sub_layouts {
  14   $_[0]->sub_layouts_by_name->{actionbar} = SL::Layout::ActionBar->new;
  15
  16   [
  17     SL::Layout::None->new,
  18     SL::Layout::Top->new,
  19     SL::Layout::Split->new(
  20       left  => [ SL::Layout::MenuLeft->new ],
  21       right => [ $_[0]->sub_layouts_by_name->{actionbar}, SL::Layout::Content->new ],
  22     )
  23   ]
  24 }
  25
  26 1;