RequirementSpec-Presenter in RequirementSpecTextBlock umbenannt

diff --git a/SL/Presenter/RequirementSpec.pm b/SL/Presenter/RequirementSpec.pm
deleted file mode 100644 (file)
index b8a202d..0000000
--- a/SL/Presenter/RequirementSpec.pm
+++ /dev/null
@@ -1,24 +0,0 @@
-package SL::Presenter::RequirementSpec;
-
-use strict;
-
-use parent qw(Exporter);
-
-use Exporter qw(import);
-our @EXPORT = qw(requirement_spec_text_block_jstree_data);
-
-use Carp;
-
-use SL::JSON;
-
-sub requirement_spec_text_block_jstree_data {
-  my ($self, $text_block, %params) = @_;
-
-  return {
-    data     => $text_block->title || '',
-    metadata => { id =>         $text_block->id, type => 'textblock' },
-    attr     => { id => "tb-" . $text_block->id, href => $params{href} || '#' },
-  };
-}
-
-1;

diff --git a/SL/Presenter/RequirementSpecTextBlock.pm b/SL/Presenter/RequirementSpecTextBlock.pm
new file mode 100644 (file)
index 0000000..8e2eb81
--- /dev/null
+++ b/SL/Presenter/RequirementSpecTextBlock.pm
@@ -0,0 +1,24 @@
+package SL::Presenter::RequirementSpecTextBlock;
+
+use strict;
+
+use parent qw(Exporter);
+
+use Exporter qw(import);
+our @EXPORT = qw(requirement_spec_text_block_jstree_data);
+
+use Carp;
+
+use SL::JSON;
+
+sub requirement_spec_text_block_jstree_data {
+  my ($self, $text_block, %params) = @_;
+
+  return {
+    data     => $text_block->title || '',
+    metadata => { id =>         $text_block->id, type => 'textblock' },
+    attr     => { id => "tb-" . $text_block->id, href => $params{href} || '#', class => 'text-block-context-menu' },
+  };
+}
+
+1;