1 package SL::Layout::Javascript;
4 use parent qw(SL::Layout::Base);
8 use SL::Layout::Content;
10 use List::Util qw(max);
13 sub init_sub_layouts {
15 SL::Layout::None->new,
17 SL::Layout::Content->new,
24 js/dhtmlsuite/menu-for-applications.js
26 $self->SUPER::use_javascript(@_);
29 sub javascripts_inline {
30 $_[0]->SUPER::javascripts_inline,
32 DHTMLSuite.createStandardObjects();
33 DHTMLSuite.configObj.setImagePath('image/dhtmlsuite/');
34 var menu_model = new DHTMLSuite.menuModel();
35 menu_model.addItemsFromMarkup('main_menu_model');
37 var menu_bar = new DHTMLSuite.menuBar();
38 menu_bar.addMenuItems(menu_model);
39 menu_bar.setTarget('main_menu_div');
45 $_[0]->SUPER::pre_content .
46 $_[0]->presenter->render("menu/menunew",
49 icon_path => sub { my $simg = "image/icons/svg/$_[0].svg"; my $pimg="image/icons/16x16/$_[0].png"; -f $simg ? $simg : ( -f $pimg ? $pimg : ()) },
50 max_width => sub { 10 * max map { length $::locale->text($_->{name}) } @{ $_[0]{children} || [] } },
55 $_[0]->add_stylesheets(qw(
56 dhtmlsuite/menu-item.css
57 dhtmlsuite/menu-bar.css
61 $_[0]->SUPER::stylesheets;