Use random UUID for profile applications

OpenPonk · Jul 27, 2022 · b95f214 · b95f214
1 parent 9c606d7
commit b95f214
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 15 deletions.
diff --git a/repository/OP-ClockProfile/ClClockProfileFactory.class.st b/repository/OP-ClockProfile/ClClockProfileFactory.class.st
@@ -38,20 +38,17 @@ ClClockProfileFactory >> createProfile [
 
 { #category : #'instance creation' }
 ClClockProfileFactory >> modelWithAppliedStereotype [
+
 	<gtExample>
 	| model class profile |
 	model := OPUmlExamples new emptyModel.
 	profile := self class profile.
-	model profileApplications
-		add:
-			(OPUMLProfileApplication new
-				uuid: model uuid , '-_profileApplication.0';
-				appliedProfile: profile).
+	model profileApplications add:
+		(OPUMLProfileApplication new appliedProfile: profile).
 	class := OPUMLClass new name: 'StopWatch'.
-	class
-		applyStereotype:
-			(profile packagedElements detect: [ :each | each name = 'Clock' ])
-				implementationClass new.
+	class applyStereotype:
+		(profile packagedElements detect: [ :each | each name = 'Clock' ])
+			implementationClass new.
 	model packagedElements add: class.
 	^ model
 ]

diff --git a/repository/OP-IssuesProfile/IPIssuesProfileFactory.class.st b/repository/OP-IssuesProfile/IPIssuesProfileFactory.class.st
@@ -75,16 +75,15 @@ IPIssuesProfileFactory >> createProfile [
 
 { #category : #actions }
 IPIssuesProfileFactory >> exampleModel [
+
 	<gtExample>
 	| model classA classB issueTag profile |
 	model := OPUmlExamples new emptyModel.
 	profile := self class profile.
-	model profileApplications
-		add:
-			(OPUMLProfileApplication new
-				uuid: model uuid;
-				appliedProfile: profile).
-	issueTag := profile ownedStereotype detect: [ :each | each name = 'IssueTag' ].
+	model profileApplications add:
+		(OPUMLProfileApplication new appliedProfile: profile).
+	issueTag := profile ownedStereotype detect: [ :each | 
+		            each name = 'IssueTag' ].
 	classA := self classA.
 	classA applyStereotype: issueTag implementationClass new.
 	classB := self classB.