-# static constructors
-
-sub from_descriptor {
- my ($class, $descriptor) = @_;
- require SL::Layout::ActionBar::Separator;
- require SL::Layout::ActionBar::ComboBox;
-
- return {
- separator => SL::Layout::ActionBar::Separator->new,
- combobox => SL::Layout::ActionBar::ComboBox->new,
- }->{$descriptor} || do { die 'unknown descriptor' };
-}
-