use strict;
 
 use Exporter qw(import);
-our @EXPORT = qw(init_visible_section);
+our @EXPORT = qw(init_visible_section set_function_blocks_tab_menu_class);
 
 use SL::DB::Manager::RequirementSpecItem;
 
   return $self->visible_section($self->visible_item->section);
 }
 
+sub set_function_blocks_tab_menu_class {
+  my $self          = shift;
+  my %params        = Params::Validate::validate(@_, { class => 1 });
+
+  my $id            = '#function-blocks-tab';
+  my @other_classes = grep { $_ ne $params{class} } qw(section-context-menu text-block-context-menu);
+
+  $self->js->removeClass($id, $_) for @other_classes;
+  $self->js->addClass($id, $params{class});
+}
+
 1;