diff --git a/repository/OpenPonk-BormModel/BormProcessNode.class.st b/repository/OpenPonk-BormModel/BormProcessNode.class.st index d9397d7..302193e 100644 --- a/repository/OpenPonk-BormModel/BormProcessNode.class.st +++ b/repository/OpenPonk-BormModel/BormProcessNode.class.st @@ -106,6 +106,12 @@ BormProcessNode >> outgoing [ ^ transitions select: [ :each | each source = self ] ] +{ #category : 'accessing' } +BormProcessNode >> participant [ + + ^ self owner +] + { #category : 'removing' } BormProcessNode >> removeAllTransitions [ transitions copy