445762: [Model Import] Activity diagram, ActivityParameterNode name and

parameters are missing
https://bugs.eclipse.org/bugs/show_bug.cgi?id=445762

1 files changed, 11 insertions, 3 deletions

diff --git a/extraplugins/migration/org.eclipse.papyrus.migration.rsa/transform/RSAActivityDiagram.qvto b/extraplugins/migration/org.eclipse.papyrus.migration.rsa/transform/RSAActivityDiagram.qvto
index adab16c7a23..ce1a3728a0a 100644
--- a/extraplugins/migration/org.eclipse.papyrus.migration.rsa/transform/RSAActivityDiagram.qvto
+++ b/extraplugins/migration/org.eclipse.papyrus.migration.rsa/transform/RSAActivityDiagram.qvto
@@ -33,6 +33,7 @@ mapping notation::Diagram::generateDiagram() : notation::Diagram inherits Diagra
 }{
 	end {
 		graphics.objectsOfType(Shape)->any(type = '2001').map fixFramePosition();
+		graphics.objectsOfType(Shape)->any(type = '2001').map createHeaders();
 		
 		graphics.objectsOfType(Shape)->select(type='3080').map addCommentDecoration();
 		graphics.objectsOfType(Shape)->select(type = '3112').map addConstraintDecoration();
@@ -126,6 +127,16 @@ mapping inout Shape::fixFramePosition() {
 	if bounds.y < margin then bounds.y := margin endif;
 }
 
+mapping inout Shape::createHeaders() : param: DecorationNode, pre: DecorationNode, post: DecorationNode {
+	self.children += param;
+	self.children += pre;
+	self.children += post;
+	
+	param.type := '7001';
+	pre.type := '7002';
+	post.type := '7003';
+}
+
 mapping Node::toNode() : Node disjuncts
 	UMLShape::toPapyrusShape,
 	UMLShapeCompartment::toStructureCompartment,
@@ -694,9 +705,6 @@ query View::doGetDecorationType(element : Element) : String{
 			elif element.oclIsTypeOf(Activity) then
 				return switch {
 					case (self.type = 'Name') '5001';
-					case (self.type = 'Compartment') '7001';
-					case (self.type = 'Compartment') '7002';
-					case (self.type = 'Compartment') '7003';
 					case (self.type = 'ActivityCompartment') '7004';
 				}
 			elif element.oclIsTypeOf(ReadStructuralFeatureAction) then