Added few announcement-related methods

OpenPonk · Oct 19, 2024 · 5fc3149 · 5fc3149
1 parent 9655517
commit 5fc3149
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st b/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st
@@ -344,6 +344,12 @@ OPUMLMetaElement >> unapplyStereotype: aStereotype [
 	self perform: (attribute opposite name , ':') asSymbol with: nil
 ]
 
+{ #category : 'announcer' }
+OPUMLMetaElement >> unsubscribe: aReceiver [
+
+	^ self announcer unsubscribe: aReceiver
+]
+
 { #category : 'accessing' }
 OPUMLMetaElement >> uuid [
 	^ uuid ifNil: [ uuid := UUID new ]
@@ -353,3 +359,12 @@ OPUMLMetaElement >> uuid [
 OPUMLMetaElement >> uuid: aUUID [
 	uuid := aUUID
 ]
+
+{ #category : 'announcer' }
+OPUMLMetaElement >> when: anAnnouncementClass send: aSelector to: aReceiver [
+
+	^ self announcer
+		  when: anAnnouncementClass
+		  send: aSelector
+		  to: aReceiver
+]