X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dd1ab30b7c2a6bec318dd75100e54c9bfa400e77..1ba38eaf5f960ed5ba531b47c27a38bee5be44b4:/SL/Layout/ActionBar/Action.pm?ds=inline diff --git a/SL/Layout/ActionBar/Action.pm b/SL/Layout/ActionBar/Action.pm index 8b83295c5..e73387769 100644 --- a/SL/Layout/ActionBar/Action.pm +++ b/SL/Layout/ActionBar/Action.pm @@ -4,6 +4,7 @@ use strict; use parent qw(Rose::Object); use SL::Presenter; + require SL::Layout::ActionBar::Submit; use Rose::Object::MakeMethods::Generic ( 'scalar --get_set_init' => [ qw(id params text) ], @@ -29,29 +30,15 @@ sub from_descriptor { return { separator => SL::Layout::ActionBar::Separator->new, combobox => SL::Layout::ActionBar::ComboBox->new, - }->{$descriptor} or die 'unknown descriptor'; + }->{$descriptor} || do { die 'unknown descriptor' }; } -# TODO: this necessary? +# this is mostly so that outside consumer don't need to load subclasses themselves sub simple { my ($class, $data) = @_; my ($text, %params) = @$data; - - if ($params{submit}) { - require SL::Layout::ActionBar::Submit; - return SL::Layout::ActionBar::Submit->new(text => $text, params => \%params); - } - - if ($params{function}) { - require SL::Layout::ActionBar::ScriptButton; - return SL::Layout::ActionBar::ScriptButton->new(text => $text, params => \%params); - } - - if ($params{actions}) { - require SL::Layout::ActionBar::ComboBox; - return SL::Layout::ActionBar::ComboBox->new(text => $text, %params); - } + return SL::Layout::ActionBar::Submit->new(text => $text, params => \%params); } # shortcut for presenter