From e379d33265a4f8380c945d4baa52d814b99c52c0 Mon Sep 17 00:00:00 2001 From: Jan Bliznicenko Date: Tue, 18 Jun 2024 12:19:50 +0200 Subject: [PATCH] Moved to Tonel 3 --- .../BaselineOfUMLMetamodel.class.st | 9 +- repository/BaselineOfUMLMetamodel/package.st | 2 +- .../OPUMLMetaElement.extension.st | 4 +- .../OPUMLModel.extension.st | 6 +- .../OPUMLPackage.extension.st | 6 +- .../OPUMLProfile.extension.st | 6 +- .../OPUMLRTInteractiveViewContext.class.st | 9 +- ...ectableElementsContextInteraction.class.st | 13 +- repository/OP-UML-GTExtensions/package.st | 2 +- .../OP-UML-Meta/OPUMLManyToManyLinks.class.st | 12 +- .../OP-UML-Meta/OPUMLTestAuthor.class.st | 12 +- repository/OP-UML-Meta/OPUMLTestBook.class.st | 16 +- .../OP-UML-Meta/OPUMLTestReview.class.st | 16 +- .../OP-UML-Meta/OPUMLTestScore.class.st | 12 +- .../OP-UML-Meta/OPUMLToManyLinks.class.st | 54 ++-- .../OP-UML-Meta/OPUMLToManyLinksTest.class.st | 20 +- .../OPUMLToManyToManyLinksTest.class.st | 20 +- .../OP-UML-Meta/OPUMLToOneLink.class.st | 14 +- .../OP-UML-Meta/OPUMLToOneLinkTest.class.st | 14 +- .../OPUMLToOneToOneLinkTest.class.st | 14 +- repository/OP-UML-Meta/package.st | 2 +- .../OPUMLAbstraction.class.st | 68 ++--- .../OPUMLAcceptCallAction.class.st | 124 ++++---- .../OPUMLAcceptEventAction.class.st | 120 ++++---- .../OP-UML-Metamodel/OPUMLAction.class.st | 116 ++++---- ...OPUMLActionExecutionSpecification.class.st | 64 ++-- .../OPUMLActionInputPin.class.st | 140 ++++----- .../OP-UML-Metamodel/OPUMLActivity.class.st | 276 ++++++++--------- .../OPUMLActivityEdge.class.st | 90 +++--- .../OPUMLActivityFinalNode.class.st | 80 ++--- .../OPUMLActivityGroup.class.st | 58 ++-- .../OPUMLActivityNode.class.st | 84 +++--- .../OPUMLActivityParameterNode.class.st | 108 +++---- .../OPUMLActivityPartition.class.st | 84 +++--- .../OP-UML-Metamodel/OPUMLActor.class.st | 168 +++++------ ...MLAddStructuralFeatureValueAction.class.st | 132 +++++---- .../OPUMLAddVariableValueAction.class.st | 124 ++++---- .../OPUMLAggregationKind.class.st | 20 +- .../OPUMLAnyReceiveEvent.class.st | 44 +-- .../OP-UML-Metamodel/OPUMLArtifact.class.st | 176 +++++------ .../OPUMLAssociation.class.st | 182 ++++++------ .../OPUMLAssociationClass.class.st | 236 +++++++-------- .../OP-UML-Metamodel/OPUMLBehavior.class.st | 252 ++++++++-------- ...UMLBehaviorExecutionSpecification.class.st | 64 ++-- .../OPUMLBehavioralFeature.class.st | 110 +++---- .../OPUMLBehavioredClassifier.class.st | 168 +++++------ .../OPUMLBroadcastSignalAction.class.st | 120 ++++---- .../OP-UML-Metamodel/OPUMLCallAction.class.st | 128 ++++---- .../OPUMLCallBehaviorAction.class.st | 132 +++++---- .../OPUMLCallConcurrencyKind.class.st | 20 +- .../OP-UML-Metamodel/OPUMLCallEvent.class.st | 48 +-- .../OPUMLCallOperationAction.class.st | 136 ++++----- .../OPUMLCentralBufferNode.class.st | 104 +++---- .../OPUMLChangeEvent.class.st | 48 +-- .../OP-UML-Metamodel/OPUMLClass.class.st | 216 +++++++------- .../OP-UML-Metamodel/OPUMLClassifier.class.st | 192 ++++++------ .../OPUMLClassifierTemplateParameter.class.st | 40 +-- .../OP-UML-Metamodel/OPUMLClause.class.st | 36 +-- .../OPUMLClearAssociationAction.class.st | 116 ++++---- ...OPUMLClearStructuralFeatureAction.class.st | 120 ++++---- .../OPUMLClearVariableAction.class.st | 112 +++---- .../OPUMLCollaboration.class.st | 188 ++++++------ .../OPUMLCollaborationUse.class.st | 44 +-- .../OPUMLCombinedFragment.class.st | 64 ++-- .../OP-UML-Metamodel/OPUMLComment.class.st | 20 +- .../OPUMLCommunicationPath.class.st | 180 +++++------ .../OP-UML-Metamodel/OPUMLComponent.class.st | 236 +++++++-------- .../OPUMLComponentRealization.class.st | 76 ++--- .../OPUMLConditionalNode.class.st | 194 ++++++------ .../OPUMLConnectableElement.class.st | 54 ++-- ...nnectableElementTemplateParameter.class.st | 32 +- .../OPUMLConnectionPointReference.class.st | 60 ++-- .../OP-UML-Metamodel/OPUMLConnector.class.st | 78 ++--- .../OPUMLConnectorEnd.class.st | 56 ++-- .../OPUMLConnectorKind.class.st | 16 +- .../OPUMLConsiderIgnoreFragment.class.st | 68 ++--- .../OP-UML-Metamodel/OPUMLConstraint.class.st | 56 ++-- .../OPUMLContinuation.class.st | 56 ++-- .../OPUMLControlFlow.class.st | 88 +++--- .../OPUMLControlNode.class.st | 80 ++--- .../OPUMLCreateLinkAction.class.st | 116 ++++---- .../OPUMLCreateLinkObjectAction.class.st | 120 ++++---- .../OPUMLCreateObjectAction.class.st | 116 ++++---- .../OPUMLDataStoreNode.class.st | 104 +++---- .../OP-UML-Metamodel/OPUMLDataType.class.st | 164 +++++----- .../OPUMLDecisionNode.class.st | 88 +++--- .../OP-UML-Metamodel/OPUMLDependency.class.st | 64 ++-- .../OPUMLDeployedArtifact.class.st | 36 +-- .../OP-UML-Metamodel/OPUMLDeployment.class.st | 76 ++--- .../OPUMLDeploymentSpecification.class.st | 188 ++++++------ .../OPUMLDeploymentTarget.class.st | 46 +-- .../OPUMLDestroyLinkAction.class.st | 116 ++++---- .../OPUMLDestroyObjectAction.class.st | 120 ++++---- ...estructionOccurrenceSpecification.class.st | 68 ++--- .../OP-UML-Metamodel/OPUMLDevice.class.st | 224 +++++++------- .../OPUMLDirectedRelationship.class.st | 24 +- .../OP-UML-Metamodel/OPUMLDuration.class.st | 70 ++--- .../OPUMLDurationConstraint.class.st | 60 ++-- .../OPUMLDurationInterval.class.st | 70 ++--- .../OPUMLDurationObservation.class.st | 52 ++-- .../OP-UML-Metamodel/OPUMLElement.class.st | 28 +- .../OPUMLElementImport.class.st | 42 +-- .../OPUMLEncapsulatedClassifier.class.st | 178 +++++------ .../OPUMLEnumeration.class.st | 168 +++++------ .../OPUMLEnumerationLiteral.class.st | 74 ++--- .../OP-UML-Metamodel/OPUMLEvent.class.st | 44 +-- .../OPUMLExceptionHandler.class.st | 28 +- .../OPUMLExecutableNode.class.st | 84 +++--- .../OPUMLExecutionEnvironment.class.st | 224 +++++++------- ...LExecutionOccurrenceSpecification.class.st | 68 ++--- .../OPUMLExecutionSpecification.class.st | 60 ++-- .../OPUMLExpansionKind.class.st | 20 +- .../OPUMLExpansionNode.class.st | 112 +++---- .../OPUMLExpansionRegion.class.st | 188 ++++++------ .../OP-UML-Metamodel/OPUMLExpression.class.st | 70 ++--- .../OP-UML-Metamodel/OPUMLExtend.class.st | 64 ++-- .../OP-UML-Metamodel/OPUMLExtension.class.st | 200 ++++++------- .../OPUMLExtensionEnd.class.st | 182 ++++++------ .../OPUMLExtensionPoint.class.st | 52 ++-- .../OP-UML-Metamodel/OPUMLFeature.class.st | 56 ++-- .../OP-UML-Metamodel/OPUMLFinalNode.class.st | 80 ++--- .../OP-UML-Metamodel/OPUMLFinalState.class.st | 144 ++++----- .../OPUMLFlowFinalNode.class.st | 80 ++--- .../OP-UML-Metamodel/OPUMLForkNode.class.st | 80 ++--- .../OPUMLFunctionBehavior.class.st | 254 ++++++++-------- .../OP-UML-Metamodel/OPUMLGate.class.st | 56 ++-- .../OPUMLGeneralOrdering.class.st | 44 +-- .../OPUMLGeneralization.class.st | 40 +-- .../OPUMLGeneralizationSet.class.st | 60 ++-- .../OP-UML-Metamodel/OPUMLImage.class.st | 24 +- .../OP-UML-Metamodel/OPUMLInclude.class.st | 56 ++-- .../OPUMLInformationFlow.class.st | 84 +++--- .../OPUMLInformationItem.class.st | 160 +++++----- .../OPUMLInitialNode.class.st | 80 ++--- .../OP-UML-Metamodel/OPUMLInputPin.class.st | 136 ++++----- .../OPUMLInstanceSpecification.class.st | 64 ++-- .../OPUMLInstanceValue.class.st | 66 +++-- .../OPUMLInteraction.class.st | 280 +++++++++--------- .../OPUMLInteractionConstraint.class.st | 64 ++-- .../OPUMLInteractionFragment.class.st | 52 ++-- .../OPUMLInteractionOperand.class.st | 84 +++--- .../OPUMLInteractionOperatorKind.class.st | 56 ++-- .../OPUMLInteractionUse.class.st | 72 ++--- .../OP-UML-Metamodel/OPUMLInterface.class.st | 180 +++++------ .../OPUMLInterfaceRealization.class.st | 76 ++--- .../OPUMLInterruptibleActivityRegion.class.st | 64 ++-- .../OP-UML-Metamodel/OPUMLInterval.class.st | 70 ++--- .../OPUMLIntervalConstraint.class.st | 56 ++-- .../OPUMLInvocationAction.class.st | 116 ++++---- .../OP-UML-Metamodel/OPUMLJoinNode.class.st | 88 +++--- .../OP-UML-Metamodel/OPUMLLifeline.class.st | 56 ++-- .../OP-UML-Metamodel/OPUMLLinkAction.class.st | 118 ++++---- .../OPUMLLinkEndCreationData.class.st | 34 ++- .../OPUMLLinkEndData.class.st | 26 +- .../OPUMLLinkEndDestructionData.class.st | 34 ++- .../OPUMLLiteralBoolean.class.st | 70 ++--- .../OPUMLLiteralInteger.class.st | 70 ++--- .../OPUMLLiteralNull.class.st | 66 +++-- .../OPUMLLiteralReal.class.st | 70 ++--- .../OPUMLLiteralSpecification.class.st | 62 ++-- .../OPUMLLiteralString.class.st | 70 ++--- .../OPUMLLiteralUnlimitedNatural.class.st | 70 ++--- .../OP-UML-Metamodel/OPUMLLoopNode.class.st | 216 +++++++------- .../OPUMLManifestation.class.st | 72 ++--- .../OP-UML-Metamodel/OPUMLMergeNode.class.st | 80 ++--- .../OP-UML-Metamodel/OPUMLMessage.class.st | 72 ++--- .../OP-UML-Metamodel/OPUMLMessageEnd.class.st | 48 +-- .../OPUMLMessageEvent.class.st | 44 +-- .../OPUMLMessageKind.class.st | 24 +- ...UMLMessageOccurrenceSpecification.class.st | 68 ++--- .../OPUMLMessageSort.class.st | 32 +- .../OPUMLMetaElement.class.st | 86 +++--- .../OP-UML-Metamodel/OPUMLModel.class.st | 12 +- .../OPUMLMultiplicityElement.class.st | 58 ++-- .../OPUMLNamedElement.class.st | 48 +-- .../OP-UML-Metamodel/OPUMLNamespace.class.st | 70 ++--- .../OP-UML-Metamodel/OPUMLNode.class.st | 224 +++++++------- .../OP-UML-Metamodel/OPUMLObjectFlow.class.st | 104 +++---- .../OP-UML-Metamodel/OPUMLObjectNode.class.st | 104 +++---- .../OPUMLObjectNodeOrderingKind.class.st | 24 +- .../OPUMLObservation.class.st | 44 +-- .../OPUMLOccurrenceSpecification.class.st | 64 ++-- .../OPUMLOpaqueAction.class.st | 124 ++++---- .../OPUMLOpaqueBehavior.class.st | 252 ++++++++-------- .../OPUMLOpaqueExpression.class.st | 88 +++--- .../OP-UML-Metamodel/OPUMLOperation.class.st | 186 ++++++------ .../OPUMLOperationTemplateParameter.class.st | 32 +- .../OP-UML-Metamodel/OPUMLOutputPin.class.st | 136 ++++----- .../OP-UML-Metamodel/OPUMLPackage.class.st | 132 +++++---- .../OPUMLPackageImport.class.st | 36 +-- .../OPUMLPackageMerge.class.st | 32 +- .../OPUMLPackageableElement.class.st | 44 +-- .../OP-UML-Metamodel/OPUMLParameter.class.st | 116 ++++---- .../OPUMLParameterDirectionKind.class.st | 24 +- .../OPUMLParameterEffectKind.class.st | 24 +- .../OPUMLParameterSet.class.st | 44 +-- .../OPUMLParameterableElement.class.st | 24 +- .../OPUMLPartDecomposition.class.st | 72 ++--- repository/OP-UML-Metamodel/OPUMLPin.class.st | 136 ++++----- .../OP-UML-Metamodel/OPUMLPort.class.st | 216 +++++++------- .../OPUMLPrimitiveType.class.st | 164 +++++----- .../OP-UML-Metamodel/OPUMLProfile.class.st | 124 ++++---- .../OPUMLProfileApplication.class.st | 36 +-- .../OP-UML-Metamodel/OPUMLProperty.class.st | 194 ++++++------ .../OPUMLProtocolConformance.class.st | 32 +- .../OPUMLProtocolStateMachine.class.st | 264 +++++++++-------- .../OPUMLProtocolTransition.class.st | 122 ++++---- .../OPUMLPseudostate.class.st | 60 ++-- .../OPUMLPseudostateKind.class.st | 48 +-- .../OPUMLQualifierValue.class.st | 20 +- .../OPUMLRaiseExceptionAction.class.st | 112 +++---- .../OPUMLReadExtentAction.class.st | 116 ++++---- ...OPUMLReadIsClassifiedObjectAction.class.st | 124 ++++---- .../OPUMLReadLinkAction.class.st | 122 ++++---- .../OPUMLReadLinkObjectEndAction.class.st | 120 ++++---- ...LReadLinkObjectEndQualifierAction.class.st | 120 ++++---- .../OPUMLReadSelfAction.class.st | 112 +++---- .../OPUMLReadStructuralFeatureAction.class.st | 120 ++++---- .../OPUMLReadVariableAction.class.st | 116 ++++---- .../OPUMLRealization.class.st | 68 ++--- .../OP-UML-Metamodel/OPUMLReception.class.st | 108 +++---- .../OPUMLReclassifyObjectAction.class.st | 124 ++++---- .../OPUMLRedefinableElement.class.st | 52 ++-- ...OPUMLRedefinableTemplateSignature.class.st | 76 ++--- .../OPUMLReduceAction.class.st | 124 ++++---- .../OP-UML-Metamodel/OPUMLRegion.class.st | 106 +++---- .../OPUMLRelationship.class.st | 16 +- ...emoveStructuralFeatureValueAction.class.st | 132 +++++---- .../OPUMLRemoveVariableValueAction.class.st | 124 ++++---- .../OPUMLReplyAction.class.st | 120 ++++---- .../OPUMLSendObjectAction.class.st | 124 ++++---- .../OPUMLSendSignalAction.class.st | 124 ++++---- .../OPUMLSequenceNode.class.st | 180 +++++------ .../OP-UML-Metamodel/OPUMLSignal.class.st | 160 +++++----- .../OPUMLSignalEvent.class.st | 48 +-- .../OP-UML-Metamodel/OPUMLSlot.class.st | 24 +- ...PUMLStartClassifierBehaviorAction.class.st | 112 +++---- .../OPUMLStartObjectBehaviorAction.class.st | 134 ++++----- .../OP-UML-Metamodel/OPUMLState.class.st | 160 +++++----- .../OPUMLStateInvariant.class.st | 60 ++-- .../OPUMLStateMachine.class.st | 270 ++++++++--------- .../OP-UML-Metamodel/OPUMLStereotype.class.st | 224 +++++++------- .../OPUMLStringExpression.class.st | 88 +++--- .../OPUMLStructuralFeature.class.st | 94 +++--- .../OPUMLStructuralFeatureAction.class.st | 116 ++++---- .../OPUMLStructuredActivityNode.class.st | 186 ++++++------ .../OPUMLStructuredClassifier.class.st | 176 +++++------ .../OPUMLSubstitution.class.st | 76 ++--- .../OPUMLTemplateBinding.class.st | 36 +-- .../OPUMLTemplateParameter.class.st | 32 +- ...PUMLTemplateParameterSubstitution.class.st | 28 +- .../OPUMLTemplateSignature.class.st | 24 +- .../OPUMLTemplateableElement.class.st | 24 +- .../OPUMLTestIdentityAction.class.st | 120 ++++---- .../OPUMLTimeConstraint.class.st | 60 ++-- .../OP-UML-Metamodel/OPUMLTimeEvent.class.st | 52 ++-- .../OPUMLTimeExpression.class.st | 70 ++--- .../OPUMLTimeInterval.class.st | 70 ++--- .../OPUMLTimeObservation.class.st | 52 ++-- .../OP-UML-Metamodel/OPUMLTransition.class.st | 114 +++---- .../OPUMLTransitionKind.class.st | 20 +- .../OP-UML-Metamodel/OPUMLTrigger.class.st | 44 +-- .../OP-UML-Metamodel/OPUMLType.class.st | 50 ++-- .../OPUMLTypedElement.class.st | 40 +-- .../OPUMLUnmarshallAction.class.st | 120 ++++---- .../OP-UML-Metamodel/OPUMLUsage.class.st | 64 ++-- .../OP-UML-Metamodel/OPUMLUseCase.class.st | 186 ++++++------ .../OP-UML-Metamodel/OPUMLValuePin.class.st | 140 ++++----- .../OPUMLValueSpecification.class.st | 78 ++--- .../OPUMLValueSpecificationAction.class.st | 116 ++++---- .../OP-UML-Metamodel/OPUMLVariable.class.st | 92 +++--- .../OPUMLVariableAction.class.st | 112 +++---- .../OP-UML-Metamodel/OPUMLVertex.class.st | 58 ++-- .../OPUMLVisibilityKind.class.st | 22 +- .../OPUMLWriteLinkAction.class.st | 116 ++++---- ...OPUMLWriteStructuralFeatureAction.class.st | 124 ++++---- .../OPUMLWriteVariableAction.class.st | 116 ++++---- repository/OP-UML-Metamodel/package.st | 2 +- 278 files changed, 12702 insertions(+), 12165 deletions(-) diff --git a/repository/BaselineOfUMLMetamodel/BaselineOfUMLMetamodel.class.st b/repository/BaselineOfUMLMetamodel/BaselineOfUMLMetamodel.class.st index 25265d5..cca0c6c 100644 --- a/repository/BaselineOfUMLMetamodel/BaselineOfUMLMetamodel.class.st +++ b/repository/BaselineOfUMLMetamodel/BaselineOfUMLMetamodel.class.st @@ -2,12 +2,13 @@ Baseline of https://github.com/OpenPonk/uml-metamodel " Class { - #name : #BaselineOfUMLMetamodel, - #superclass : #BaselineOf, - #category : 'BaselineOfUMLMetamodel' + #name : 'BaselineOfUMLMetamodel', + #superclass : 'BaselineOf', + #category : 'BaselineOfUMLMetamodel', + #package : 'BaselineOfUMLMetamodel' } -{ #category : #baselines } +{ #category : 'baselines' } BaselineOfUMLMetamodel >> baseline: spec [ spec diff --git a/repository/BaselineOfUMLMetamodel/package.st b/repository/BaselineOfUMLMetamodel/package.st index 3d49e7b..ed88122 100644 --- a/repository/BaselineOfUMLMetamodel/package.st +++ b/repository/BaselineOfUMLMetamodel/package.st @@ -1 +1 @@ -Package { #name : #BaselineOfUMLMetamodel } +Package { #name : 'BaselineOfUMLMetamodel' } diff --git a/repository/OP-UML-GTExtensions/OPUMLMetaElement.extension.st b/repository/OP-UML-GTExtensions/OPUMLMetaElement.extension.st index 7ca65c9..b7956ed 100644 --- a/repository/OP-UML-GTExtensions/OPUMLMetaElement.extension.st +++ b/repository/OP-UML-GTExtensions/OPUMLMetaElement.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #OPUMLMetaElement } +Extension { #name : 'OPUMLMetaElement' } -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLMetaElement >> gtInspectorSharedGeneralizationsViewIn: aComposite [ aComposite roassal2 diff --git a/repository/OP-UML-GTExtensions/OPUMLModel.extension.st b/repository/OP-UML-GTExtensions/OPUMLModel.extension.st index 323929a..c053dc1 100644 --- a/repository/OP-UML-GTExtensions/OPUMLModel.extension.st +++ b/repository/OP-UML-GTExtensions/OPUMLModel.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #OPUMLModel } +Extension { #name : 'OPUMLModel' } -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLModel >> gtInspectorPackageViewIn: aComposite [ ^ (sharedGeneralizations at: #Package) gtInspectorPackageViewIn: aComposite ] -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLModel >> gtInspectorPackagedElementsViewIn: aComposite [ ^ (sharedGeneralizations at: #Package) gtInspectorPackagedElementsViewIn: aComposite diff --git a/repository/OP-UML-GTExtensions/OPUMLPackage.extension.st b/repository/OP-UML-GTExtensions/OPUMLPackage.extension.st index 66c8ad5..506b475 100644 --- a/repository/OP-UML-GTExtensions/OPUMLPackage.extension.st +++ b/repository/OP-UML-GTExtensions/OPUMLPackage.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #OPUMLPackage } +Extension { #name : 'OPUMLPackage' } -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLPackage >> gtInspectorPackageViewIn: aComposite [ ^ aComposite roassal2 @@ -68,7 +68,7 @@ OPUMLPackage >> gtInspectorPackageViewIn: aComposite [ v ] ] -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLPackage >> gtInspectorPackagedElementsViewIn: aComposite [ aComposite roassal2 diff --git a/repository/OP-UML-GTExtensions/OPUMLProfile.extension.st b/repository/OP-UML-GTExtensions/OPUMLProfile.extension.st index 0408eb4..b188e5a 100644 --- a/repository/OP-UML-GTExtensions/OPUMLProfile.extension.st +++ b/repository/OP-UML-GTExtensions/OPUMLProfile.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #OPUMLProfile } +Extension { #name : 'OPUMLProfile' } -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLProfile >> gtInspectorPackageViewIn: aComposite [ ^ (sharedGeneralizations at: #Package) gtInspectorPackageViewIn: aComposite ] -{ #category : #'*OP-UML-GTExtensions' } +{ #category : '*OP-UML-GTExtensions' } OPUMLProfile >> gtInspectorPackagedElementsViewIn: aComposite [ ^ (sharedGeneralizations at: #Package) gtInspectorPackagedElementsViewIn: aComposite diff --git a/repository/OP-UML-GTExtensions/OPUMLRTInteractiveViewContext.class.st b/repository/OP-UML-GTExtensions/OPUMLRTInteractiveViewContext.class.st index 36bdf6a..8f0b1e3 100644 --- a/repository/OP-UML-GTExtensions/OPUMLRTInteractiveViewContext.class.st +++ b/repository/OP-UML-GTExtensions/OPUMLRTInteractiveViewContext.class.st @@ -1,10 +1,11 @@ Class { - #name : #OPUMLRTInteractiveViewContext, - #superclass : #RTAbstractViewContext, - #category : 'OP-UML-GTExtensions' + #name : 'OPUMLRTInteractiveViewContext', + #superclass : 'RTAbstractViewContext', + #category : 'OP-UML-GTExtensions', + #package : 'OP-UML-GTExtensions' } -{ #category : #hooks } +{ #category : 'hooks' } OPUMLRTInteractiveViewContext >> interactionsToBeRegistered [ ^ Array with: OPUMLRTSelectableElementsContextInteraction with: RTResizeableViewContextInteraction ] diff --git a/repository/OP-UML-GTExtensions/OPUMLRTSelectableElementsContextInteraction.class.st b/repository/OP-UML-GTExtensions/OPUMLRTSelectableElementsContextInteraction.class.st index 3a56913..660fb94 100644 --- a/repository/OP-UML-GTExtensions/OPUMLRTSelectableElementsContextInteraction.class.st +++ b/repository/OP-UML-GTExtensions/OPUMLRTSelectableElementsContextInteraction.class.st @@ -1,10 +1,11 @@ Class { - #name : #OPUMLRTSelectableElementsContextInteraction, - #superclass : #RTAbstractContextInteraction, - #category : 'OP-UML-GTExtensions' + #name : 'OPUMLRTSelectableElementsContextInteraction', + #superclass : 'RTAbstractContextInteraction', + #category : 'OP-UML-GTExtensions', + #package : 'OP-UML-GTExtensions' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRTSelectableElementsContextInteraction >> initializeElement: aView [ self assert: [ self presentation notNil ] @@ -12,13 +13,13 @@ OPUMLRTSelectableElementsContextInteraction >> initializeElement: aView [ self initializeSetOfElements: aView elements ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRTSelectableElementsContextInteraction >> initializeSetOfElements: elements [ elements do: [ :each | self initializeSingleElement: each ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRTSelectableElementsContextInteraction >> initializeSingleElement: each [ ^ each when: TRMouseLeftClick diff --git a/repository/OP-UML-GTExtensions/package.st b/repository/OP-UML-GTExtensions/package.st index 1e3c391..1a9abe1 100644 --- a/repository/OP-UML-GTExtensions/package.st +++ b/repository/OP-UML-GTExtensions/package.st @@ -1 +1 @@ -Package { #name : #'OP-UML-GTExtensions' } +Package { #name : 'OP-UML-GTExtensions' } diff --git a/repository/OP-UML-Meta/OPUMLManyToManyLinks.class.st b/repository/OP-UML-Meta/OPUMLManyToManyLinks.class.st index 3258bcb..e4cbe4e 100644 --- a/repository/OP-UML-Meta/OPUMLManyToManyLinks.class.st +++ b/repository/OP-UML-Meta/OPUMLManyToManyLinks.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPUMLManyToManyLinks, - #superclass : #OPUMLToManyLinks, - #category : 'OP-UML-Meta-Models' + #name : 'OPUMLManyToManyLinks', + #superclass : 'OPUMLToManyLinks', + #category : 'OP-UML-Meta-Models', + #package : 'OP-UML-Meta', + #tag : 'Models' } -{ #category : #adding } +{ #category : 'adding' } OPUMLManyToManyLinks >> addOppositeTo: anObject [ (anObject perform: oppositeSelector) add: owner ] -{ #category : #removing } +{ #category : 'removing' } OPUMLManyToManyLinks >> removeOppositeFrom: anObject [ | opposite | opposite := anObject perform: oppositeSelector. diff --git a/repository/OP-UML-Meta/OPUMLTestAuthor.class.st b/repository/OP-UML-Meta/OPUMLTestAuthor.class.st index e4bc2a5..2f6ed7c 100644 --- a/repository/OP-UML-Meta/OPUMLTestAuthor.class.st +++ b/repository/OP-UML-Meta/OPUMLTestAuthor.class.st @@ -1,18 +1,20 @@ Class { - #name : #OPUMLTestAuthor, - #superclass : #Object, + #name : 'OPUMLTestAuthor', + #superclass : 'Object', #instVars : [ 'books' ], - #category : 'OP-UML-Meta-Tests' + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestAuthor >> books [ ^ books ifNil: [ books := OPUMLManyToManyLinks on: self opposite: #authors ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestAuthor >> books: aCollection [ self books removeAll; diff --git a/repository/OP-UML-Meta/OPUMLTestBook.class.st b/repository/OP-UML-Meta/OPUMLTestBook.class.st index 53a4fa1..9804b5e 100644 --- a/repository/OP-UML-Meta/OPUMLTestBook.class.st +++ b/repository/OP-UML-Meta/OPUMLTestBook.class.st @@ -1,31 +1,33 @@ Class { - #name : #OPUMLTestBook, - #superclass : #Object, + #name : 'OPUMLTestBook', + #superclass : 'Object', #instVars : [ 'authors', 'reviews' ], - #category : 'OP-UML-Meta-Tests' + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestBook >> authors [ ^ authors ifNil: [ authors := OPUMLManyToManyLinks on: self opposite: #books ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestBook >> authors: aCollection [ self authors removeAll; addAll: aCollection ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestBook >> reviews [ ^ reviews ifNil: [ reviews := OPUMLToManyLinks on: self opposite: #book: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestBook >> reviews: aCollection [ self reviews removeAll; diff --git a/repository/OP-UML-Meta/OPUMLTestReview.class.st b/repository/OP-UML-Meta/OPUMLTestReview.class.st index 0112839..7788cad 100644 --- a/repository/OP-UML-Meta/OPUMLTestReview.class.st +++ b/repository/OP-UML-Meta/OPUMLTestReview.class.st @@ -1,19 +1,21 @@ Class { - #name : #OPUMLTestReview, - #superclass : #Object, + #name : 'OPUMLTestReview', + #superclass : 'Object', #instVars : [ 'book', 'score' ], - #category : 'OP-UML-Meta-Tests' + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestReview >> book [ ^ book ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestReview >> book: aBook [ book := OPUMLToOneLink on: self @@ -22,12 +24,12 @@ OPUMLTestReview >> book: aBook [ to: aBook ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestReview >> score [ ^ score ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestReview >> score: aNewScore [ | oldScore | oldScore := score. diff --git a/repository/OP-UML-Meta/OPUMLTestScore.class.st b/repository/OP-UML-Meta/OPUMLTestScore.class.st index a447224..1987ddb 100644 --- a/repository/OP-UML-Meta/OPUMLTestScore.class.st +++ b/repository/OP-UML-Meta/OPUMLTestScore.class.st @@ -1,18 +1,20 @@ Class { - #name : #OPUMLTestScore, - #superclass : #Object, + #name : 'OPUMLTestScore', + #superclass : 'Object', #instVars : [ 'review' ], - #category : 'OP-UML-Meta-Tests' + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestScore >> review [ ^ review ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestScore >> review: aNewReview [ | anOldReview | anOldReview := review. diff --git a/repository/OP-UML-Meta/OPUMLToManyLinks.class.st b/repository/OP-UML-Meta/OPUMLToManyLinks.class.st index 0b722b3..223b091 100644 --- a/repository/OP-UML-Meta/OPUMLToManyLinks.class.st +++ b/repository/OP-UML-Meta/OPUMLToManyLinks.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPUMLToManyLinks, - #superclass : #Collection, + #name : 'OPUMLToManyLinks', + #superclass : 'Collection', #instVars : [ 'owner', 'collection', 'oppositeSelector' ], - #category : #'OP-UML-Meta-Models' + #category : 'OP-UML-Meta-Models', + #package : 'OP-UML-Meta', + #tag : 'Models' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLToManyLinks class >> fromSton: stonReader [ ^ self new @@ -17,12 +19,12 @@ OPUMLToManyLinks class >> fromSton: stonReader [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLToManyLinks class >> on: anObject opposite: aSelector [ ^ self new setOwner: anObject opposite: aSelector ] -{ #category : #adding } +{ #category : 'adding' } OPUMLToManyLinks >> add: aNewObject [ (self isUnique and: [ self includes: aNewObject ]) ifTrue: [ ^ aNewObject ]. @@ -31,59 +33,59 @@ OPUMLToManyLinks >> add: aNewObject [ ^ aNewObject ] -{ #category : #adding } +{ #category : 'adding' } OPUMLToManyLinks >> addOppositeTo: anObject [ anObject perform: oppositeSelector with: owner ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLToManyLinks >> at: anInteger [ ^ collection at: anInteger ] -{ #category : #copying } +{ #category : 'copying' } OPUMLToManyLinks >> copyEmpty [ ^ collection copyEmpty ] -{ #category : #enumerating } +{ #category : 'enumerating' } OPUMLToManyLinks >> do: aBlock [ collection do: aBlock ] -{ #category : #copying } +{ #category : 'copying' } OPUMLToManyLinks >> first [ ^ collection first ] -{ #category : #testing } +{ #category : 'testing' } OPUMLToManyLinks >> includes: anObject [ ^ collection includes: anObject ] -{ #category : #adding } +{ #category : 'adding' } OPUMLToManyLinks >> initialize [ super initialize. collection := OrderedCollection new ] -{ #category : #testing } +{ #category : 'testing' } OPUMLToManyLinks >> isUnique [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLToManyLinks >> oppositeSelector [ ^ oppositeSelector ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLToManyLinks >> owner [ ^ owner ] -{ #category : #removing } +{ #category : 'removing' } OPUMLToManyLinks >> remove: oldObject ifAbsent: anExceptionBlock [ oldObject ifNil: [ "there is some oddity when instantiating metamodel" ^ self ]. (collection includes: oldObject) @@ -92,51 +94,51 @@ OPUMLToManyLinks >> remove: oldObject ifAbsent: anExceptionBlock [ collection remove: oldObject ifAbsent: [ ] ] -{ #category : #removing } +{ #category : 'removing' } OPUMLToManyLinks >> removeAll [ (OrderedCollection withAll: collection) do: [ :each | self remove: each ] ] -{ #category : #adding } +{ #category : 'adding' } OPUMLToManyLinks >> removeOppositeFrom: anObject [ anObject perform: oppositeSelector with: nil ] -{ #category : #copying } +{ #category : 'copying' } OPUMLToManyLinks >> second [ ^ collection second ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLToManyLinks >> setOwner: anObject opposite: aSelector [ owner := anObject. oppositeSelector := aSelector ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLToManyLinks >> size [ ^ collection size ] -{ #category : #private } +{ #category : 'private' } OPUMLToManyLinks >> species [ ^ OrderedCollection ] -{ #category : #'ston persistence' } +{ #category : 'ston persistence' } OPUMLToManyLinks >> stonOn: stonWriter [ stonWriter writeObject: self ] -{ #category : #adding } +{ #category : 'adding' } OPUMLToManyLinks >> uncheckedAdd: anObject [ ^ collection addIfNotPresent: anObject ] -{ #category : #adding } +{ #category : 'adding' } OPUMLToManyLinks >> uncheckedRemove: anObject [ collection remove: anObject ] diff --git a/repository/OP-UML-Meta/OPUMLToManyLinksTest.class.st b/repository/OP-UML-Meta/OPUMLToManyLinksTest.class.st index 933b96d..92f36db 100644 --- a/repository/OP-UML-Meta/OPUMLToManyLinksTest.class.st +++ b/repository/OP-UML-Meta/OPUMLToManyLinksTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPUMLToManyLinksTest, - #superclass : #TestCase, - #category : #'OP-UML-Meta-Tests' + #name : 'OPUMLToManyLinksTest', + #superclass : 'TestCase', + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyLinksTest >> testAdd [ | book review | book := OPUMLTestBook new. @@ -14,7 +16,7 @@ OPUMLToManyLinksTest >> testAdd [ self assert: review book equals: book ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyLinksTest >> testAddMove [ | book book2 review | book := OPUMLTestBook new. @@ -27,7 +29,7 @@ OPUMLToManyLinksTest >> testAddMove [ self assert: review book equals: book2 ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyLinksTest >> testCreate [ | book | book := OPUMLTestBook new. @@ -35,7 +37,7 @@ OPUMLToManyLinksTest >> testCreate [ self assert: book reviews oppositeSelector equals: #book: ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyLinksTest >> testRemove [ | book review | book := OPUMLTestBook new. @@ -47,7 +49,7 @@ OPUMLToManyLinksTest >> testRemove [ self assert: review book equals: nil ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyLinksTest >> testRemoveAll [ | book review1 review2 | @@ -66,7 +68,7 @@ OPUMLToManyLinksTest >> testRemoveAll [ self assert: review2 book equals: nil ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyLinksTest >> testReset [ | book review review2 | book := OPUMLTestBook new. diff --git a/repository/OP-UML-Meta/OPUMLToManyToManyLinksTest.class.st b/repository/OP-UML-Meta/OPUMLToManyToManyLinksTest.class.st index a717095..f0c5822 100644 --- a/repository/OP-UML-Meta/OPUMLToManyToManyLinksTest.class.st +++ b/repository/OP-UML-Meta/OPUMLToManyToManyLinksTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPUMLToManyToManyLinksTest, - #superclass : #TestCase, - #category : 'OP-UML-Meta-Tests' + #name : 'OPUMLToManyToManyLinksTest', + #superclass : 'TestCase', + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyToManyLinksTest >> testAdd [ | author book | author := OPUMLTestAuthor new. @@ -14,7 +16,7 @@ OPUMLToManyToManyLinksTest >> testAdd [ self assert: book authors asArray equals: {author} ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyToManyLinksTest >> testAddToMore [ | author book book2 | author := OPUMLTestAuthor new. @@ -28,7 +30,7 @@ OPUMLToManyToManyLinksTest >> testAddToMore [ self assert: book2 authors asArray equals: {author} ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyToManyLinksTest >> testRemove [ | author book book2 | author := OPUMLTestAuthor new. @@ -42,7 +44,7 @@ OPUMLToManyToManyLinksTest >> testRemove [ self assert: book authors asArray equals: #() ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyToManyLinksTest >> testSet [ | author book book2 | author := OPUMLTestAuthor new. @@ -57,7 +59,7 @@ OPUMLToManyToManyLinksTest >> testSet [ self assert: book2 authors asArray equals: {author} ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyToManyLinksTest >> testSet2 [ | author book author2 | author := OPUMLTestAuthor new. @@ -72,7 +74,7 @@ OPUMLToManyToManyLinksTest >> testSet2 [ self assert: book authors asArray equals: {author2} ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToManyToManyLinksTest >> testSetMultiple [ | author book book2 | author := OPUMLTestAuthor new. diff --git a/repository/OP-UML-Meta/OPUMLToOneLink.class.st b/repository/OP-UML-Meta/OPUMLToOneLink.class.st index ad6d839..753d5d8 100644 --- a/repository/OP-UML-Meta/OPUMLToOneLink.class.st +++ b/repository/OP-UML-Meta/OPUMLToOneLink.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPUMLToOneLink, - #superclass : #Collection, - #category : 'OP-UML-Meta-Models' + #name : 'OPUMLToOneLink', + #superclass : 'Collection', + #category : 'OP-UML-Meta-Models', + #package : 'OP-UML-Meta', + #tag : 'Models' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLToOneLink class >> on: anOwner thisSelector: aThisSelector otherSelector: anOtherSelector from: anOldObject to: aNewObject [ | thisSetter otherSetter | anOldObject = aNewObject @@ -21,7 +23,7 @@ OPUMLToOneLink class >> on: anOwner thisSelector: aThisSelector otherSelector: a ^ aNewObject ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLToOneLink class >> on: anOwner thisSelector: aThisSelector otherSelector: anOtherSelector updateFrom: anOldObject to: aNewObject [ | thisSetter otherSetter | anOldObject = aNewObject @@ -38,7 +40,7 @@ OPUMLToOneLink class >> on: anOwner thisSelector: aThisSelector otherSelector: a ^ aNewObject ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLToOneLink class >> on: anOwner update: anOppositeSelector from: anOldObject to: aNewObject [ anOldObject = aNewObject ifTrue: [ ^ aNewObject ]. diff --git a/repository/OP-UML-Meta/OPUMLToOneLinkTest.class.st b/repository/OP-UML-Meta/OPUMLToOneLinkTest.class.st index 682283d..4cfcc90 100644 --- a/repository/OP-UML-Meta/OPUMLToOneLinkTest.class.st +++ b/repository/OP-UML-Meta/OPUMLToOneLinkTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPUMLToOneLinkTest, - #superclass : #TestCase, - #category : 'OP-UML-Meta-Tests' + #name : 'OPUMLToOneLinkTest', + #superclass : 'TestCase', + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPUMLToOneLinkTest >> testChange [ | book book2 review | book := OPUMLTestBook new. @@ -19,7 +21,7 @@ OPUMLToOneLinkTest >> testChange [ self assert: review book equals: book2 ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToOneLinkTest >> testRemove [ | book review | book := OPUMLTestBook new. @@ -32,7 +34,7 @@ OPUMLToOneLinkTest >> testRemove [ self assert: review book equals: nil ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToOneLinkTest >> testSet [ | book review | book := OPUMLTestBook new. diff --git a/repository/OP-UML-Meta/OPUMLToOneToOneLinkTest.class.st b/repository/OP-UML-Meta/OPUMLToOneToOneLinkTest.class.st index cc05231..84ece31 100644 --- a/repository/OP-UML-Meta/OPUMLToOneToOneLinkTest.class.st +++ b/repository/OP-UML-Meta/OPUMLToOneToOneLinkTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPUMLToOneToOneLinkTest, - #superclass : #TestCase, - #category : 'OP-UML-Meta-Tests' + #name : 'OPUMLToOneToOneLinkTest', + #superclass : 'TestCase', + #category : 'OP-UML-Meta-Tests', + #package : 'OP-UML-Meta', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPUMLToOneToOneLinkTest >> testChange [ | review1 score1 review2 score2 | review1 := OPUMLTestReview new. @@ -24,7 +26,7 @@ OPUMLToOneToOneLinkTest >> testChange [ self assert: review1 score equals: nil ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToOneToOneLinkTest >> testSet [ | review score | review := OPUMLTestReview new. @@ -34,7 +36,7 @@ OPUMLToOneToOneLinkTest >> testSet [ self assert: score review equals: review ] -{ #category : #tests } +{ #category : 'tests' } OPUMLToOneToOneLinkTest >> testSetOther [ | review score | review := OPUMLTestReview new. diff --git a/repository/OP-UML-Meta/package.st b/repository/OP-UML-Meta/package.st index 95b6cba..804c290 100644 --- a/repository/OP-UML-Meta/package.st +++ b/repository/OP-UML-Meta/package.st @@ -1 +1 @@ -Package { #name : #'OP-UML-Meta' } +Package { #name : 'OP-UML-Meta' } diff --git a/repository/OP-UML-Metamodel/OPUMLAbstraction.class.st b/repository/OP-UML-Metamodel/OPUMLAbstraction.class.st index dea6515..8032041 100644 --- a/repository/OP-UML-Metamodel/OPUMLAbstraction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAbstraction.class.st @@ -2,42 +2,44 @@ An Abstraction is a Relationship that relates two Elements or sets of Elements that represent the same concept at different levels of abstraction or from different viewpoints. " Class { - #name : #OPUMLAbstraction, - #superclass : #OPUMLElement, + #name : 'OPUMLAbstraction', + #superclass : 'OPUMLElement', #instVars : [ 'mapping' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLAbstraction >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLAbstraction >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAbstraction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Dependency. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAbstraction >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -48,124 +50,124 @@ OPUMLAbstraction >> initializeSharedGeneralizations [ sharedGeneralizations at: #Abstraction put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAbstraction >> mapping [ "An OpaqueExpression that states the abstraction relationship between the supplier(s) and the client(s). In some cases, such as derivation, it is usually formal and unidirectional; in other cases, such as trace, it is usually informal and bidirectional. The mapping expression is optional and may be omitted if the precise relationship between the Elements is not specified." ^ mapping ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAbstraction >> mapping: anOpaqueExpression [ "An OpaqueExpression that states the abstraction relationship between the supplier(s) and the client(s). In some cases, such as derivation, it is usually formal and unidirectional; in other cases, such as trace, it is usually informal and bidirectional. The mapping expression is optional and may be omitted if the precise relationship between the Elements is not specified." mapping := anOpaqueExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAbstraction >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAbstraction >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAbstraction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLAbstraction >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLAbstraction >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLAbstraction >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLAbstraction >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLAbstraction >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLAbstraction >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLAbstraction >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLAbstraction >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAbstraction >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAbstraction >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAbstraction >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAbstraction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAcceptCallAction.class.st b/repository/OP-UML-Metamodel/OPUMLAcceptCallAction.class.st index aae1550..919b015 100644 --- a/repository/OP-UML-Metamodel/OPUMLAcceptCallAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAcceptCallAction.class.st @@ -2,112 +2,114 @@ An AcceptCallAction is an AcceptEventAction that handles the receipt of a synchronous call request. In addition to the values from the Operation input parameters, the Action produces an output that is needed later to supply the information to the ReplyAction necessary to return control to the caller. An AcceptCallAction is for synchronous calls. If it is used to handle an asynchronous call, execution of the subsequent ReplyAction will complete immediately with no effect. " Class { - #name : #OPUMLAcceptCallAction, - #superclass : #OPUMLElement, + #name : 'OPUMLAcceptCallAction', + #superclass : 'OPUMLElement', #instVars : [ 'returnInformation' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAcceptCallAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAcceptCallAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAcceptCallAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #AcceptEventAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAcceptCallAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,194 +120,194 @@ OPUMLAcceptCallAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #AcceptCallAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptCallAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptCallAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - AcceptEventAction' } +{ #category : 'accessing - AcceptEventAction' } OPUMLAcceptCallAction >> isUnmarshall [ ^ (sharedGeneralizations at: #AcceptEventAction) isUnmarshall ] -{ #category : #'accessing - AcceptEventAction' } +{ #category : 'accessing - AcceptEventAction' } OPUMLAcceptCallAction >> isUnmarshall: aBoolean [ (sharedGeneralizations at: #AcceptEventAction) isUnmarshall: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptCallAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptCallAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptCallAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptCallAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptCallAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptCallAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - AcceptEventAction' } +{ #category : 'accessing - AcceptEventAction' } OPUMLAcceptCallAction >> results [ ^ (sharedGeneralizations at: #AcceptEventAction) results ] -{ #category : #'accessing - AcceptEventAction' } +{ #category : 'accessing - AcceptEventAction' } OPUMLAcceptCallAction >> results: anOutputPin [ (sharedGeneralizations at: #AcceptEventAction) results: anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptCallAction >> returnInformation [ "An OutputPin where a value is placed containing sufficient information to perform a subsequent ReplyAction and return control to the caller. The contents of this value are opaque. It can be passed and copied but it cannot be manipulated by the model." ^ returnInformation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptCallAction >> returnInformation: anOutputPin [ "An OutputPin where a value is placed containing sufficient information to perform a subsequent ReplyAction and return control to the caller. The contents of this value are opaque. It can be passed and copied but it cannot be manipulated by the model." returnInformation := anOutputPin ] -{ #category : #'accessing - AcceptEventAction' } +{ #category : 'accessing - AcceptEventAction' } OPUMLAcceptCallAction >> triggers [ ^ (sharedGeneralizations at: #AcceptEventAction) triggers ] -{ #category : #'accessing - AcceptEventAction' } +{ #category : 'accessing - AcceptEventAction' } OPUMLAcceptCallAction >> triggers: aTrigger [ (sharedGeneralizations at: #AcceptEventAction) triggers: aTrigger ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptCallAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAcceptEventAction.class.st b/repository/OP-UML-Metamodel/OPUMLAcceptEventAction.class.st index 8f38193..29e4ad4 100644 --- a/repository/OP-UML-Metamodel/OPUMLAcceptEventAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAcceptEventAction.class.st @@ -2,114 +2,116 @@ An AcceptEventAction is an Action that waits for the occurrence of one or more specific Events. " Class { - #name : #OPUMLAcceptEventAction, - #superclass : #OPUMLElement, + #name : 'OPUMLAcceptEventAction', + #superclass : 'OPUMLElement', #instVars : [ 'triggers', 'isUnmarshall', 'results' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAcceptEventAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAcceptEventAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAcceptEventAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAcceptEventAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -119,188 +121,188 @@ OPUMLAcceptEventAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #AcceptEventAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptEventAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptEventAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptEventAction >> isUnmarshall [ "Indicates whether there is a single OutputPin for a SignalEvent occurrence, or multiple OutputPins for attribute values of the instance of the Signal associated with a SignalEvent occurrence." ^ isUnmarshall ifNil: [ isUnmarshall := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptEventAction >> isUnmarshall: aBoolean [ "Indicates whether there is a single OutputPin for a SignalEvent occurrence, or multiple OutputPins for attribute values of the instance of the Signal associated with a SignalEvent occurrence." isUnmarshall := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAcceptEventAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptEventAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptEventAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAcceptEventAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptEventAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAcceptEventAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptEventAction >> results [ "OutputPins holding the values received from an Event occurrence." ^ results ifNil: [ results := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptEventAction >> results: anOutputPin [ "OutputPins holding the values received from an Event occurrence." results := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptEventAction >> triggers [ "The Triggers specifying the Events of which the AcceptEventAction waits for occurrences." ^ triggers ifNil: [ triggers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAcceptEventAction >> triggers: aTrigger [ "The Triggers specifying the Events of which the AcceptEventAction waits for occurrences." triggers := aTrigger ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAcceptEventAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAction.class.st b/repository/OP-UML-Metamodel/OPUMLAction.class.st index 8a137ee..db071ba 100644 --- a/repository/OP-UML-Metamodel/OPUMLAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAction.class.st @@ -2,8 +2,8 @@ An Action is the fundamental unit of executable functionality. The execution of an Action represents some transformation or processing in the modeled system. Actions provide the ExecutableNodes within Activities and may also be used within Interactions. " Class { - #name : #OPUMLAction, - #superclass : #OPUMLElement, + #name : 'OPUMLAction', + #superclass : 'OPUMLElement', #instVars : [ 'outputs', 'inputs', @@ -12,20 +12,22 @@ Class { 'isLocallyReentrant', 'localPreconditions' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLAction >> allActionsStub [ "Return this Action and all Actions contained directly or indirectly in it. By default only the Action itself is returned, but the operation is overridden for StructuredActivityNodes." @@ -35,7 +37,7 @@ OPUMLAction >> allActionsStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLAction >> allOwnedNodesStub [ "Returns all the ActivityNodes directly or indirectly owned by this Action. This includes at least all the Pins of the Action." @@ -45,17 +47,17 @@ OPUMLAction >> allOwnedNodesStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLAction >> containingBehaviorStub [ "" @@ -70,19 +72,19 @@ endif ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> context [ "The context Classifier of the Behavior that contains this Action, or the Behavior itself if it has no context." ^ context ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> context: aClassifier [ "The context Classifier of the Behavior that contains this Action, or the Behavior itself if it has no context." context := aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLAction >> contextStub [ "The derivation for the context property." @@ -97,74 +99,74 @@ endif)" ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ExecutableNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -173,162 +175,162 @@ OPUMLAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #Action put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> inputs [ "The ordered set of InputPins representing the inputs to the Action." ^ inputs ifNil: [ inputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> inputs: anInputPin [ "The ordered set of InputPins representing the inputs to the Action." inputs := anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> isLocallyReentrant [ "If true, the Action can begin a new, concurrent execution, even if there is already another execution of the Action ongoing. If false, the Action cannot begin a new execution until any previous execution has completed." ^ isLocallyReentrant ifNil: [ isLocallyReentrant := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> isLocallyReentrant: aBoolean [ "If true, the Action can begin a new, concurrent execution, even if there is already another execution of the Action ongoing. If false, the Action cannot begin a new execution until any previous execution has completed." isLocallyReentrant := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> localPostconditions [ "A Constraint that must be satisfied when execution of the Action is completed." ^ localPostconditions ifNil: [ localPostconditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> localPostconditions: aConstraint [ "A Constraint that must be satisfied when execution of the Action is completed." localPostconditions := aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> localPreconditions [ "A Constraint that must be satisfied when execution of the Action is started." ^ localPreconditions ifNil: [ localPreconditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> localPreconditions: aConstraint [ "A Constraint that must be satisfied when execution of the Action is started." localPreconditions := aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> outputs [ "The ordered set of OutputPins representing outputs from the Action." ^ outputs ifNil: [ outputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAction >> outputs: anOutputPin [ "The ordered set of OutputPins representing outputs from the Action." outputs := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActionExecutionSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLActionExecutionSpecification.class.st index fa7f328..e044f7f 100644 --- a/repository/OP-UML-Metamodel/OPUMLActionExecutionSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActionExecutionSpecification.class.st @@ -2,94 +2,96 @@ An ActionExecutionSpecification is a kind of ExecutionSpecification representing the execution of an Action. " Class { - #name : #OPUMLActionExecutionSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLActionExecutionSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'action' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActionExecutionSpecification >> action [ "Action whose execution is occurring." ^ action ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActionExecutionSpecification >> action: anAction [ "Action whose execution is occurring." action := anAction ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLActionExecutionSpecification >> finish [ ^ (sharedGeneralizations at: #ExecutionSpecification) finish ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLActionExecutionSpecification >> finish: anOccurrenceSpecification [ (sharedGeneralizations at: #ExecutionSpecification) finish: anOccurrenceSpecification ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLActionExecutionSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActionExecutionSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ExecutionSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActionExecutionSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -97,62 +99,62 @@ OPUMLActionExecutionSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #ActionExecutionSpecification put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLActionExecutionSpecification >> start [ ^ (sharedGeneralizations at: #ExecutionSpecification) start ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLActionExecutionSpecification >> start: anOccurrenceSpecification [ (sharedGeneralizations at: #ExecutionSpecification) start: anOccurrenceSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionExecutionSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActionInputPin.class.st b/repository/OP-UML-Metamodel/OPUMLActionInputPin.class.st index 12dc4e1..4ea5452 100644 --- a/repository/OP-UML-Metamodel/OPUMLActionInputPin.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActionInputPin.class.st @@ -2,114 +2,116 @@ An ActionInputPin is a kind of InputPin that executes an Action to determine the values to input to another Action. " Class { - #name : #OPUMLActionInputPin, - #superclass : #OPUMLElement, + #name : 'OPUMLActionInputPin', + #superclass : 'OPUMLElement', #instVars : [ 'fromAction' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActionInputPin >> fromAction [ "The Action used to provide the values of the ActionInputPin." ^ fromAction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActionInputPin >> fromAction: anAction [ "The Action used to provide the values of the ActionInputPin." fromAction := anAction ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActionInputPin >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InputPin. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActionInputPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -122,232 +124,232 @@ OPUMLActionInputPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #ActionInputPin put: self. ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLActionInputPin >> isControl [ ^ (sharedGeneralizations at: #Pin) isControl ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLActionInputPin >> isControl: aBoolean [ (sharedGeneralizations at: #Pin) isControl: aBoolean ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActionInputPin >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActionInputPin >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLActionInputPin >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLActionInputPin >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLActionInputPin >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActionInputPin >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActionInputPin >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActionInputPin >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActionInputPin >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActionInputPin >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLActionInputPin >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLActionInputPin >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLActionInputPin >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLActionInputPin >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActionInputPin >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLActionInputPin >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActionInputPin >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActivity.class.st b/repository/OP-UML-Metamodel/OPUMLActivity.class.st index 85b4081..4068c79 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivity.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivity.class.st @@ -2,8 +2,8 @@ An Activity is the specification of parameterized Behavior as the coordinated sequencing of subordinate units. " Class { - #name : #OPUMLActivity, - #superclass : #OPUMLElement, + #name : 'OPUMLActivity', + #superclass : 'OPUMLElement', #instVars : [ 'isSingleExecution', 'groups', @@ -14,76 +14,78 @@ Class { 'partitions', 'isReadOnly' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActivity >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActivity >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActivity >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActivity >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> context [ ^ (sharedGeneralizations at: #Behavior) context ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> context: aBehavioredClassifier [ (sharedGeneralizations at: #Behavior) context: aBehavioredClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> edges [ "ActivityEdges expressing flow between the nodes of the Activity." ^ edges ifNil: [ edges := OPUMLToManyLinks on: self identity opposite: #activity: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> edges: anActivityEdge [ "ActivityEdges expressing flow between the nodes of the Activity." self edges @@ -91,68 +93,68 @@ OPUMLActivity >> edges: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActivity >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> groups [ "Top-level ActivityGroups in the Activity." ^ groups ifNil: [ groups := OPUMLToManyLinks on: self identity opposite: #inActivity: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> groups: anActivityGroup [ "Top-level ActivityGroups in the Activity." self groups @@ -160,34 +162,34 @@ OPUMLActivity >> groups: anActivityGroup [ addAll: anActivityGroup ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivity >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Behavior. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivity >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -205,147 +207,147 @@ OPUMLActivity >> initializeSharedGeneralizations [ sharedGeneralizations at: #Activity put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActivity >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActivity >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivity >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivity >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> isReadOnly [ "If true, this Activity must not make any changes to objects. The default is false (an Activity may make nonlocal changes). (This is an assertion, not an executable property. It may be used by an execution engine to optimize model execution. If the assertion is violated by the Activity, then the model is ill-formed.) " ^ isReadOnly ifNil: [ isReadOnly := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> isReadOnly: aBoolean [ "If true, this Activity must not make any changes to objects. The default is false (an Activity may make nonlocal changes). (This is an assertion, not an executable property. It may be used by an execution engine to optimize model execution. If the assertion is violated by the Activity, then the model is ill-formed.) " isReadOnly := aBoolean ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> isReentrant [ ^ (sharedGeneralizations at: #Behavior) isReentrant ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> isReentrant: aBoolean [ (sharedGeneralizations at: #Behavior) isReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> isSingleExecution [ "If true, all invocations of the Activity are handled by the same execution." ^ isSingleExecution ifNil: [ isSingleExecution := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> isSingleExecution: aBoolean [ "If true, all invocations of the Activity are handled by the same execution." isSingleExecution := aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> nodes [ "ActivityNodes coordinated by the Activity." ^ nodes ifNil: [ nodes := OPUMLToManyLinks on: self identity opposite: #activity: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> nodes: anActivityNode [ "ActivityNodes coordinated by the Activity." self nodes @@ -353,300 +355,300 @@ OPUMLActivity >> nodes: anActivityNode [ addAll: anActivityNode ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActivity >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActivity >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLActivity >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLActivity >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> ownedParameterSets [ ^ (sharedGeneralizations at: #Behavior) ownedParameterSets ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #Behavior) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> ownedParameters [ ^ (sharedGeneralizations at: #Behavior) ownedParameters ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> ownedParameters: aParameter [ (sharedGeneralizations at: #Behavior) ownedParameters: aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLActivity >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLActivity >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLActivity >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLActivity >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLActivity >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLActivity >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActivity >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActivity >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> partitions [ "Top-level ActivityPartitions in the Activity." ^ partitions ifNil: [ partitions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> partitions: anActivityPartition [ "Top-level ActivityPartitions in the Activity." partitions := anActivityPartition ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLActivity >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLActivity >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> postconditions [ ^ (sharedGeneralizations at: #Behavior) postconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> postconditions: aConstraint [ (sharedGeneralizations at: #Behavior) postconditions: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> preconditions [ ^ (sharedGeneralizations at: #Behavior) preconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> preconditions: aConstraint [ (sharedGeneralizations at: #Behavior) preconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivity >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> redefinedBehaviors [ ^ (sharedGeneralizations at: #Behavior) redefinedBehaviors ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> redefinedBehaviors: aBehavior [ (sharedGeneralizations at: #Behavior) redefinedBehaviors: aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivity >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivity >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivity >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivity >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLActivity >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLActivity >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> specification [ ^ (sharedGeneralizations at: #Behavior) specification ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLActivity >> specification: aBehavioralFeature [ (sharedGeneralizations at: #Behavior) specification: aBehavioralFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> structuredNodes [ "Top-level StructuredActivityNodes in the Activity." ^ structuredNodes ifNil: [ structuredNodes := OPUMLToManyLinks on: self identity opposite: #activity: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> structuredNodes: aStructuredActivityNode [ "Top-level StructuredActivityNodes in the Activity." self structuredNodes @@ -654,63 +656,63 @@ OPUMLActivity >> structuredNodes: aStructuredActivityNode [ addAll: aStructuredActivityNode ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLActivity >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLActivity >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLActivity >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActivity >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> variables [ "Top-level Variables defined by the Activity." ^ variables ifNil: [ variables := OPUMLToManyLinks on: self identity opposite: #activityScope: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivity >> variables: aVariable [ "Top-level Variables defined by the Activity." self variables @@ -718,12 +720,12 @@ OPUMLActivity >> variables: aVariable [ addAll: aVariable ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLActivity >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLActivity >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActivityEdge.class.st b/repository/OP-UML-Metamodel/OPUMLActivityEdge.class.st index b01d0ed..3741d36 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivityEdge.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivityEdge.class.st @@ -2,8 +2,8 @@ An ActivityEdge is an abstract class for directed connections between two ActivityNodes. " Class { - #name : #OPUMLActivityEdge, - #superclass : #OPUMLElement, + #name : 'OPUMLActivityEdge', + #superclass : 'OPUMLElement', #instVars : [ 'redefinedEdges', 'activity', @@ -16,16 +16,18 @@ Class { 'source', 'inGroups' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> activity [ "The Activity containing the ActivityEdge, if it is directly owned by an Activity." ^ activity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> activity: anActivity [ "The Activity containing the ActivityEdge, if it is directly owned by an Activity." activity := OPUMLToOneLink @@ -35,35 +37,35 @@ OPUMLActivityEdge >> activity: anActivity [ to: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> guard [ "A ValueSpecification that is evaluated to determine if a token can traverse the ActivityEdge. If an ActivityEdge has no guard, then there is no restriction on tokens traversing the edge." ^ guard ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> guard: aValueSpecification [ "A ValueSpecification that is evaluated to determine if a token can traverse the ActivityEdge. If an ActivityEdge has no guard, then there is no restriction on tokens traversing the edge." guard := aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> inGroups [ "ActivityGroups containing the ActivityEdge." ^ inGroups ifNil: [ inGroups := OPUMLManyToManyLinks on: self identity opposite: #containedEdges ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> inGroups: anActivityGroup [ "ActivityGroups containing the ActivityEdge." self inGroups @@ -71,13 +73,13 @@ OPUMLActivityEdge >> inGroups: anActivityGroup [ addAll: anActivityGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> inPartitions [ "ActivityPartitions containing the ActivityEdge." ^ inPartitions ifNil: [ inPartitions := OPUMLManyToManyLinks on: self identity opposite: #edges ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> inPartitions: anActivityPartition [ "ActivityPartitions containing the ActivityEdge." self inPartitions @@ -85,13 +87,13 @@ OPUMLActivityEdge >> inPartitions: anActivityPartition [ addAll: anActivityPartition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> inStructuredNode [ "The StructuredActivityNode containing the ActivityEdge, if it is owned by a StructuredActivityNode." ^ inStructuredNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> inStructuredNode: aStructuredActivityNode [ "The StructuredActivityNode containing the ActivityEdge, if it is owned by a StructuredActivityNode." inStructuredNode := OPUMLToOneLink @@ -101,27 +103,27 @@ OPUMLActivityEdge >> inStructuredNode: aStructuredActivityNode [ to: aStructuredActivityNode ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityEdge >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #RedefinableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityEdge >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ActivityEdge put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> interrupts [ "The InterruptibleActivityRegion for which this ActivityEdge is an interruptingEdge." ^ interrupts ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> interrupts: anInterruptibleActivityRegion [ "The InterruptibleActivityRegion for which this ActivityEdge is an interruptingEdge." interrupts := OPUMLToOneLink @@ -131,7 +133,7 @@ OPUMLActivityEdge >> interrupts: anInterruptibleActivityRegion [ to: anInterruptibleActivityRegion ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLActivityEdge >> isConsistentWithStub [ "" @@ -141,95 +143,95 @@ OPUMLActivityEdge >> isConsistentWithStub [ ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityEdge >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityEdge >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> redefinedEdges [ "ActivityEdges from a generalization of the Activity containing this ActivityEdge that are redefined by this ActivityEdge." ^ redefinedEdges ifNil: [ redefinedEdges := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> redefinedEdges: anActivityEdge [ "ActivityEdges from a generalization of the Activity containing this ActivityEdge that are redefined by this ActivityEdge." redefinedEdges := anActivityEdge ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityEdge >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityEdge >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityEdge >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityEdge >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> source [ "The ActivityNode from which tokens are taken when they traverse the ActivityEdge." ^ source ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> source: anActivityNode [ "The ActivityNode from which tokens are taken when they traverse the ActivityEdge." source := OPUMLToOneLink @@ -239,13 +241,13 @@ OPUMLActivityEdge >> source: anActivityNode [ to: anActivityNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> target [ "The ActivityNode to which tokens are put when they traverse the ActivityEdge." ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> target: anActivityNode [ "The ActivityNode to which tokens are put when they traverse the ActivityEdge." target := OPUMLToOneLink @@ -255,23 +257,23 @@ OPUMLActivityEdge >> target: anActivityNode [ to: anActivityNode ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityEdge >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> weight [ "The minimum number of tokens that must traverse the ActivityEdge at the same time. If no weight is specified, this is equivalent to specifying a constant value of 1." ^ weight ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityEdge >> weight: aValueSpecification [ "The minimum number of tokens that must traverse the ActivityEdge at the same time. If no weight is specified, this is equivalent to specifying a constant value of 1." weight := aValueSpecification diff --git a/repository/OP-UML-Metamodel/OPUMLActivityFinalNode.class.st b/repository/OP-UML-Metamodel/OPUMLActivityFinalNode.class.st index 1412209..6ba36db 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivityFinalNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivityFinalNode.class.st @@ -2,89 +2,91 @@ An ActivityFinalNode is a FinalNode that terminates the execution of its owning Activity or StructuredActivityNode. " Class { - #name : #OPUMLActivityFinalNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLActivityFinalNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityFinalNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #FinalNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityFinalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -94,102 +96,102 @@ OPUMLActivityFinalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ActivityFinalNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityFinalNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityFinalNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityFinalNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityFinalNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityFinalNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityFinalNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityFinalNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityFinalNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActivityGroup.class.st b/repository/OP-UML-Metamodel/OPUMLActivityGroup.class.st index 25a4788..7528344 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivityGroup.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivityGroup.class.st @@ -2,8 +2,8 @@ ActivityGroup is an abstract class for defining sets of ActivityNodes and ActivityEdges in an Activity. " Class { - #name : #OPUMLActivityGroup, - #superclass : #OPUMLElement, + #name : 'OPUMLActivityGroup', + #superclass : 'OPUMLElement', #instVars : [ 'superGroup', 'containedEdges', @@ -11,26 +11,28 @@ Class { 'inActivity', 'subgroups' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> containedEdges [ "ActivityEdges immediately contained in the ActivityGroup." ^ containedEdges ifNil: [ containedEdges := OPUMLManyToManyLinks on: self identity opposite: #inGroups ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> containedEdges: anActivityEdge [ "ActivityEdges immediately contained in the ActivityGroup." self containedEdges @@ -38,13 +40,13 @@ OPUMLActivityGroup >> containedEdges: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> containedNodes [ "ActivityNodes immediately contained in the ActivityGroup." ^ containedNodes ifNil: [ containedNodes := OPUMLManyToManyLinks on: self identity opposite: #inGroups ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> containedNodes: anActivityNode [ "ActivityNodes immediately contained in the ActivityGroup." self containedNodes @@ -52,7 +54,7 @@ OPUMLActivityGroup >> containedNodes: anActivityNode [ addAll: anActivityNode ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLActivityGroup >> containingActivityStub [ "The Activity that directly or indirectly contains this ActivityGroup." @@ -64,13 +66,13 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> inActivity [ "The Activity containing the ActivityGroup, if it is directly owned by an Activity." ^ inActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> inActivity: anActivity [ "The Activity containing the ActivityGroup, if it is directly owned by an Activity." inActivity := OPUMLToOneLink @@ -80,66 +82,66 @@ OPUMLActivityGroup >> inActivity: anActivity [ to: anActivity ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityGroup >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityGroup >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ActivityGroup put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> subgroups [ "Other ActivityGroups immediately contained in this ActivityGroup." ^ subgroups ifNil: [ subgroups := OPUMLToManyLinks on: self identity opposite: #superGroup: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> subgroups: anActivityGroup [ "Other ActivityGroups immediately contained in this ActivityGroup." self subgroups @@ -147,13 +149,13 @@ OPUMLActivityGroup >> subgroups: anActivityGroup [ addAll: anActivityGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> superGroup [ "The ActivityGroup immediately containing this ActivityGroup, if it is directly owned by another ActivityGroup." ^ superGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityGroup >> superGroup: anActivityGroup [ "The ActivityGroup immediately containing this ActivityGroup, if it is directly owned by another ActivityGroup." superGroup := OPUMLToOneLink @@ -163,12 +165,12 @@ OPUMLActivityGroup >> superGroup: anActivityGroup [ to: anActivityGroup ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityGroup >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActivityNode.class.st b/repository/OP-UML-Metamodel/OPUMLActivityNode.class.st index 7492d25..3e83b7e 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivityNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivityNode.class.st @@ -2,8 +2,8 @@ ActivityNode is an abstract class for points in the flow of an Activity connected by ActivityEdges. " Class { - #name : #OPUMLActivityNode, - #superclass : #OPUMLElement, + #name : 'OPUMLActivityNode', + #superclass : 'OPUMLElement', #instVars : [ 'outgoings', 'activity', @@ -14,16 +14,18 @@ Class { 'redefinedNodes', 'incomings' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> activity [ "The Activity containing the ActivityNode, if it is directly owned by an Activity." ^ activity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> activity: anActivity [ "The Activity containing the ActivityNode, if it is directly owned by an Activity." activity := OPUMLToOneLink @@ -33,17 +35,17 @@ OPUMLActivityNode >> activity: anActivity [ to: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLActivityNode >> containingActivityStub [ "The Activity that directly or indirectly contains this ActivityNode." @@ -55,13 +57,13 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inGroups [ "ActivityGroups containing the ActivityNode." ^ inGroups ifNil: [ inGroups := OPUMLManyToManyLinks on: self identity opposite: #containedNodes ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inGroups: anActivityGroup [ "ActivityGroups containing the ActivityNode." self inGroups @@ -69,13 +71,13 @@ OPUMLActivityNode >> inGroups: anActivityGroup [ addAll: anActivityGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inInterruptibleRegions [ "InterruptibleActivityRegions containing the ActivityNode." ^ inInterruptibleRegions ifNil: [ inInterruptibleRegions := OPUMLManyToManyLinks on: self identity opposite: #nodes ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ "InterruptibleActivityRegions containing the ActivityNode." self inInterruptibleRegions @@ -83,13 +85,13 @@ OPUMLActivityNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ addAll: anInterruptibleActivityRegion ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inPartitions [ "ActivityPartitions containing the ActivityNode." ^ inPartitions ifNil: [ inPartitions := OPUMLManyToManyLinks on: self identity opposite: #nodes ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inPartitions: anActivityPartition [ "ActivityPartitions containing the ActivityNode." self inPartitions @@ -97,13 +99,13 @@ OPUMLActivityNode >> inPartitions: anActivityPartition [ addAll: anActivityPartition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inStructuredNode [ "The StructuredActivityNode containing the ActvityNode, if it is directly owned by a StructuredActivityNode." ^ inStructuredNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> inStructuredNode: aStructuredActivityNode [ "The StructuredActivityNode containing the ActvityNode, if it is directly owned by a StructuredActivityNode." inStructuredNode := OPUMLToOneLink @@ -113,13 +115,13 @@ OPUMLActivityNode >> inStructuredNode: aStructuredActivityNode [ to: aStructuredActivityNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> incomings [ "ActivityEdges that have the ActivityNode as their target." ^ incomings ifNil: [ incomings := OPUMLToManyLinks on: self identity opposite: #target: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> incomings: anActivityEdge [ "ActivityEdges that have the ActivityNode as their target." self incomings @@ -127,21 +129,21 @@ OPUMLActivityNode >> incomings: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #RedefinableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ActivityNode put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLActivityNode >> isConsistentWithStub [ "" @@ -151,53 +153,53 @@ OPUMLActivityNode >> isConsistentWithStub [ ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> outgoings [ "ActivityEdges that have the ActivityNode as their source." ^ outgoings ifNil: [ outgoings := OPUMLToManyLinks on: self identity opposite: #source: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> outgoings: anActivityEdge [ "ActivityEdges that have the ActivityNode as their source." self outgoings @@ -205,54 +207,54 @@ OPUMLActivityNode >> outgoings: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> redefinedNodes [ "ActivityNodes from a generalization of the Activity containining this ActivityNode that are redefined by this ActivityNode." ^ redefinedNodes ifNil: [ redefinedNodes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityNode >> redefinedNodes: anActivityNode [ "ActivityNodes from a generalization of the Activity containining this ActivityNode that are redefined by this ActivityNode." redefinedNodes := anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActivityParameterNode.class.st b/repository/OP-UML-Metamodel/OPUMLActivityParameterNode.class.st index a8fe6f9..6e305c3 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivityParameterNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivityParameterNode.class.st @@ -2,102 +2,104 @@ An ActivityParameterNode is an ObjectNode for accepting values from the input Parameters or providing values to the output Parameters of an Activity. " Class { - #name : #OPUMLActivityParameterNode, - #superclass : #OPUMLElement, + #name : 'OPUMLActivityParameterNode', + #superclass : 'OPUMLElement', #instVars : [ 'parameter' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityParameterNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ObjectNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityParameterNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -107,164 +109,164 @@ OPUMLActivityParameterNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ActivityParameterNode put: self. ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityParameterNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityParameterNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityParameterNode >> parameter [ "The Parameter for which the ActivityParameterNode will be accepting or providing values." ^ parameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityParameterNode >> parameter: aParameter [ "The Parameter for which the ActivityParameterNode will be accepting or providing values." parameter := aParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityParameterNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityParameterNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLActivityParameterNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityParameterNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActivityParameterNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLActivityParameterNode >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLActivityParameterNode >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> upperBound [ ^ (sharedGeneralizations at: #ObjectNode) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLActivityParameterNode >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityParameterNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActivityPartition.class.st b/repository/OP-UML-Metamodel/OPUMLActivityPartition.class.st index 0d11e05..06dd493 100644 --- a/repository/OP-UML-Metamodel/OPUMLActivityPartition.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActivityPartition.class.st @@ -2,8 +2,8 @@ An ActivityPartition is a kind of ActivityGroup for identifying ActivityNodes that have some characteristic in common. " Class { - #name : #OPUMLActivityPartition, - #superclass : #OPUMLElement, + #name : 'OPUMLActivityPartition', + #superclass : 'OPUMLElement', #instVars : [ 'represents', 'nodes', @@ -13,46 +13,48 @@ Class { 'isExternal', 'superPartition' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> edges [ "ActivityEdges immediately contained in the ActivityPartition." ^ edges ifNil: [ edges := OPUMLManyToManyLinks on: self identity opposite: #inPartitions ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> edges: anActivityEdge [ "ActivityEdges immediately contained in the ActivityPartition." self edges @@ -60,91 +62,91 @@ OPUMLActivityPartition >> edges: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityPartition >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ActivityGroup. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActivityPartition >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ActivityGroup put: (OPUMLActivityGroup newOnShared: sharedGeneralizations). sharedGeneralizations at: #ActivityPartition put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> isDimension [ "Indicates whether the ActivityPartition groups other ActivityPartitions along a dimension." ^ isDimension ifNil: [ isDimension := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> isDimension: aBoolean [ "Indicates whether the ActivityPartition groups other ActivityPartitions along a dimension." isDimension := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> isExternal [ "Indicates whether the ActivityPartition represents an entity to which the partitioning structure does not apply." ^ isExternal ifNil: [ isExternal := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> isExternal: aBoolean [ "Indicates whether the ActivityPartition represents an entity to which the partitioning structure does not apply." isExternal := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> nodes [ "ActivityNodes immediately contained in the ActivityPartition." ^ nodes ifNil: [ nodes := OPUMLManyToManyLinks on: self identity opposite: #inPartitions ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> nodes: anActivityNode [ "ActivityNodes immediately contained in the ActivityPartition." self nodes @@ -152,45 +154,45 @@ OPUMLActivityPartition >> nodes: anActivityNode [ addAll: anActivityNode ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> represents [ "An Element represented by the functionality modeled within the ActivityPartition." ^ represents ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> represents: anElement [ "An Element represented by the functionality modeled within the ActivityPartition." represents := anElement ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> subpartitions [ "Other ActivityPartitions immediately contained in this ActivityPartition (as its subgroups)." ^ subpartitions ifNil: [ subpartitions := OPUMLToManyLinks on: self identity opposite: #superPartition: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> subpartitions: anActivityPartition [ "Other ActivityPartitions immediately contained in this ActivityPartition (as its subgroups)." self subpartitions @@ -198,23 +200,23 @@ OPUMLActivityPartition >> subpartitions: anActivityPartition [ addAll: anActivityPartition ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLActivityPartition >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> superPartition [ "Other ActivityPartitions immediately containing this ActivityPartition (as its superGroups)." ^ superPartition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLActivityPartition >> superPartition: anActivityPartition [ "Other ActivityPartitions immediately containing this ActivityPartition (as its superGroups)." superPartition := OPUMLToOneLink @@ -224,12 +226,12 @@ OPUMLActivityPartition >> superPartition: anActivityPartition [ to: anActivityPartition ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActivityPartition >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLActor.class.st b/repository/OP-UML-Metamodel/OPUMLActor.class.st index f777b01..f9c9e90 100644 --- a/repository/OP-UML-Metamodel/OPUMLActor.class.st +++ b/repository/OP-UML-Metamodel/OPUMLActor.class.st @@ -2,134 +2,136 @@ An Actor specifies a role played by a user or any other system that interacts with the subject. " Class { - #name : #OPUMLActor, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-UseCases' + #name : 'OPUMLActor', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-UseCases', + #package : 'OP-UML-Metamodel', + #tag : 'UseCases' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActor >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActor >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActor >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActor >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActor >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActor >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #BehavioredClassifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLActor >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -143,277 +145,277 @@ OPUMLActor >> initializeSharedGeneralizations [ sharedGeneralizations at: #Actor put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActor >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActor >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActor >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActor >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActor >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLActor >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLActor >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLActor >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLActor >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLActor >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLActor >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLActor >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLActor >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActor >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActor >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActor >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLActor >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLActor >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLActor >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLActor >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLActor >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLActor >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAddStructuralFeatureValueAction.class.st b/repository/OP-UML-Metamodel/OPUMLAddStructuralFeatureValueAction.class.st index d844bd0..97b43e0 100644 --- a/repository/OP-UML-Metamodel/OPUMLAddStructuralFeatureValueAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAddStructuralFeatureValueAction.class.st @@ -2,113 +2,115 @@ An AddStructuralFeatureValueAction is a WriteStructuralFeatureAction for adding values to a StructuralFeature. " Class { - #name : #OPUMLAddStructuralFeatureValueAction, - #superclass : #OPUMLElement, + #name : 'OPUMLAddStructuralFeatureValueAction', + #superclass : 'OPUMLElement', #instVars : [ 'isReplaceAll', 'insertAt' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAddStructuralFeatureValueAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAddStructuralFeatureValueAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAddStructuralFeatureValueAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #WriteStructuralFeatureAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAddStructuralFeatureValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -120,216 +122,216 @@ OPUMLAddStructuralFeatureValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #AddStructuralFeatureValueAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddStructuralFeatureValueAction >> insertAt [ "The InputPin that gives the position at which to insert the value in an ordered StructuralFeature. The type of the insertAt InputPin is UnlimitedNatural, but the value cannot be zero. It is omitted for unordered StructuralFeatures." ^ insertAt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddStructuralFeatureValueAction >> insertAt: anInputPin [ "The InputPin that gives the position at which to insert the value in an ordered StructuralFeature. The type of the insertAt InputPin is UnlimitedNatural, but the value cannot be zero. It is omitted for unordered StructuralFeatures." insertAt := anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddStructuralFeatureValueAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddStructuralFeatureValueAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddStructuralFeatureValueAction >> isReplaceAll [ "Specifies whether existing values of the StructuralFeature should be removed before adding the new value." ^ isReplaceAll ifNil: [ isReplaceAll := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddStructuralFeatureValueAction >> isReplaceAll: aBoolean [ "Specifies whether existing values of the StructuralFeature should be removed before adding the new value." isReplaceAll := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> object [ ^ (sharedGeneralizations at: #StructuralFeatureAction) object ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> object: anInputPin [ (sharedGeneralizations at: #StructuralFeatureAction) object: anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddStructuralFeatureValueAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddStructuralFeatureValueAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddStructuralFeatureValueAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddStructuralFeatureValueAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddStructuralFeatureValueAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddStructuralFeatureValueAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> result [ ^ (sharedGeneralizations at: #WriteStructuralFeatureAction) result ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> result: anOutputPin [ (sharedGeneralizations at: #WriteStructuralFeatureAction) result: anOutputPin ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> structuralFeature [ ^ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> structuralFeature: aStructuralFeature [ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature: aStructuralFeature ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> value [ ^ (sharedGeneralizations at: #WriteStructuralFeatureAction) value ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLAddStructuralFeatureValueAction >> value: anInputPin [ (sharedGeneralizations at: #WriteStructuralFeatureAction) value: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddStructuralFeatureValueAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAddVariableValueAction.class.st b/repository/OP-UML-Metamodel/OPUMLAddVariableValueAction.class.st index 2443fbb..88c91fb 100644 --- a/repository/OP-UML-Metamodel/OPUMLAddVariableValueAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAddVariableValueAction.class.st @@ -2,113 +2,115 @@ An AddVariableValueAction is a WriteVariableAction for adding values to a Variable. " Class { - #name : #OPUMLAddVariableValueAction, - #superclass : #OPUMLElement, + #name : 'OPUMLAddVariableValueAction', + #superclass : 'OPUMLElement', #instVars : [ 'isReplaceAll', 'insertAt' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAddVariableValueAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLAddVariableValueAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAddVariableValueAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #WriteVariableAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAddVariableValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -120,196 +122,196 @@ OPUMLAddVariableValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #AddVariableValueAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddVariableValueAction >> insertAt [ "The InputPin that gives the position at which to insert a new value or move an existing value in ordered Variables. The type of the insertAt InputPin is UnlimitedNatural, but the value cannot be zero. It is omitted for unordered Variables." ^ insertAt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddVariableValueAction >> insertAt: anInputPin [ "The InputPin that gives the position at which to insert a new value or move an existing value in ordered Variables. The type of the insertAt InputPin is UnlimitedNatural, but the value cannot be zero. It is omitted for unordered Variables." insertAt := anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddVariableValueAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddVariableValueAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddVariableValueAction >> isReplaceAll [ "Specifies whether existing values of the Variable should be removed before adding the new value." ^ isReplaceAll ifNil: [ isReplaceAll := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAddVariableValueAction >> isReplaceAll: aBoolean [ "Specifies whether existing values of the Variable should be removed before adding the new value." isReplaceAll := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLAddVariableValueAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddVariableValueAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddVariableValueAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLAddVariableValueAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddVariableValueAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAddVariableValueAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - WriteVariableAction' } +{ #category : 'accessing - WriteVariableAction' } OPUMLAddVariableValueAction >> value [ ^ (sharedGeneralizations at: #WriteVariableAction) value ] -{ #category : #'accessing - WriteVariableAction' } +{ #category : 'accessing - WriteVariableAction' } OPUMLAddVariableValueAction >> value: anInputPin [ (sharedGeneralizations at: #WriteVariableAction) value: anInputPin ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLAddVariableValueAction >> variable [ ^ (sharedGeneralizations at: #VariableAction) variable ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLAddVariableValueAction >> variable: aVariable [ (sharedGeneralizations at: #VariableAction) variable: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAddVariableValueAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAggregationKind.class.st b/repository/OP-UML-Metamodel/OPUMLAggregationKind.class.st index 0164a71..f29f930 100644 --- a/repository/OP-UML-Metamodel/OPUMLAggregationKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAggregationKind.class.st @@ -2,47 +2,49 @@ AggregationKind is an Enumeration for specifying the kind of aggregation of a Property. " Class { - #name : #OPUMLAggregationKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Classification' + #name : 'OPUMLAggregationKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLAggregationKind class >> composite [ "Indicates that the Property is aggregated compositely, i.e., the composite object has responsibility for the existence and storage of the composed objects (parts)." ^ #composite ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLAggregationKind class >> none [ "Indicates that the Property has no aggregation." ^ #none ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLAggregationKind class >> shared [ "Indicates that the Property has shared aggregation." ^ #shared ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAggregationKind >> composite [ "Indicates that the Property is aggregated compositely, i.e., the composite object has responsibility for the existence and storage of the composed objects (parts)." ^ #composite ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAggregationKind >> none [ "Indicates that the Property has no aggregation." ^ #none ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAggregationKind >> shared [ "Indicates that the Property has shared aggregation." ^ #shared diff --git a/repository/OP-UML-Metamodel/OPUMLAnyReceiveEvent.class.st b/repository/OP-UML-Metamodel/OPUMLAnyReceiveEvent.class.st index a250775..6ceadef 100644 --- a/repository/OP-UML-Metamodel/OPUMLAnyReceiveEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAnyReceiveEvent.class.st @@ -2,29 +2,31 @@ A trigger for an AnyReceiveEvent is triggered by the receipt of any message that is not explicitly handled by any related trigger. " Class { - #name : #OPUMLAnyReceiveEvent, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-CommonBehavior' + #name : 'OPUMLAnyReceiveEvent', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAnyReceiveEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MessageEvent. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAnyReceiveEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -34,72 +36,72 @@ OPUMLAnyReceiveEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #AnyReceiveEvent put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAnyReceiveEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAnyReceiveEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAnyReceiveEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAnyReceiveEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAnyReceiveEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAnyReceiveEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAnyReceiveEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLArtifact.class.st b/repository/OP-UML-Metamodel/OPUMLArtifact.class.st index cd2cb7e..7d2fe5c 100644 --- a/repository/OP-UML-Metamodel/OPUMLArtifact.class.st +++ b/repository/OP-UML-Metamodel/OPUMLArtifact.class.st @@ -3,8 +3,8 @@ An artifact is the specification of a physical piece of information that is used An artifact is the source of a deployment to a node. " Class { - #name : #OPUMLArtifact, - #superclass : #OPUMLElement, + #name : 'OPUMLArtifact', + #superclass : 'OPUMLElement', #instVars : [ 'nestedArtifacts', 'fileName', @@ -12,127 +12,129 @@ Class { 'manifestations', 'ownedOperations' ], - #category : 'OP-UML-Metamodel-Deployments' + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLArtifact >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLArtifact >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> fileName [ "A concrete name that is used to refer to the Artifact in a physical context. Example: file system name, universal resource locator." ^ fileName ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> fileName: aString [ "A concrete name that is used to refer to the Artifact in a physical context. Example: file system name, universal resource locator." fileName := aString ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLArtifact >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLArtifact >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. @@ -140,7 +142,7 @@ OPUMLArtifact >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLArtifact >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -154,305 +156,305 @@ OPUMLArtifact >> initializeSharedGeneralizations [ sharedGeneralizations at: #Artifact put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLArtifact >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLArtifact >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> manifestations [ "The set of model elements that are manifested in the Artifact. That is, these model elements are utilized in the construction (or generation) of the artifact." ^ manifestations ifNil: [ manifestations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> manifestations: aManifestation [ "The set of model elements that are manifested in the Artifact. That is, these model elements are utilized in the construction (or generation) of the artifact." manifestations := aManifestation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> nestedArtifacts [ "The Artifacts that are defined (nested) within the Artifact. The association is a specialization of the ownedMember association from Namespace to NamedElement." ^ nestedArtifacts ifNil: [ nestedArtifacts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> nestedArtifacts: anArtifact [ "The Artifacts that are defined (nested) within the Artifact. The association is a specialization of the ownedMember association from Namespace to NamedElement." nestedArtifacts := anArtifact ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> ownedAttributes [ "The attributes or association ends defined for the Artifact. The association is a specialization of the ownedMember association." ^ ownedAttributes ifNil: [ ownedAttributes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> ownedAttributes: aProperty [ "The attributes or association ends defined for the Artifact. The association is a specialization of the ownedMember association." ownedAttributes := aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> ownedOperations [ "The Operations defined for the Artifact. The association is a specialization of the ownedMember association." ^ ownedOperations ifNil: [ ownedOperations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLArtifact >> ownedOperations: anOperation [ "The Operations defined for the Artifact. The association is a specialization of the ownedMember association." ownedOperations := anOperation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLArtifact >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLArtifact >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLArtifact >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLArtifact >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLArtifact >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLArtifact >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLArtifact >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLArtifact >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLArtifact >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLArtifact >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLArtifact >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLArtifact >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLArtifact >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLArtifact >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLArtifact >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLArtifact >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAssociation.class.st b/repository/OP-UML-Metamodel/OPUMLAssociation.class.st index 4e3edb3..beca262 100644 --- a/repository/OP-UML-Metamodel/OPUMLAssociation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAssociation.class.st @@ -3,8 +3,8 @@ A link is a tuple of values that refer to typed objects. An Association classif " Class { - #name : #OPUMLAssociation, - #superclass : #OPUMLElement, + #name : 'OPUMLAssociation', + #superclass : 'OPUMLElement', #instVars : [ 'ownedEnds', 'endTypes', @@ -12,60 +12,62 @@ Class { 'memberEnds', 'navigableOwnedEnds' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociation >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociation >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLAssociation >> endTypeStub [ "endType is derived from the types of the member ends." @@ -75,74 +77,74 @@ OPUMLAssociation >> endTypeStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> endTypes [ "The Classifiers that are used as types of the ends of the Association." ^ endTypes ifNil: [ endTypes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> endTypes: aType [ "The Classifiers that are used as types of the ends of the Association." endTypes := aType ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociation >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAssociation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Relationship. @@ -150,7 +152,7 @@ OPUMLAssociation >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAssociation >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -164,55 +166,55 @@ OPUMLAssociation >> initializeSharedGeneralizations [ sharedGeneralizations at: #Association put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> isDerived [ "Specifies whether the Association is derived from other model elements such as other Associations." ^ isDerived ifNil: [ isDerived := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> isDerived: aBoolean [ "Specifies whether the Association is derived from other model elements such as other Associations." isDerived := aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociation >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociation >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> memberEnds [ "Each end represents participation of instances of the Classifier connected to the end in links of the Association." ^ memberEnds ifNil: [ memberEnds := OPUMLToManyLinks on: self identity opposite: #association: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> memberEnds: aProperty [ "Each end represents participation of instances of the Classifier connected to the end in links of the Association." self memberEnds @@ -220,65 +222,65 @@ OPUMLAssociation >> memberEnds: aProperty [ addAll: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> navigableOwnedEnds [ "The navigable ends that are owned by the Association itself." ^ navigableOwnedEnds ifNil: [ navigableOwnedEnds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> navigableOwnedEnds: aProperty [ "The navigable ends that are owned by the Association itself." navigableOwnedEnds := aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> ownedEnds [ "The ends that are owned by the Association itself." ^ ownedEnds ifNil: [ ownedEnds := OPUMLToManyLinks on: self identity opposite: #owningAssociation: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLAssociation >> ownedEnds: aProperty [ "The ends that are owned by the Association itself." self ownedEnds @@ -286,197 +288,197 @@ OPUMLAssociation >> ownedEnds: aProperty [ addAll: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAssociation >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAssociation >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLAssociation >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLAssociation >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociation >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociation >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociation >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociation >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociation >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociation >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLAssociation >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLAssociation >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLAssociation >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLAssociation >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociation >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAssociation >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAssociation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLAssociationClass.class.st b/repository/OP-UML-Metamodel/OPUMLAssociationClass.class.st index 5649144..bf7d93c 100644 --- a/repository/OP-UML-Metamodel/OPUMLAssociationClass.class.st +++ b/repository/OP-UML-Metamodel/OPUMLAssociationClass.class.st @@ -2,147 +2,149 @@ A model element that has both Association and Class properties. An AssociationClass can be seen as an Association that also has Class properties, or as a Class that also has Association properties. It not only connects a set of Classifiers but also defines a set of Features that belong to the Association itself and not to any of the associated Classifiers. " Class { - #name : #OPUMLAssociationClass, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #name : 'OPUMLAssociationClass', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociationClass >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociationClass >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLAssociationClass >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLAssociationClass >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> endTypes [ ^ (sharedGeneralizations at: #Association) endTypes ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> endTypes: aType [ (sharedGeneralizations at: #Association) endTypes: aType ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociationClass >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAssociationClass >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Class. @@ -150,7 +152,7 @@ OPUMLAssociationClass >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLAssociationClass >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -169,427 +171,427 @@ OPUMLAssociationClass >> initializeSharedGeneralizations [ sharedGeneralizations at: #AssociationClass put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLAssociationClass >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLAssociationClass >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> isDerived [ ^ (sharedGeneralizations at: #Association) isDerived ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> isDerived: aBoolean [ (sharedGeneralizations at: #Association) isDerived: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociationClass >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociationClass >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> memberEnds [ ^ (sharedGeneralizations at: #Association) memberEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> memberEnds: aProperty [ (sharedGeneralizations at: #Association) memberEnds: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> navigableOwnedEnds [ ^ (sharedGeneralizations at: #Association) navigableOwnedEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> navigableOwnedEnds: aProperty [ (sharedGeneralizations at: #Association) navigableOwnedEnds: aProperty ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLAssociationClass >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLAssociationClass >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLAssociationClass >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLAssociationClass >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> ownedEnds [ ^ (sharedGeneralizations at: #Association) ownedEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLAssociationClass >> ownedEnds: aProperty [ (sharedGeneralizations at: #Association) ownedEnds: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLAssociationClass >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLAssociationClass >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAssociationClass >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLAssociationClass >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLAssociationClass >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLAssociationClass >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLAssociationClass >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLAssociationClass >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLAssociationClass >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLAssociationClass >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLAssociationClass >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociationClass >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociationClass >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociationClass >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLAssociationClass >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLAssociationClass >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLAssociationClass >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLAssociationClass >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLAssociationClass >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLAssociationClass >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLAssociationClass >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLAssociationClass >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLAssociationClass >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAssociationClass >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLAssociationClass >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLBehavior.class.st b/repository/OP-UML-Metamodel/OPUMLBehavior.class.st index 5a1379f..4a3a7ae 100644 --- a/repository/OP-UML-Metamodel/OPUMLBehavior.class.st +++ b/repository/OP-UML-Metamodel/OPUMLBehavior.class.st @@ -2,8 +2,8 @@ Behavior is a specification of how its context BehavioredClassifier changes state over time. This specification may be either a definition of possible behavior execution or emergent behavior, or a selective illustration of an interesting subset of possible executions. The latter form is typically used for capturing examples, such as a trace of a particular execution. " Class { - #name : #OPUMLBehavior, - #superclass : #OPUMLElement, + #name : 'OPUMLBehavior', + #superclass : 'OPUMLElement', #instVars : [ 'redefinedBehaviors', 'specification', @@ -14,30 +14,32 @@ Class { 'isReentrant', 'preconditions' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavior >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavior >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavior >> behavioredClassifierStub [ "The first BehavioredClassifier reached by following the chain of owner relationships from the Behavior, if any." @@ -55,49 +57,49 @@ endif ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLBehavior >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLBehavior >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> context [ "The BehavioredClassifier that is the context for the execution of the Behavior. A Behavior that is directly owned as a nestedClassifier does not have a context. Otherwise, to determine the context of a Behavior, find the first BehavioredClassifier reached by following the chain of owner relationships from the Behavior, if any. If there is such a BehavioredClassifier, then it is the context, unless it is itself a Behavior with a non-empty context, in which case that is also the context for the original Behavior. For example, following this algorithm, the context of an entry Behavior in a StateMachine is the BehavioredClassifier that owns the StateMachine. The features of the context BehavioredClassifier as well as the Elements visible to the context Classifier are visible to the Behavior." ^ context ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> context: aBehavioredClassifier [ "The BehavioredClassifier that is the context for the execution of the Behavior. A Behavior that is directly owned as a nestedClassifier does not have a context. Otherwise, to determine the context of a Behavior, find the first BehavioredClassifier reached by following the chain of owner relationships from the Behavior, if any. If there is such a BehavioredClassifier, then it is the context, unless it is itself a Behavior with a non-empty context, in which case that is also the context for the original Behavior. For example, following this algorithm, the context of an entry Behavior in a StateMachine is the BehavioredClassifier that owns the StateMachine. The features of the context BehavioredClassifier as well as the Elements visible to the context Classifier are visible to the Behavior." context := aBehavioredClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavior >> contextStub [ "A Behavior that is directly owned as a nestedClassifier does not have a context. Otherwise, to determine the context of a Behavior, find the first BehavioredClassifier reached by following the chain of owner relationships from the Behavior, if any. If there is such a BehavioredClassifier, then it is the context, unless it is itself a Behavior with a non-empty context, in which case that is also the context for the original Behavior. " @@ -117,89 +119,89 @@ endif ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavior >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehavior >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Class. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehavior >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -216,7 +218,7 @@ OPUMLBehavior >> initializeSharedGeneralizations [ sharedGeneralizations at: #Behavior put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavior >> inputParametersStub [ "The in and inout ownedParameters of the Behavior." @@ -226,119 +228,119 @@ OPUMLBehavior >> inputParametersStub [ ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLBehavior >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLBehavior >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavior >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavior >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> isReentrant [ "Tells whether the Behavior can be invoked while it is still executing from a previous invocation." ^ isReentrant ifNil: [ isReentrant := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> isReentrant: aBoolean [ "Tells whether the Behavior can be invoked while it is still executing from a previous invocation." isReentrant := aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavior >> outputParametersStub [ "The out, inout and return ownedParameters." @@ -348,288 +350,288 @@ OPUMLBehavior >> outputParametersStub [ ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLBehavior >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLBehavior >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLBehavior >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLBehavior >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> ownedParameterSets [ "The ParameterSets owned by this Behavior." ^ ownedParameterSets ifNil: [ ownedParameterSets := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> ownedParameterSets: aParameterSet [ "The ParameterSets owned by this Behavior." ownedParameterSets := aParameterSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> ownedParameters [ "References a list of Parameters to the Behavior which describes the order and type of arguments that can be given when the Behavior is invoked and of the values which will be returned when the Behavior completes its execution." ^ ownedParameters ifNil: [ ownedParameters := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> ownedParameters: aParameter [ "References a list of Parameters to the Behavior which describes the order and type of arguments that can be given when the Behavior is invoked and of the values which will be returned when the Behavior completes its execution." ownedParameters := aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLBehavior >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLBehavior >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLBehavior >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLBehavior >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLBehavior >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLBehavior >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavior >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavior >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLBehavior >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLBehavior >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> postconditions [ "An optional set of Constraints specifying what is fulfilled after the execution of the Behavior is completed, if its precondition was fulfilled before its invocation." ^ postconditions ifNil: [ postconditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> postconditions: aConstraint [ "An optional set of Constraints specifying what is fulfilled after the execution of the Behavior is completed, if its precondition was fulfilled before its invocation." postconditions := aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> preconditions [ "An optional set of Constraints specifying what must be fulfilled before the Behavior is invoked." ^ preconditions ifNil: [ preconditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> preconditions: aConstraint [ "An optional set of Constraints specifying what must be fulfilled before the Behavior is invoked." preconditions := aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavior >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> redefinedBehaviors [ "References the Behavior that this Behavior redefines. A subtype of Behavior may redefine any other subtype of Behavior. If the Behavior implements a BehavioralFeature, it replaces the redefined Behavior. If the Behavior is a classifierBehavior, it extends the redefined Behavior." ^ redefinedBehaviors ifNil: [ redefinedBehaviors := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> redefinedBehaviors: aBehavior [ "References the Behavior that this Behavior redefines. A subtype of Behavior may redefine any other subtype of Behavior. If the Behavior implements a BehavioralFeature, it replaces the redefined Behavior. If the Behavior is a classifierBehavior, it extends the redefined Behavior." redefinedBehaviors := aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavior >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavior >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavior >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavior >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLBehavior >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLBehavior >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> specification [ "Designates a BehavioralFeature that the Behavior implements. The BehavioralFeature must be owned by the BehavioredClassifier that owns the Behavior or be inherited by it. The Parameters of the BehavioralFeature and the implementing Behavior must match. A Behavior does not need to have a specification, in which case it either is the classifierBehavior of a BehavioredClassifier or it can only be invoked by another Behavior of the Classifier." ^ specification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavior >> specification: aBehavioralFeature [ "Designates a BehavioralFeature that the Behavior implements. The BehavioralFeature must be owned by the BehavioredClassifier that owns the Behavior or be inherited by it. The Parameters of the BehavioralFeature and the implementing Behavior must match. A Behavior does not need to have a specification, in which case it either is the classifierBehavior of a BehavioredClassifier or it can only be invoked by another Behavior of the Classifier." specification := OPUMLToOneLink @@ -639,62 +641,62 @@ OPUMLBehavior >> specification: aBehavioralFeature [ to: aBehavioralFeature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLBehavior >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLBehavior >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLBehavior >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavior >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLBehavior >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLBehavior >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLBehaviorExecutionSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLBehaviorExecutionSpecification.class.st index 3526219..4080e89 100644 --- a/repository/OP-UML-Metamodel/OPUMLBehaviorExecutionSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLBehaviorExecutionSpecification.class.st @@ -2,94 +2,96 @@ A BehaviorExecutionSpecification is a kind of ExecutionSpecification representing the execution of a Behavior. " Class { - #name : #OPUMLBehaviorExecutionSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLBehaviorExecutionSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'behavior' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehaviorExecutionSpecification >> behavior [ "Behavior whose execution is occurring." ^ behavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehaviorExecutionSpecification >> behavior: aBehavior [ "Behavior whose execution is occurring." behavior := aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLBehaviorExecutionSpecification >> finish [ ^ (sharedGeneralizations at: #ExecutionSpecification) finish ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLBehaviorExecutionSpecification >> finish: anOccurrenceSpecification [ (sharedGeneralizations at: #ExecutionSpecification) finish: anOccurrenceSpecification ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLBehaviorExecutionSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehaviorExecutionSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ExecutionSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehaviorExecutionSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -97,62 +99,62 @@ OPUMLBehaviorExecutionSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #BehaviorExecutionSpecification put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLBehaviorExecutionSpecification >> start [ ^ (sharedGeneralizations at: #ExecutionSpecification) start ] -{ #category : #'accessing - ExecutionSpecification' } +{ #category : 'accessing - ExecutionSpecification' } OPUMLBehaviorExecutionSpecification >> start: anOccurrenceSpecification [ (sharedGeneralizations at: #ExecutionSpecification) start: anOccurrenceSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehaviorExecutionSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLBehavioralFeature.class.st b/repository/OP-UML-Metamodel/OPUMLBehavioralFeature.class.st index 39de429..208f14d 100644 --- a/repository/OP-UML-Metamodel/OPUMLBehavioralFeature.class.st +++ b/repository/OP-UML-Metamodel/OPUMLBehavioralFeature.class.st @@ -2,8 +2,8 @@ A BehavioralFeature is a feature of a Classifier that specifies an aspect of the behavior of its instances. A BehavioralFeature is implemented (realized) by a Behavior. A BehavioralFeature specifies that a Classifier will respond to a designated request by invoking its implementing method. " Class { - #name : #OPUMLBehavioralFeature, - #superclass : #OPUMLElement, + #name : 'OPUMLBehavioralFeature', + #superclass : 'OPUMLElement', #instVars : [ 'concurrency', 'raisedExceptions', @@ -12,62 +12,64 @@ Class { 'methods', 'ownedParameters' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> concurrency [ "Specifies the semantics of concurrent calls to the same passive instance (i.e., an instance originating from a Class with isActive being false). Active instances control access to their own BehavioralFeatures." ^ concurrency ifNil: [ concurrency := OPUMLCallConcurrencyKind new sequential ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> concurrency: aCallConcurrencyKind [ "Specifies the semantics of concurrent calls to the same passive instance (i.e., an instance originating from a Class with isActive being false). Active instances control access to their own BehavioralFeatures." concurrency := aCallConcurrencyKind ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLBehavioralFeature >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLBehavioralFeature >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehavioralFeature >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Feature. @@ -75,7 +77,7 @@ OPUMLBehavioralFeature >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehavioralFeature >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -84,7 +86,7 @@ OPUMLBehavioralFeature >> initializeSharedGeneralizations [ sharedGeneralizations at: #BehavioralFeature put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavioralFeature >> inputParametersStub [ "The ownedParameters with direction in and inout." @@ -94,19 +96,19 @@ OPUMLBehavioralFeature >> inputParametersStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> isAbstract [ "If true, then the BehavioralFeature does not have an implementation, and one must be supplied by a more specific Classifier. If false, the BehavioralFeature must have an implementation in the Classifier or one must be inherited." ^ isAbstract ifNil: [ isAbstract := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> isAbstract: aBoolean [ "If true, then the BehavioralFeature does not have an implementation, and one must be supplied by a more specific Classifier. If false, the BehavioralFeature must have an implementation in the Classifier or one must be inherited." isAbstract := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavioralFeature >> isDistinguishableFromStub [ "The query isDistinguishableFrom() determines whether two BehavioralFeatures may coexist in the same Namespace. It specifies that they must have different signatures." @@ -120,43 +122,43 @@ OPUMLBehavioralFeature >> isDistinguishableFromStub [ ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioralFeature >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioralFeature >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLBehavioralFeature >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLBehavioralFeature >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> methods [ "A Behavior that implements the BehavioralFeature. There may be at most one Behavior for a particular pairing of a Classifier (as owner of the Behavior) and a BehavioralFeature (as specification of the Behavior)." ^ methods ifNil: [ methods := OPUMLToManyLinks on: self identity opposite: #specification: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> methods: aBehavior [ "A Behavior that implements the BehavioralFeature. There may be at most one Behavior for a particular pairing of a Classifier (as owner of the Behavior) and a BehavioralFeature (as specification of the Behavior)." self methods @@ -164,37 +166,37 @@ OPUMLBehavioralFeature >> methods: aBehavior [ addAll: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLBehavioralFeature >> outputParametersStub [ "The ownedParameters with direction out, inout, or return." @@ -204,108 +206,108 @@ OPUMLBehavioralFeature >> outputParametersStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> ownedParameterSets [ "The ParameterSets owned by this BehavioralFeature." ^ ownedParameterSets ifNil: [ ownedParameterSets := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> ownedParameterSets: aParameterSet [ "The ParameterSets owned by this BehavioralFeature." ownedParameterSets := aParameterSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> ownedParameters [ "The ordered set of formal Parameters of this BehavioralFeature." ^ ownedParameters ifNil: [ ownedParameters := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> ownedParameters: aParameter [ "The ordered set of formal Parameters of this BehavioralFeature." ownedParameters := aParameter ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioralFeature >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> raisedExceptions [ "The Types representing exceptions that may be raised during an invocation of this BehavioralFeature." ^ raisedExceptions ifNil: [ raisedExceptions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioralFeature >> raisedExceptions: aType [ "The Types representing exceptions that may be raised during an invocation of this BehavioralFeature." raisedExceptions := aType ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioralFeature >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioralFeature >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioralFeature >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioralFeature >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioralFeature >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLBehavioredClassifier.class.st b/repository/OP-UML-Metamodel/OPUMLBehavioredClassifier.class.st index 443e723..f61bd70 100644 --- a/repository/OP-UML-Metamodel/OPUMLBehavioredClassifier.class.st +++ b/repository/OP-UML-Metamodel/OPUMLBehavioredClassifier.class.st @@ -2,141 +2,143 @@ A BehavioredClassifier may have InterfaceRealizations, and owns a set of Behaviors one of which may specify the behavior of the BehavioredClassifier itself. " Class { - #name : #OPUMLBehavioredClassifier, - #superclass : #OPUMLElement, + #name : 'OPUMLBehavioredClassifier', + #superclass : 'OPUMLElement', #instVars : [ 'interfaceRealizations', 'ownedBehaviors', 'classifierBehavior' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavioredClassifier >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavioredClassifier >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioredClassifier >> classifierBehavior [ "A Behavior that specifies the behavior of the BehavioredClassifier itself." ^ classifierBehavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioredClassifier >> classifierBehavior: aBehavior [ "A Behavior that specifies the behavior of the BehavioredClassifier itself." classifierBehavior := aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavioredClassifier >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehavioredClassifier >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBehavioredClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -149,13 +151,13 @@ OPUMLBehavioredClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #BehavioredClassifier put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioredClassifier >> interfaceRealizations [ "The set of InterfaceRealizations owned by the BehavioredClassifier. Interface realizations reference the Interfaces of which the BehavioredClassifier is an implementation." ^ interfaceRealizations ifNil: [ interfaceRealizations := OPUMLToManyLinks on: self identity opposite: #implementingClassifier: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioredClassifier >> interfaceRealizations: anInterfaceRealization [ "The set of InterfaceRealizations owned by the BehavioredClassifier. Interface realizations reference the Interfaces of which the BehavioredClassifier is an implementation." self interfaceRealizations @@ -163,269 +165,269 @@ OPUMLBehavioredClassifier >> interfaceRealizations: anInterfaceRealization [ addAll: anInterfaceRealization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioredClassifier >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioredClassifier >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioredClassifier >> ownedBehaviors [ "Behaviors owned by a BehavioredClassifier." ^ ownedBehaviors ifNil: [ ownedBehaviors := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBehavioredClassifier >> ownedBehaviors: aBehavior [ "Behaviors owned by a BehavioredClassifier." ownedBehaviors := aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLBehavioredClassifier >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLBehavioredClassifier >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLBehavioredClassifier >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLBehavioredClassifier >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLBehavioredClassifier >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLBehavioredClassifier >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBehavioredClassifier >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioredClassifier >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioredClassifier >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioredClassifier >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBehavioredClassifier >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLBehavioredClassifier >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLBehavioredClassifier >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLBehavioredClassifier >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLBehavioredClassifier >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLBehavioredClassifier >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLBroadcastSignalAction.class.st b/repository/OP-UML-Metamodel/OPUMLBroadcastSignalAction.class.st index 120d801..e01e4c9 100644 --- a/repository/OP-UML-Metamodel/OPUMLBroadcastSignalAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLBroadcastSignalAction.class.st @@ -2,122 +2,124 @@ A BroadcastSignalAction is an InvocationAction that transmits a Signal instance to all the potential target objects in the system. Values from the argument InputPins are used to provide values for the attributes of the Signal. The requestor continues execution immediately after the Signal instances are sent out and cannot receive reply values. " Class { - #name : #OPUMLBroadcastSignalAction, - #superclass : #OPUMLElement, + #name : 'OPUMLBroadcastSignalAction', + #superclass : 'OPUMLElement', #instVars : [ 'signal' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLBroadcastSignalAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLBroadcastSignalAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLBroadcastSignalAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLBroadcastSignalAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBroadcastSignalAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InvocationAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLBroadcastSignalAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -128,174 +130,174 @@ OPUMLBroadcastSignalAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #BroadcastSignalAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBroadcastSignalAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBroadcastSignalAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLBroadcastSignalAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLBroadcastSignalAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLBroadcastSignalAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBroadcastSignalAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBroadcastSignalAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLBroadcastSignalAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBroadcastSignalAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLBroadcastSignalAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBroadcastSignalAction >> signal [ "The Signal whose instances are to be sent." ^ signal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLBroadcastSignalAction >> signal: aSignal [ "The Signal whose instances are to be sent." signal := aSignal ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLBroadcastSignalAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCallAction.class.st b/repository/OP-UML-Metamodel/OPUMLCallAction.class.st index e9da9a7..e3ca089 100644 --- a/repository/OP-UML-Metamodel/OPUMLCallAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCallAction.class.st @@ -2,123 +2,125 @@ CallAction is an abstract class for Actions that invoke a Behavior with given argument values and (if the invocation is synchronous) receive reply values. " Class { - #name : #OPUMLCallAction, - #superclass : #OPUMLElement, + #name : 'OPUMLCallAction', + #superclass : 'OPUMLElement', #instVars : [ 'isSynchronous', 'results' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCallAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCallAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InvocationAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -129,7 +131,7 @@ OPUMLCallAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #CallAction put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLCallAction >> inputParametersStub [ "Return the in and inout ownedParameters of the Behavior or Operation being called. (This operation is abstract and should be overridden by subclasses of CallAction.)" @@ -138,119 +140,119 @@ OPUMLCallAction >> inputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallAction >> isSynchronous [ "If true, the call is synchronous and the caller waits for completion of the invoked Behavior. If false, the call is asynchronous and the caller proceeds immediately and cannot receive return values." ^ isSynchronous ifNil: [ isSynchronous := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallAction >> isSynchronous: aBoolean [ "If true, the call is synchronous and the caller waits for completion of the invoked Behavior. If false, the call is asynchronous and the caller proceeds immediately and cannot receive return values." isSynchronous := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLCallAction >> outputParametersStub [ "Return the inout, out and return ownedParameters of the Behavior or Operation being called. (This operation is abstract and should be overridden by subclasses of CallAction.)" @@ -259,74 +261,74 @@ OPUMLCallAction >> outputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallAction >> results [ "The OutputPins on which the reply values from the invocation are placed (if the call is synchronous)." ^ results ifNil: [ results := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallAction >> results: anOutputPin [ "The OutputPins on which the reply values from the invocation are placed (if the call is synchronous)." results := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCallBehaviorAction.class.st b/repository/OP-UML-Metamodel/OPUMLCallBehaviorAction.class.st index 75b7df9..7caaaa1 100644 --- a/repository/OP-UML-Metamodel/OPUMLCallBehaviorAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCallBehaviorAction.class.st @@ -2,134 +2,136 @@ A CallBehaviorAction is a CallAction that invokes a Behavior directly. The argument values of the CallBehaviorAction are passed on the input Parameters of the invoked Behavior. If the call is synchronous, the execution of the CallBehaviorAction waits until the execution of the invoked Behavior completes and the values of output Parameters of the Behavior are placed on the result OutputPins. If the call is asynchronous, the CallBehaviorAction completes immediately and no results values can be provided. " Class { - #name : #OPUMLCallBehaviorAction, - #superclass : #OPUMLElement, + #name : 'OPUMLCallBehaviorAction', + #superclass : 'OPUMLElement', #instVars : [ 'behavior' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallBehaviorAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallBehaviorAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallBehaviorAction >> behavior [ "The Behavior being invoked." ^ behavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallBehaviorAction >> behavior: aBehavior [ "The Behavior being invoked." behavior := aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCallBehaviorAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCallBehaviorAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallBehaviorAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #CallAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallBehaviorAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -141,7 +143,7 @@ OPUMLCallBehaviorAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #CallBehaviorAction put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLCallBehaviorAction >> inputParametersStub [ "Return the in and inout ownedParameters of the Behavior being called." @@ -151,117 +153,117 @@ OPUMLCallBehaviorAction >> inputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallBehaviorAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallBehaviorAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallBehaviorAction >> isSynchronous [ ^ (sharedGeneralizations at: #CallAction) isSynchronous ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallBehaviorAction >> isSynchronous: aBoolean [ (sharedGeneralizations at: #CallAction) isSynchronous: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallBehaviorAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallBehaviorAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLCallBehaviorAction >> outputParametersStub [ "Return the inout, out and return ownedParameters of the Behavior being called." @@ -271,72 +273,72 @@ OPUMLCallBehaviorAction >> outputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallBehaviorAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallBehaviorAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallBehaviorAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallBehaviorAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallBehaviorAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallBehaviorAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallBehaviorAction >> results [ ^ (sharedGeneralizations at: #CallAction) results ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallBehaviorAction >> results: anOutputPin [ (sharedGeneralizations at: #CallAction) results: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallBehaviorAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCallConcurrencyKind.class.st b/repository/OP-UML-Metamodel/OPUMLCallConcurrencyKind.class.st index 52aefd8..5bc96e9 100644 --- a/repository/OP-UML-Metamodel/OPUMLCallConcurrencyKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCallConcurrencyKind.class.st @@ -2,47 +2,49 @@ CallConcurrencyKind is an Enumeration used to specify the semantics of concurrent calls to a BehavioralFeature. " Class { - #name : #OPUMLCallConcurrencyKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Classification' + #name : 'OPUMLCallConcurrencyKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLCallConcurrencyKind class >> concurrent [ "Multiple invocations of a BehavioralFeature that overlap in time may occur to one instance and all of them may proceed concurrently." ^ #concurrent ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLCallConcurrencyKind class >> guarded [ "Multiple invocations of a BehavioralFeature that overlap in time may occur to one instance, but only one is allowed to commence. The others are blocked until the performance of the currently executing BehavioralFeature is complete. It is the responsibility of the system designer to ensure that deadlocks do not occur due to simultaneous blocking." ^ #guarded ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLCallConcurrencyKind class >> sequential [ "No concurrency management mechanism is associated with the BehavioralFeature and, therefore, concurrency conflicts may occur. Instances that invoke a BehavioralFeature need to coordinate so that only one invocation to a target on any BehavioralFeature occurs at once." ^ #sequential ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallConcurrencyKind >> concurrent [ "Multiple invocations of a BehavioralFeature that overlap in time may occur to one instance and all of them may proceed concurrently." ^ #concurrent ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallConcurrencyKind >> guarded [ "Multiple invocations of a BehavioralFeature that overlap in time may occur to one instance, but only one is allowed to commence. The others are blocked until the performance of the currently executing BehavioralFeature is complete. It is the responsibility of the system designer to ensure that deadlocks do not occur due to simultaneous blocking." ^ #guarded ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallConcurrencyKind >> sequential [ "No concurrency management mechanism is associated with the BehavioralFeature and, therefore, concurrency conflicts may occur. Instances that invoke a BehavioralFeature need to coordinate so that only one invocation to a target on any BehavioralFeature occurs at once." ^ #sequential diff --git a/repository/OP-UML-Metamodel/OPUMLCallEvent.class.st b/repository/OP-UML-Metamodel/OPUMLCallEvent.class.st index 87c63e3..e71567d 100644 --- a/repository/OP-UML-Metamodel/OPUMLCallEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCallEvent.class.st @@ -2,32 +2,34 @@ A CallEvent models the receipt by an object of a message invoking a call of an Operation. " Class { - #name : #OPUMLCallEvent, - #superclass : #OPUMLElement, + #name : 'OPUMLCallEvent', + #superclass : 'OPUMLElement', #instVars : [ 'operation' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MessageEvent. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -37,84 +39,84 @@ OPUMLCallEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #CallEvent put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallEvent >> operation [ "Designates the Operation whose invocation raised the CalEvent." ^ operation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallEvent >> operation: anOperation [ "Designates the Operation whose invocation raised the CalEvent." operation := anOperation ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCallEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCallEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCallEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCallEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLCallEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLCallEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCallOperationAction.class.st b/repository/OP-UML-Metamodel/OPUMLCallOperationAction.class.st index d439ac2..5b5afbe 100644 --- a/repository/OP-UML-Metamodel/OPUMLCallOperationAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCallOperationAction.class.st @@ -2,123 +2,125 @@ A CallOperationAction is a CallAction that transmits an Operation call request to the target object, where it may cause the invocation of associated Behavior. The argument values of the CallOperationAction are passed on the input Parameters of the Operation. If call is synchronous, the execution of the CallOperationAction waits until the execution of the invoked Operation completes and the values of output Parameters of the Operation are placed on the result OutputPins. If the call is asynchronous, the CallOperationAction completes immediately and no results values can be provided. " Class { - #name : #OPUMLCallOperationAction, - #superclass : #OPUMLElement, + #name : 'OPUMLCallOperationAction', + #superclass : 'OPUMLElement', #instVars : [ 'operation', 'target' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallOperationAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallOperationAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCallOperationAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCallOperationAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallOperationAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #CallAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCallOperationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -130,7 +132,7 @@ OPUMLCallOperationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #CallOperationAction put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLCallOperationAction >> inputParametersStub [ "Return the in and inout ownedParameters of the Operation being called." @@ -140,129 +142,129 @@ OPUMLCallOperationAction >> inputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallOperationAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallOperationAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallOperationAction >> isSynchronous [ ^ (sharedGeneralizations at: #CallAction) isSynchronous ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallOperationAction >> isSynchronous: aBoolean [ (sharedGeneralizations at: #CallAction) isSynchronous: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallOperationAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLCallOperationAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallOperationAction >> operation [ "The Operation being invoked." ^ operation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallOperationAction >> operation: anOperation [ "The Operation being invoked." operation := anOperation ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLCallOperationAction >> outputParametersStub [ "Return the inout, out and return ownedParameters of the Operation being called." @@ -272,84 +274,84 @@ OPUMLCallOperationAction >> outputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCallOperationAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallOperationAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallOperationAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCallOperationAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallOperationAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCallOperationAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallOperationAction >> results [ ^ (sharedGeneralizations at: #CallAction) results ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLCallOperationAction >> results: anOutputPin [ (sharedGeneralizations at: #CallAction) results: anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallOperationAction >> target [ "The InputPin that provides the target object to which the Operation call request is sent." ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCallOperationAction >> target: anInputPin [ "The InputPin that provides the target object to which the Operation call request is sent." target := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCallOperationAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCentralBufferNode.class.st b/repository/OP-UML-Metamodel/OPUMLCentralBufferNode.class.st index 1dd87e7..000ca71 100644 --- a/repository/OP-UML-Metamodel/OPUMLCentralBufferNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCentralBufferNode.class.st @@ -2,99 +2,101 @@ A CentralBufferNode is an ObjectNode for managing flows from multiple sources and targets. " Class { - #name : #OPUMLCentralBufferNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLCentralBufferNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCentralBufferNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ObjectNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCentralBufferNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -104,152 +106,152 @@ OPUMLCentralBufferNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #CentralBufferNode put: self. ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCentralBufferNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCentralBufferNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCentralBufferNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCentralBufferNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCentralBufferNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCentralBufferNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCentralBufferNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLCentralBufferNode >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLCentralBufferNode >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> upperBound [ ^ (sharedGeneralizations at: #ObjectNode) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLCentralBufferNode >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCentralBufferNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLChangeEvent.class.st b/repository/OP-UML-Metamodel/OPUMLChangeEvent.class.st index 0154784..a60a6b9 100644 --- a/repository/OP-UML-Metamodel/OPUMLChangeEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLChangeEvent.class.st @@ -2,44 +2,46 @@ A ChangeEvent models a change in the system configuration that makes a condition true. " Class { - #name : #OPUMLChangeEvent, - #superclass : #OPUMLElement, + #name : 'OPUMLChangeEvent', + #superclass : 'OPUMLElement', #instVars : [ 'changeExpression' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLChangeEvent >> changeExpression [ "A Boolean-valued ValueSpecification that will result in a ChangeEvent whenever its value changes from false to true." ^ changeExpression ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLChangeEvent >> changeExpression: aValueSpecification [ "A Boolean-valued ValueSpecification that will result in a ChangeEvent whenever its value changes from false to true." changeExpression := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLChangeEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Event. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLChangeEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -48,72 +50,72 @@ OPUMLChangeEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ChangeEvent put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLChangeEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLChangeEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLChangeEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLChangeEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLChangeEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLChangeEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLChangeEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLClass.class.st b/repository/OP-UML-Metamodel/OPUMLClass.class.st index 3e83d19..be8d0f0 100644 --- a/repository/OP-UML-Metamodel/OPUMLClass.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClass.class.st @@ -3,8 +3,8 @@ A Class classifies a set of objects and specifies the features that characterize " Class { - #name : #OPUMLClass, - #superclass : #OPUMLElement, + #name : 'OPUMLClass', + #superclass : 'OPUMLElement', #instVars : [ 'isActive', 'extensions', @@ -15,70 +15,72 @@ Class { 'ownedOperations', 'ownedReceptions' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLClass >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLClass >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLClass >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLClass >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClass >> extensionStub [ "Derivation for Class::/extension : Extension" @@ -90,13 +92,13 @@ OPUMLClass >> extensionStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> extensions [ "This property is used when the Class is acting as a metaclass. It references the Extensions that specify additional properties of the metaclass. The property is derived from the Extensions whose memberEnds are typed by the Class." ^ extensions ifNil: [ extensions := OPUMLToManyLinks on: self identity opposite: #metaclass: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> extensions: anExtension [ "This property is used when the Class is acting as a metaclass. It references the Extensions that specify additional properties of the metaclass. The property is derived from the Extensions whose memberEnds are typed by the Class." self extensions @@ -104,62 +106,62 @@ OPUMLClass >> extensions: anExtension [ addAll: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLClass >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClass >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #BehavioredClassifier. @@ -167,7 +169,7 @@ OPUMLClass >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClass >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -183,119 +185,119 @@ OPUMLClass >> initializeSharedGeneralizations [ sharedGeneralizations at: #Class put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLClass >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLClass >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> isAbstract [ "If true, the Class does not provide a complete declaration and cannot be instantiated. An abstract Class is typically used as a target of Associations or Generalizations." ^ isAbstract ifNil: [ isAbstract := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> isAbstract: aBoolean [ "If true, the Class does not provide a complete declaration and cannot be instantiated. An abstract Class is typically used as a target of Associations or Generalizations." isAbstract := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> isActive [ "Determines whether an object specified by this Class is active or not. If true, then the owning Class is referred to as an active Class. If false, then such a Class is referred to as a passive Class." ^ isActive ifNil: [ isActive := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> isActive: aBoolean [ "Determines whether an object specified by this Class is active or not. If true, then the owning Class is referred to as an active Class. If false, then such a Class is referred to as a passive Class." isActive := aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClass >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClass >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> nestedClassifiers [ "The Classifiers owned by the Class that are not ownedBehaviors." ^ nestedClassifiers ifNil: [ nestedClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> nestedClassifiers: aClassifier [ "The Classifiers owned by the Class that are not ownedBehaviors." nestedClassifiers := aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> ownedAttributes [ "The attributes (i.e., the Properties) owned by the Class." ^ ownedAttributes ifNil: [ ownedAttributes := OPUMLToManyLinks on: self identity opposite: #owningClass: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> ownedAttributes: aProperty [ "The attributes (i.e., the Properties) owned by the Class." self ownedAttributes @@ -303,43 +305,43 @@ OPUMLClass >> ownedAttributes: aProperty [ addAll: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLClass >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLClass >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLClass >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLClass >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> ownedOperations [ "The Operations owned by the Class." ^ ownedOperations ifNil: [ ownedOperations := OPUMLToManyLinks on: self identity opposite: #owningClass: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> ownedOperations: anOperation [ "The Operations owned by the Class." self ownedOperations @@ -347,184 +349,184 @@ OPUMLClass >> ownedOperations: anOperation [ addAll: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLClass >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLClass >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> ownedReceptions [ "The Receptions owned by the Class." ^ ownedReceptions ifNil: [ ownedReceptions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> ownedReceptions: aReception [ "The Receptions owned by the Class." ownedReceptions := aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLClass >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLClass >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLClass >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLClass >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClass >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLClass >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLClass >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLClass >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClass >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClass >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClass >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClass >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClass >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLClass >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLClass >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClass >> superClassStub [ "Derivation for Class::/superClass : Class" @@ -534,54 +536,54 @@ OPUMLClass >> superClassStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> superClasses [ "The superclasses of a Class, derived from its Generalizations." ^ superClasses ifNil: [ superClasses := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClass >> superClasses: aClass [ "The superclasses of a Class, derived from its Generalizations." superClasses := aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLClass >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLClass >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLClass >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLClass >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLClass >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLClassifier.class.st b/repository/OP-UML-Metamodel/OPUMLClassifier.class.st index b4da363..b6987cc 100644 --- a/repository/OP-UML-Metamodel/OPUMLClassifier.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClassifier.class.st @@ -2,8 +2,8 @@ A Classifier represents a classification of instances according to their Features. " Class { - #name : #OPUMLClassifier, - #superclass : #OPUMLElement, + #name : 'OPUMLClassifier', + #superclass : 'OPUMLElement', #instVars : [ 'collaborationUses', 'inheritedMembers', @@ -22,10 +22,12 @@ Class { 'generalizations', 'redefinedClassifiers' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #operations } +{ #category : 'operations' } OPUMLClassifier >> allAttributes [ "The query allAttributes gives an ordered set of all owned and inherited attributes of the Classifier. All owned attributes appear before any inherited attributes, and the attributes inherited from any more specific parent Classifier appear before those of any more general parent Classifier. However, if the Classifier has multiple immediate parents, then the relative ordering of the sets of attributes from those parents is not defined." @@ -42,7 +44,7 @@ OPUMLClassifier >> allAttributes [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> allAttributesStub [ "The query allAttributes gives an ordered set of all owned and inherited attributes of the Classifier. All owned attributes appear before any inherited attributes, and the attributes inherited from any more specific parent Classifier appear before those of any more general parent Classifier. However, if the Classifier has multiple immediate parents, then the relative ordering of the sets of attributes from those parents is not defined." @@ -52,7 +54,7 @@ OPUMLClassifier >> allAttributesStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> allFeaturesStub [ "The query allFeatures() gives all of the Features in the namespace of the Classifier. In general, through mechanisms such as inheritance, this will be a larger set than feature." @@ -62,7 +64,7 @@ OPUMLClassifier >> allFeaturesStub [ ] -{ #category : #operations } +{ #category : 'operations' } OPUMLClassifier >> allParents [ "The query allParents() gives all of the direct and indirect ancestors of a generalized Classifier." @@ -72,7 +74,7 @@ OPUMLClassifier >> allParents [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> allParentsStub [ "The query allParents() gives all of the direct and indirect ancestors of a generalized Classifier." @@ -82,7 +84,7 @@ OPUMLClassifier >> allParentsStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> allRealizedInterfacesStub [ "The Interfaces realized by this Classifier and all of its generalizations" @@ -92,7 +94,7 @@ OPUMLClassifier >> allRealizedInterfacesStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> allSlottableFeaturesStub [ "All StructuralFeatures related to the Classifier that may have Slots, including direct attributes, inherited attributes, private attributes in generalizations, and memberEnds of Associations, but excluding redefined StructuralFeatures." @@ -105,7 +107,7 @@ OPUMLClassifier >> allSlottableFeaturesStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> allUsedInterfacesStub [ "The Interfaces used by this Classifier and all of its generalizations" @@ -115,41 +117,41 @@ OPUMLClassifier >> allUsedInterfacesStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> attributes [ "All of the Properties that are direct (i.e., not inherited or imported) attributes of the Classifier." ^ attributes ifNil: [ attributes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> attributes: aProperty [ "All of the Properties that are direct (i.e., not inherited or imported) attributes of the Classifier." attributes := aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> collaborationUses [ "The CollaborationUses owned by the Classifier." ^ collaborationUses ifNil: [ collaborationUses := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> collaborationUses: aCollaborationUse [ "The CollaborationUses owned by the Classifier." collaborationUses := aCollaborationUse ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> conformsToStub [ "The query conformsTo() gives true for a Classifier that defines a type that conforms to another. This is used, for example, in the specification of signature conformance for operations." @@ -164,7 +166,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> directlyRealizedInterfacesStub [ "The Interfaces directly realized by this Classifier" @@ -176,7 +178,7 @@ OPUMLClassifier >> directlyRealizedInterfacesStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> directlyUsedInterfacesStub [ "The Interfaces directly used by this Classifier" @@ -188,23 +190,23 @@ OPUMLClassifier >> directlyUsedInterfacesStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> features [ "Specifies each Feature directly defined in the classifier. Note that there may be members of the Classifier that are of the type Feature but are not included, e.g., inherited features." ^ features ifNil: [ features := OPUMLToManyLinks on: self identity opposite: #featuringClassifier: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> features: aFeature [ "Specifies each Feature directly defined in the classifier. Note that there may be members of the Classifier that are of the type Feature but are not included, e.g., inherited features." self features @@ -212,7 +214,7 @@ OPUMLClassifier >> features: aFeature [ addAll: aFeature ] -{ #category : #operations } +{ #category : 'operations' } OPUMLClassifier >> general [ "The general Classifiers are the ones referenced by the Generalization relationships." @@ -222,7 +224,7 @@ OPUMLClassifier >> general [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> generalStub [ "The general Classifiers are the ones referenced by the Generalization relationships." @@ -232,13 +234,13 @@ OPUMLClassifier >> generalStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> generalizations [ "The Generalization relationships for this Classifier. These Generalizations navigate to more general Classifiers in the generalization hierarchy." ^ generalizations ifNil: [ generalizations := OPUMLToManyLinks on: self identity opposite: #specific: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> generalizations: aGeneralization [ "The Generalization relationships for this Classifier. These Generalizations navigate to more general Classifiers in the generalization hierarchy." self generalizations @@ -246,19 +248,19 @@ OPUMLClassifier >> generalizations: aGeneralization [ addAll: aGeneralization ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> generals [ "The generalizing Classifiers for this Classifier." ^ generals ifNil: [ generals := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> generals: aClassifier [ "The generalizing Classifiers for this Classifier." generals := aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> hasVisibilityOfStub [ "The query hasVisibilityOf() determines whether a NamedElement is visible in the classifier. Non-private members are visible. It is only called when the argument is something owned by a parent." @@ -269,17 +271,17 @@ OPUMLClassifier >> hasVisibilityOfStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> inheritStub [ "The query inherit() defines how to inherit a set of elements passed as its argument. It excludes redefined elements from the result." @@ -293,7 +295,7 @@ OPUMLClassifier >> inheritStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> inheritableMembersStub [ "The query inheritableMembers() gives all of the members of a Classifier that may be inherited in one of its descendants, subject to whatever visibility restrictions apply." @@ -304,7 +306,7 @@ OPUMLClassifier >> inheritableMembersStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> inheritedMemberStub [ "The inheritedMember association is derived by inheriting the inheritable members of the parents." @@ -314,19 +316,19 @@ OPUMLClassifier >> inheritedMemberStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> inheritedMembers [ "All elements inherited by this Classifier from its general Classifiers." ^ inheritedMembers ifNil: [ inheritedMembers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> inheritedMembers: aNamedElement [ "All elements inherited by this Classifier from its general Classifiers." inheritedMembers := aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClassifier >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Namespace. @@ -336,7 +338,7 @@ OPUMLClassifier >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -348,41 +350,41 @@ OPUMLClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #Classifier put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> isAbstract [ "If true, the Classifier can only be instantiated by instantiating one of its specializations. An abstract Classifier is intended to be used by other Classifiers e.g., as the target of Associations or Generalizations." ^ isAbstract ifNil: [ isAbstract := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> isAbstract: aBoolean [ "If true, the Classifier can only be instantiated by instantiating one of its specializations. An abstract Classifier is intended to be used by other Classifiers e.g., as the target of Associations or Generalizations." isAbstract := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> isFinalSpecialization [ "If true, the Classifier cannot be specialized." ^ isFinalSpecialization ifNil: [ isFinalSpecialization := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> isFinalSpecialization: aBoolean [ "If true, the Classifier cannot be specialized." isFinalSpecialization := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClassifier >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClassifier >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> isSubstitutableForStub [ "" @@ -392,7 +394,7 @@ OPUMLClassifier >> isSubstitutableForStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> isTemplateStub [ "The query isTemplate() returns whether this Classifier is actually a template." @@ -402,7 +404,7 @@ OPUMLClassifier >> isTemplateStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> maySpecializeTypeStub [ "The query maySpecializeType() determines whether this classifier may have a generalization relationship to classifiers of the specified type. By default a classifier may specialize classifiers of the same or a more general type. It is intended to be redefined by classifiers that have different specialization constraints." @@ -412,73 +414,73 @@ OPUMLClassifier >> maySpecializeTypeStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> ownedTemplateSignature [ "The optional RedefinableTemplateSignature specifying the formal template parameters." ^ ownedTemplateSignature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> ownedTemplateSignature: aRedefinableTemplateSignature [ "The optional RedefinableTemplateSignature specifying the formal template parameters." |anOldOwnedTemplateSignature| @@ -492,49 +494,49 @@ OPUMLClassifier >> ownedTemplateSignature: aRedefinableTemplateSignature [ to: ownedTemplateSignature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> ownedUseCases [ "The UseCases owned by this classifier." ^ ownedUseCases ifNil: [ ownedUseCases := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> ownedUseCases: anUseCase [ "The UseCases owned by this classifier." ownedUseCases := anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLClassifier >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLClassifier >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLClassifier >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLClassifier >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLClassifier >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #operations } +{ #category : 'operations' } OPUMLClassifier >> parents [ "The query parents() gives all of the immediate ancestors of a generalized Classifier." @@ -544,7 +546,7 @@ OPUMLClassifier >> parents [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLClassifier >> parentsStub [ "The query parents() gives all of the immediate ancestors of a generalized Classifier." @@ -554,13 +556,13 @@ OPUMLClassifier >> parentsStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> powertypeExtents [ "The GeneralizationSet of which this Classifier is a power type." ^ powertypeExtents ifNil: [ powertypeExtents := OPUMLToManyLinks on: self identity opposite: #powertype: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> powertypeExtents: aGeneralizationSet [ "The GeneralizationSet of which this Classifier is a power type." self powertypeExtents @@ -568,67 +570,67 @@ OPUMLClassifier >> powertypeExtents: aGeneralizationSet [ addAll: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClassifier >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> redefinedClassifiers [ "The Classifiers redefined by this Classifier." ^ redefinedClassifiers ifNil: [ redefinedClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> redefinedClassifiers: aClassifier [ "The Classifiers redefined by this Classifier." redefinedClassifiers := aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClassifier >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClassifier >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClassifier >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClassifier >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> representation [ "A CollaborationUse which indicates the Collaboration that represents this Classifier." ^ representation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> representation: aCollaborationUse [ "A CollaborationUse which indicates the Collaboration that represents this Classifier." representation := aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> substitutions [ "The Substitutions owned by this Classifier." ^ substitutions ifNil: [ substitutions := OPUMLToManyLinks on: self identity opposite: #substitutingClassifier: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> substitutions: aSubstitution [ "The Substitutions owned by this Classifier." self substitutions @@ -636,23 +638,23 @@ OPUMLClassifier >> substitutions: aSubstitution [ addAll: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLClassifier >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLClassifier >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> templateParameter [ "TheClassifierTemplateParameter that exposes this element as a formal parameter." ^ templateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> templateParameter: aClassifierTemplateParameter [ "TheClassifierTemplateParameter that exposes this element as a formal parameter." |anOldTemplateParameter| @@ -666,13 +668,13 @@ OPUMLClassifier >> templateParameter: aClassifierTemplateParameter [ to: templateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> useCases [ "The set of UseCases for which this Classifier is the subject." ^ useCases ifNil: [ useCases := OPUMLManyToManyLinks on: self identity opposite: #subjects ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifier >> useCases: anUseCase [ "The set of UseCases for which this Classifier is the subject." self useCases @@ -680,12 +682,12 @@ OPUMLClassifier >> useCases: anUseCase [ addAll: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLClassifier >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLClassifier >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLClassifierTemplateParameter.class.st b/repository/OP-UML-Metamodel/OPUMLClassifierTemplateParameter.class.st index fe22541..949090a 100644 --- a/repository/OP-UML-Metamodel/OPUMLClassifierTemplateParameter.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClassifierTemplateParameter.class.st @@ -2,90 +2,92 @@ A ClassifierTemplateParameter exposes a Classifier as a formal template parameter. " Class { - #name : #OPUMLClassifierTemplateParameter, - #superclass : #OPUMLElement, + #name : 'OPUMLClassifierTemplateParameter', + #superclass : 'OPUMLElement', #instVars : [ 'allowSubstitutable', 'parameteredElement', 'constrainingClassifiers' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifierTemplateParameter >> allowSubstitutable [ "Constrains the required relationship between an actual parameter and the parameteredElement for this formal parameter." ^ allowSubstitutable ifNil: [ allowSubstitutable := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifierTemplateParameter >> allowSubstitutable: aBoolean [ "Constrains the required relationship between an actual parameter and the parameteredElement for this formal parameter." allowSubstitutable := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifierTemplateParameter >> constrainingClassifiers [ "The classifiers that constrain the argument that can be used for the parameter. If the allowSubstitutable attribute is true, then any Classifier that is compatible with this constraining Classifier can be substituted; otherwise, it must be either this Classifier or one of its specializations. If this property is empty, there are no constraints on the Classifier that can be used as an argument." ^ constrainingClassifiers ifNil: [ constrainingClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifierTemplateParameter >> constrainingClassifiers: aClassifier [ "The classifiers that constrain the argument that can be used for the parameter. If the allowSubstitutable attribute is true, then any Classifier that is compatible with this constraining Classifier can be substituted; otherwise, it must be either this Classifier or one of its specializations. If this property is empty, there are no constraints on the Classifier that can be used as an argument." constrainingClassifiers := aClassifier ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> default [ ^ (sharedGeneralizations at: #TemplateParameter) default ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> default: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) default: aParameterableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClassifierTemplateParameter >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TemplateParameter. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClassifierTemplateParameter >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateParameter put: (OPUMLTemplateParameter newOnShared: sharedGeneralizations). sharedGeneralizations at: #ClassifierTemplateParameter put: self. ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> ownedDefault [ ^ (sharedGeneralizations at: #TemplateParameter) ownedDefault ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> ownedDefault: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) ownedDefault: aParameterableElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> ownedParameteredElement [ ^ (sharedGeneralizations at: #TemplateParameter) ownedParameteredElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> ownedParameteredElement: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) ownedParameteredElement: aParameterableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifierTemplateParameter >> parameteredElement [ "The Classifier exposed by this ClassifierTemplateParameter." ^ parameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClassifierTemplateParameter >> parameteredElement: aClassifier [ "The Classifier exposed by this ClassifierTemplateParameter." |anOldParameteredElement| @@ -99,12 +101,12 @@ OPUMLClassifierTemplateParameter >> parameteredElement: aClassifier [ to: parameteredElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> signature [ ^ (sharedGeneralizations at: #TemplateParameter) signature ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLClassifierTemplateParameter >> signature: aTemplateSignature [ (sharedGeneralizations at: #TemplateParameter) signature: aTemplateSignature ] diff --git a/repository/OP-UML-Metamodel/OPUMLClause.class.st b/repository/OP-UML-Metamodel/OPUMLClause.class.st index 4243031..cd9d3a2 100644 --- a/repository/OP-UML-Metamodel/OPUMLClause.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClause.class.st @@ -2,8 +2,8 @@ A Clause is an Element that represents a single branch of a ConditionalNode, including a test and a body section. The body section is executed only if (but not necessarily if) the test section evaluates to true. " Class { - #name : #OPUMLClause, - #superclass : #OPUMLElement, + #name : 'OPUMLClause', + #superclass : 'OPUMLElement', #instVars : [ 'decider', 'bodies', @@ -12,63 +12,65 @@ Class { 'predecessorClauses', 'tests' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> bodies [ "The set of ExecutableNodes that are executed if the test evaluates to true and the Clause is chosen over other Clauses within the ConditionalNode that also have tests that evaluate to true." ^ bodies ifNil: [ bodies := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> bodies: anExecutableNode [ "The set of ExecutableNodes that are executed if the test evaluates to true and the Clause is chosen over other Clauses within the ConditionalNode that also have tests that evaluate to true." bodies := anExecutableNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> bodyOutputs [ "The OutputPins on Actions within the body section whose values are moved to the result OutputPins of the containing ConditionalNode after execution of the body." ^ bodyOutputs ifNil: [ bodyOutputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> bodyOutputs: anOutputPin [ "The OutputPins on Actions within the body section whose values are moved to the result OutputPins of the containing ConditionalNode after execution of the body." bodyOutputs := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> decider [ "An OutputPin on an Action in the test section whose Boolean value determines the result of the test." ^ decider ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> decider: anOutputPin [ "An OutputPin on an Action in the test section whose Boolean value determines the result of the test." decider := anOutputPin ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClause >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClause >> initializeSharedGeneralizations [ sharedGeneralizations at: #Clause put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> predecessorClauses [ "A set of Clauses whose tests must all evaluate to false before this Clause can evaluate its test." ^ predecessorClauses ifNil: [ predecessorClauses := OPUMLManyToManyLinks on: self identity opposite: #successorClauses ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> predecessorClauses: aClause [ "A set of Clauses whose tests must all evaluate to false before this Clause can evaluate its test." self predecessorClauses @@ -76,13 +78,13 @@ OPUMLClause >> predecessorClauses: aClause [ addAll: aClause ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> successorClauses [ "A set of Clauses that may not evaluate their tests unless the test for this Clause evaluates to false." ^ successorClauses ifNil: [ successorClauses := OPUMLManyToManyLinks on: self identity opposite: #predecessorClauses ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> successorClauses: aClause [ "A set of Clauses that may not evaluate their tests unless the test for this Clause evaluates to false." self successorClauses @@ -90,13 +92,13 @@ OPUMLClause >> successorClauses: aClause [ addAll: aClause ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> tests [ "The set of ExecutableNodes that are executed in order to provide a test result for the Clause." ^ tests ifNil: [ tests := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClause >> tests: anExecutableNode [ "The set of ExecutableNodes that are executed in order to provide a test result for the Clause." tests := anExecutableNode diff --git a/repository/OP-UML-Metamodel/OPUMLClearAssociationAction.class.st b/repository/OP-UML-Metamodel/OPUMLClearAssociationAction.class.st index 64e0594..06425f2 100644 --- a/repository/OP-UML-Metamodel/OPUMLClearAssociationAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClearAssociationAction.class.st @@ -2,125 +2,127 @@ A ClearAssociationAction is an Action that destroys all links of an Association in which a particular object participates. " Class { - #name : #OPUMLClearAssociationAction, - #superclass : #OPUMLElement, + #name : 'OPUMLClearAssociationAction', + #superclass : 'OPUMLElement', #instVars : [ 'object', 'association' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClearAssociationAction >> association [ "The Association to be cleared." ^ association ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClearAssociationAction >> association: anAssociation [ "The Association to be cleared." association := anAssociation ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLClearAssociationAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLClearAssociationAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClearAssociationAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClearAssociationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -130,164 +132,164 @@ OPUMLClearAssociationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ClearAssociationAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearAssociationAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearAssociationAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClearAssociationAction >> object [ "The InputPin that gives the object whose participation in the Association is to be cleared." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClearAssociationAction >> object: anInputPin [ "The InputPin that gives the object whose participation in the Association is to be cleared." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearAssociationAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearAssociationAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearAssociationAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearAssociationAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearAssociationAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearAssociationAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearAssociationAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLClearStructuralFeatureAction.class.st b/repository/OP-UML-Metamodel/OPUMLClearStructuralFeatureAction.class.st index a12139b..44b70e2 100644 --- a/repository/OP-UML-Metamodel/OPUMLClearStructuralFeatureAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClearStructuralFeatureAction.class.st @@ -2,112 +2,114 @@ A ClearStructuralFeatureAction is a StructuralFeatureAction that removes all values of a StructuralFeature. " Class { - #name : #OPUMLClearStructuralFeatureAction, - #superclass : #OPUMLElement, + #name : 'OPUMLClearStructuralFeatureAction', + #superclass : 'OPUMLElement', #instVars : [ 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLClearStructuralFeatureAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLClearStructuralFeatureAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClearStructuralFeatureAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuralFeatureAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClearStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,184 +120,184 @@ OPUMLClearStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ClearStructuralFeatureAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearStructuralFeatureAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearStructuralFeatureAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLClearStructuralFeatureAction >> object [ ^ (sharedGeneralizations at: #StructuralFeatureAction) object ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLClearStructuralFeatureAction >> object: anInputPin [ (sharedGeneralizations at: #StructuralFeatureAction) object: anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearStructuralFeatureAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearStructuralFeatureAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearStructuralFeatureAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearStructuralFeatureAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearStructuralFeatureAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearStructuralFeatureAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClearStructuralFeatureAction >> result [ "The OutputPin on which is put the input object as modified by the ClearStructuralFeatureAction." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLClearStructuralFeatureAction >> result: anOutputPin [ "The OutputPin on which is put the input object as modified by the ClearStructuralFeatureAction." result := anOutputPin ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLClearStructuralFeatureAction >> structuralFeature [ ^ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLClearStructuralFeatureAction >> structuralFeature: aStructuralFeature [ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature: aStructuralFeature ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearStructuralFeatureAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLClearVariableAction.class.st b/repository/OP-UML-Metamodel/OPUMLClearVariableAction.class.st index 58818e1..db5154b 100644 --- a/repository/OP-UML-Metamodel/OPUMLClearVariableAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLClearVariableAction.class.st @@ -2,109 +2,111 @@ A ClearVariableAction is a VariableAction that removes all values of a Variable. " Class { - #name : #OPUMLClearVariableAction, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Actions' + #name : 'OPUMLClearVariableAction', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLClearVariableAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLClearVariableAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClearVariableAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #VariableAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLClearVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -115,162 +117,162 @@ OPUMLClearVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ClearVariableAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearVariableAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearVariableAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLClearVariableAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearVariableAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearVariableAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLClearVariableAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearVariableAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLClearVariableAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLClearVariableAction >> variable [ ^ (sharedGeneralizations at: #VariableAction) variable ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLClearVariableAction >> variable: aVariable [ (sharedGeneralizations at: #VariableAction) variable: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLClearVariableAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCollaboration.class.st b/repository/OP-UML-Metamodel/OPUMLCollaboration.class.st index b66565b..e5fdf32 100644 --- a/repository/OP-UML-Metamodel/OPUMLCollaboration.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCollaboration.class.st @@ -2,142 +2,144 @@ A Collaboration describes a structure of collaborating elements (roles), each performing a specialized function, which collectively accomplish some desired functionality. " Class { - #name : #OPUMLCollaboration, - #superclass : #OPUMLElement, + #name : 'OPUMLCollaboration', + #superclass : 'OPUMLElement', #instVars : [ 'collaborationRoles' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCollaboration >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCollaboration >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLCollaboration >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLCollaboration >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCollaboration >> collaborationRoles [ "Represents the participants in the Collaboration." ^ collaborationRoles ifNil: [ collaborationRoles := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCollaboration >> collaborationRoles: aConnectableElement [ "Represents the participants in the Collaboration." collaborationRoles := aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCollaboration >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCollaboration >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuredClassifier. @@ -145,7 +147,7 @@ OPUMLCollaboration >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCollaboration >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -160,317 +162,317 @@ OPUMLCollaboration >> initializeSharedGeneralizations [ sharedGeneralizations at: #Collaboration put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLCollaboration >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLCollaboration >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCollaboration >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCollaboration >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> ownedAttributes [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedAttributes ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> ownedAttributes: aProperty [ (sharedGeneralizations at: #StructuredClassifier) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLCollaboration >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLCollaboration >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCollaboration >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCollaboration >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLCollaboration >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLCollaboration >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCollaboration >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCollaboration >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaboration >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCollaboration >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCollaboration >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCollaboration >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCollaboration >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLCollaboration >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLCollaboration >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLCollaboration >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCollaboration >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLCollaboration >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLCollaboration >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCollaborationUse.class.st b/repository/OP-UML-Metamodel/OPUMLCollaborationUse.class.st index 258ada7..9d607a5 100644 --- a/repository/OP-UML-Metamodel/OPUMLCollaborationUse.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCollaborationUse.class.st @@ -2,108 +2,110 @@ A CollaborationUse is used to specify the application of a pattern specified by a Collaboration to a specific situation. " Class { - #name : #OPUMLCollaborationUse, - #superclass : #OPUMLElement, + #name : 'OPUMLCollaborationUse', + #superclass : 'OPUMLElement', #instVars : [ 'roleBindings', 'type' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCollaborationUse >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCollaborationUse >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #CollaborationUse put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCollaborationUse >> roleBindings [ "A mapping between features of the Collaboration and features of the owning Classifier. This mapping indicates which ConnectableElement of the Classifier plays which role(s) in the Collaboration. A ConnectableElement may be bound to multiple roles in the same CollaborationUse (that is, it may play multiple roles)." ^ roleBindings ifNil: [ roleBindings := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCollaborationUse >> roleBindings: aDependency [ "A mapping between features of the Collaboration and features of the owning Classifier. This mapping indicates which ConnectableElement of the Classifier plays which role(s) in the Collaboration. A ConnectableElement may be bound to multiple roles in the same CollaborationUse (that is, it may play multiple roles)." roleBindings := aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCollaborationUse >> type [ "The Collaboration which is used in this CollaborationUse. The Collaboration defines the cooperation between its roles which are mapped to ConnectableElements relating to the Classifier owning the CollaborationUse." ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCollaborationUse >> type: aCollaboration [ "The Collaboration which is used in this CollaborationUse. The Collaboration defines the cooperation between its roles which are mapped to ConnectableElements relating to the Classifier owning the CollaborationUse." type := aCollaboration ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCollaborationUse >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCombinedFragment.class.st b/repository/OP-UML-Metamodel/OPUMLCombinedFragment.class.st index bbd0fb6..78c8785 100644 --- a/repository/OP-UML-Metamodel/OPUMLCombinedFragment.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCombinedFragment.class.st @@ -2,162 +2,164 @@ A CombinedFragment defines an expression of InteractionFragments. A CombinedFragment is defined by an interaction operator and corresponding InteractionOperands. Through the use of CombinedFragments the user will be able to describe a number of traces in a compact and concise manner. " Class { - #name : #OPUMLCombinedFragment, - #superclass : #OPUMLElement, + #name : 'OPUMLCombinedFragment', + #superclass : 'OPUMLElement', #instVars : [ 'interactionOperator', 'operands', 'cfragmentGates' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCombinedFragment >> cfragmentGates [ "Specifies the gates that form the interface between this CombinedFragment and its surroundings" ^ cfragmentGates ifNil: [ cfragmentGates := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCombinedFragment >> cfragmentGates: aGate [ "Specifies the gates that form the interface between this CombinedFragment and its surroundings" cfragmentGates := aGate ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLCombinedFragment >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCombinedFragment >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCombinedFragment >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). sharedGeneralizations at: #CombinedFragment put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCombinedFragment >> interactionOperator [ "Specifies the operation which defines the semantics of this combination of InteractionFragments." ^ interactionOperator ifNil: [ interactionOperator := OPUMLInteractionOperatorKind new seq ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCombinedFragment >> interactionOperator: anInteractionOperatorKind [ "Specifies the operation which defines the semantics of this combination of InteractionFragments." interactionOperator := anInteractionOperatorKind ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCombinedFragment >> operands [ "The set of operands of the combined fragment." ^ operands ifNil: [ operands := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCombinedFragment >> operands: anInteractionOperand [ "The set of operands of the combined fragment." operands := anInteractionOperand ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCombinedFragment >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLComment.class.st b/repository/OP-UML-Metamodel/OPUMLComment.class.st index f1ebc57..a2be3b4 100644 --- a/repository/OP-UML-Metamodel/OPUMLComment.class.st +++ b/repository/OP-UML-Metamodel/OPUMLComment.class.st @@ -2,46 +2,48 @@ A Comment is a textual annotation that can be attached to a set of Elements. " Class { - #name : #OPUMLComment, - #superclass : #OPUMLElement, + #name : 'OPUMLComment', + #superclass : 'OPUMLElement', #instVars : [ 'annotatedElements', 'body' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComment >> annotatedElements [ "References the Element(s) being commented." ^ annotatedElements ifNil: [ annotatedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComment >> annotatedElements: anElement [ "References the Element(s) being commented." annotatedElements := anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComment >> body [ "Specifies a string that is the comment." ^ body ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComment >> body: aString [ "Specifies a string that is the comment." body := aString ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLComment >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLComment >> initializeSharedGeneralizations [ sharedGeneralizations at: #Comment put: self. ] diff --git a/repository/OP-UML-Metamodel/OPUMLCommunicationPath.class.st b/repository/OP-UML-Metamodel/OPUMLCommunicationPath.class.st index d1dc1ed..a718231 100644 --- a/repository/OP-UML-Metamodel/OPUMLCommunicationPath.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCommunicationPath.class.st @@ -2,134 +2,136 @@ A communication path is an association between two deployment targets, through which they are able to exchange signals and messages. " Class { - #name : #OPUMLCommunicationPath, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Deployments' + #name : 'OPUMLCommunicationPath', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCommunicationPath >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCommunicationPath >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> endTypes [ ^ (sharedGeneralizations at: #Association) endTypes ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> endTypes: aType [ (sharedGeneralizations at: #Association) endTypes: aType ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCommunicationPath >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCommunicationPath >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Association. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCommunicationPath >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -144,307 +146,307 @@ OPUMLCommunicationPath >> initializeSharedGeneralizations [ sharedGeneralizations at: #CommunicationPath put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> isDerived [ ^ (sharedGeneralizations at: #Association) isDerived ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> isDerived: aBoolean [ (sharedGeneralizations at: #Association) isDerived: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCommunicationPath >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCommunicationPath >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> memberEnds [ ^ (sharedGeneralizations at: #Association) memberEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> memberEnds: aProperty [ (sharedGeneralizations at: #Association) memberEnds: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> navigableOwnedEnds [ ^ (sharedGeneralizations at: #Association) navigableOwnedEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> navigableOwnedEnds: aProperty [ (sharedGeneralizations at: #Association) navigableOwnedEnds: aProperty ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> ownedEnds [ ^ (sharedGeneralizations at: #Association) ownedEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLCommunicationPath >> ownedEnds: aProperty [ (sharedGeneralizations at: #Association) ownedEnds: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCommunicationPath >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLCommunicationPath >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLCommunicationPath >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLCommunicationPath >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLCommunicationPath >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLCommunicationPath >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCommunicationPath >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCommunicationPath >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCommunicationPath >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCommunicationPath >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCommunicationPath >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLCommunicationPath >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLCommunicationPath >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLCommunicationPath >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLCommunicationPath >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLCommunicationPath >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLCommunicationPath >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLCommunicationPath >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLComponent.class.st b/repository/OP-UML-Metamodel/OPUMLComponent.class.st index d966091..110eae2 100644 --- a/repository/OP-UML-Metamodel/OPUMLComponent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLComponent.class.st @@ -2,8 +2,8 @@ A Component represents a modular part of a system that encapsulates its contents and whose manifestation is replaceable within its environment. " Class { - #name : #OPUMLComponent, - #superclass : #OPUMLElement, + #name : 'OPUMLComponent', + #superclass : 'OPUMLElement', #instVars : [ 'realizations', 'isIndirectlyInstantiated', @@ -11,142 +11,144 @@ Class { 'packagedElements', 'provideds' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLComponent >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLComponent >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLComponent >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLComponent >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLComponent >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLComponent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Class. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLComponent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -163,286 +165,286 @@ OPUMLComponent >> initializeSharedGeneralizations [ sharedGeneralizations at: #Component put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLComponent >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLComponent >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> isIndirectlyInstantiated [ "If true, the Component is defined at design-time, but at run-time (or execution-time) an object specified by the Component does not exist, that is, the Component is instantiated indirectly, through the instantiation of its realizing Classifiers or parts." ^ isIndirectlyInstantiated ifNil: [ isIndirectlyInstantiated := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> isIndirectlyInstantiated: aBoolean [ "If true, the Component is defined at design-time, but at run-time (or execution-time) an object specified by the Component does not exist, that is, the Component is instantiated indirectly, through the instantiation of its realizing Classifiers or parts." isIndirectlyInstantiated := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLComponent >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLComponent >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLComponent >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLComponent >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLComponent >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLComponent >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLComponent >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLComponent >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLComponent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLComponent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLComponent >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLComponent >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLComponent >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> packagedElements [ "The set of PackageableElements that a Component owns. In the namespace of a Component, all model elements that are involved in or related to its definition may be owned or imported explicitly. These may include e.g., Classes, Interfaces, Components, Packages, UseCases, Dependencies (e.g., mappings), and Artifacts." ^ packagedElements ifNil: [ packagedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> packagedElements: aPackageableElement [ "The set of PackageableElements that a Component owns. In the namespace of a Component, all model elements that are involved in or related to its definition may be owned or imported explicitly. These may include e.g., Classes, Interfaces, Components, Packages, UseCases, Dependencies (e.g., mappings), and Artifacts." packagedElements := aPackageableElement ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLComponent >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLComponent >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLComponent >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLComponent >> providedStub [ "Derivation for Component::/provided" @@ -458,35 +460,35 @@ in ris->union(realizingClassifierInterfaces) ->union(providedByPorts)->asSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> provideds [ "The Interfaces that the Component exposes to its environment. These Interfaces may be Realized by the Component or any of its realizingClassifiers, or they may be the Interfaces that are provided by its public Ports." ^ provideds ifNil: [ provideds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> provideds: anInterface [ "The Interfaces that the Component exposes to its environment. These Interfaces may be Realized by the Component or any of its realizingClassifiers, or they may be the Interfaces that are provided by its public Ports." provideds := anInterface ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> realizations [ "The set of Realizations owned by the Component. Realizations reference the Classifiers of which the Component is an abstraction; i.e., that realize its behavior." ^ realizations ifNil: [ realizations := OPUMLToManyLinks on: self identity opposite: #abstraction: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> realizations: aComponentRealization [ "The set of Realizations owned by the Component. Realizations reference the Classifiers of which the Component is an abstraction; i.e., that realize its behavior." self realizations @@ -494,47 +496,47 @@ OPUMLComponent >> realizations: aComponentRealization [ addAll: aComponentRealization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLComponent >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLComponent >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLComponent >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLComponent >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLComponent >> requiredStub [ "Derivation for Component::/required" @@ -551,84 +553,84 @@ in uis->union(realizingClassifierInterfaces)->union(usedByPorts)->asSet() ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> requireds [ "The Interfaces that the Component requires from other Components in its environment in order to be able to offer its full set of provided functionality. These Interfaces may be used by the Component or any of its realizingClassifiers, or they may be the Interfaces that are required by its public Ports." ^ requireds ifNil: [ requireds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponent >> requireds: anInterface [ "The Interfaces that the Component requires from other Components in its environment in order to be able to offer its full set of provided functionality. These Interfaces may be used by the Component or any of its realizingClassifiers, or they may be the Interfaces that are required by its public Ports." requireds := anInterface ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLComponent >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLComponent >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLComponent >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLComponent >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLComponent >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLComponent >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLComponent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLComponent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLComponentRealization.class.st b/repository/OP-UML-Metamodel/OPUMLComponentRealization.class.st index c4b87e0..f8aa86f 100644 --- a/repository/OP-UML-Metamodel/OPUMLComponentRealization.class.st +++ b/repository/OP-UML-Metamodel/OPUMLComponentRealization.class.st @@ -2,22 +2,24 @@ Realization is specialized to (optionally) define the Classifiers that realize the contract offered by a Component in terms of its provided and required Interfaces. The Component forms an abstraction from these various Classifiers. " Class { - #name : #OPUMLComponentRealization, - #superclass : #OPUMLElement, + #name : 'OPUMLComponentRealization', + #superclass : 'OPUMLElement', #instVars : [ 'abstraction', 'realizingClassifiers' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponentRealization >> abstraction [ "The Component that owns this ComponentRealization and which is implemented by its realizing Classifiers." ^ abstraction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponentRealization >> abstraction: aComponent [ "The Component that owns this ComponentRealization and which is implemented by its realizing Classifiers." abstraction := OPUMLToOneLink @@ -27,34 +29,34 @@ OPUMLComponentRealization >> abstraction: aComponent [ to: aComponent ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLComponentRealization >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLComponentRealization >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLComponentRealization >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Realization. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLComponentRealization >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -67,134 +69,134 @@ OPUMLComponentRealization >> initializeSharedGeneralizations [ sharedGeneralizations at: #ComponentRealization put: self. ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLComponentRealization >> mapping [ ^ (sharedGeneralizations at: #Abstraction) mapping ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLComponentRealization >> mapping: anOpaqueExpression [ (sharedGeneralizations at: #Abstraction) mapping: anOpaqueExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLComponentRealization >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLComponentRealization >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLComponentRealization >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponentRealization >> realizingClassifiers [ "The Classifiers that are involved in the implementation of the Component that owns this Realization." ^ realizingClassifiers ifNil: [ realizingClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLComponentRealization >> realizingClassifiers: aClassifier [ "The Classifiers that are involved in the implementation of the Component that owns this Realization." realizingClassifiers := aClassifier ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLComponentRealization >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLComponentRealization >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLComponentRealization >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLComponentRealization >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLComponentRealization >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLComponentRealization >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLComponentRealization >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLComponentRealization >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLComponentRealization >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLComponentRealization >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLComponentRealization >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLComponentRealization >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLConditionalNode.class.st b/repository/OP-UML-Metamodel/OPUMLConditionalNode.class.st index 52d8744..4417bcb 100644 --- a/repository/OP-UML-Metamodel/OPUMLConditionalNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConditionalNode.class.st @@ -2,28 +2,30 @@ A ConditionalNode is a StructuredActivityNode that chooses one among some number of alternative collections of ExecutableNodes to execute. " Class { - #name : #OPUMLConditionalNode, - #superclass : #OPUMLElement, + #name : 'OPUMLConditionalNode', + #superclass : 'OPUMLElement', #instVars : [ 'clauses', 'isDeterminate', 'results', 'isAssured' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> activity [ ^ (sharedGeneralizations at: #StructuredActivityNode) activity ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> activity: anActivity [ (sharedGeneralizations at: #StructuredActivityNode) activity: anActivity ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLConditionalNode >> allActionsStub [ "Return only this ConditionalNode. This prevents Actions within the ConditionalNode from having their OutputPins used as bodyOutputs or decider Pins in containing LoopNodes or ConditionalNodes." @@ -33,166 +35,166 @@ OPUMLConditionalNode >> allActionsStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> clauses [ "The set of Clauses composing the ConditionalNode." ^ clauses ifNil: [ clauses := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> clauses: aClause [ "The set of Clauses composing the ConditionalNode." clauses := aClause ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> edges [ ^ (sharedGeneralizations at: #StructuredActivityNode) edges ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> edges: anActivityEdge [ (sharedGeneralizations at: #StructuredActivityNode) edges: anActivityEdge ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLConditionalNode >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLConditionalNode >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConditionalNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuredActivityNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConditionalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -205,298 +207,298 @@ OPUMLConditionalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ConditionalNode put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> isAssured [ "If true, the modeler asserts that the test for at least one Clause of the ConditionalNode will succeed." ^ isAssured ifNil: [ isAssured := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> isAssured: aBoolean [ "If true, the modeler asserts that the test for at least one Clause of the ConditionalNode will succeed." isAssured := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> isDeterminate [ "If true, the modeler asserts that the test for at most one Clause of the ConditionalNode will succeed." ^ isDeterminate ifNil: [ isDeterminate := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> isDeterminate: aBoolean [ "If true, the modeler asserts that the test for at most one Clause of the ConditionalNode will succeed." isDeterminate := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConditionalNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConditionalNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> mustIsolate [ ^ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> mustIsolate: aBoolean [ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> nodes [ ^ (sharedGeneralizations at: #StructuredActivityNode) nodes ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> nodes: anActivityNode [ (sharedGeneralizations at: #StructuredActivityNode) nodes: anActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLConditionalNode >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLConditionalNode >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConditionalNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConditionalNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLConditionalNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConditionalNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConditionalNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> results [ "The OutputPins that onto which are moved values from the bodyOutputs of the Clause selected for execution." ^ results ifNil: [ results := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConditionalNode >> results: anOutputPin [ "The OutputPins that onto which are moved values from the bodyOutputs of the Clause selected for execution." results := anOutputPin ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> structuredNodeInputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> structuredNodeInputs: anInputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs: anInputPin ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> structuredNodeOutputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> structuredNodeOutputs: anOutputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs: anOutputPin ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLConditionalNode >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> variables [ ^ (sharedGeneralizations at: #StructuredActivityNode) variables ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLConditionalNode >> variables: aVariable [ (sharedGeneralizations at: #StructuredActivityNode) variables: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConditionalNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLConnectableElement.class.st b/repository/OP-UML-Metamodel/OPUMLConnectableElement.class.st index a27d60c..ac7f6c6 100644 --- a/repository/OP-UML-Metamodel/OPUMLConnectableElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConnectableElement.class.st @@ -2,26 +2,28 @@ ConnectableElement is an abstract metaclass representing a set of instances that play roles of a StructuredClassifier. ConnectableElements may be joined by attached Connectors and specify configurations of linked instances to be created within an instance of the containing StructuredClassifier. " Class { - #name : #OPUMLConnectableElement, - #superclass : #OPUMLElement, + #name : 'OPUMLConnectableElement', + #superclass : 'OPUMLElement', #instVars : [ 'templateParameter', 'ends' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLConnectableElement >> endStub [ "Derivation for ConnectableElement::/end : ConnectorEnd" @@ -31,13 +33,13 @@ OPUMLConnectableElement >> endStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectableElement >> ends [ "A set of ConnectorEnds that attach to this ConnectableElement." ^ ends ifNil: [ ends := OPUMLToManyLinks on: self identity opposite: #role: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectableElement >> ends: aConnectorEnd [ "A set of ConnectorEnds that attach to this ConnectableElement." self ends @@ -45,7 +47,7 @@ OPUMLConnectableElement >> ends: aConnectorEnd [ addAll: aConnectorEnd ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectableElement >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TypedElement. @@ -53,7 +55,7 @@ OPUMLConnectableElement >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectableElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #TypedElement put: (OPUMLTypedElement newOnShared: sharedGeneralizations). @@ -61,63 +63,63 @@ OPUMLConnectableElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #ConnectableElement put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLConnectableElement >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLConnectableElement >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectableElement >> templateParameter [ "The ConnectableElementTemplateParameter for this ConnectableElement parameter." ^ templateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectableElement >> templateParameter: aConnectableElementTemplateParameter [ "The ConnectableElementTemplateParameter for this ConnectableElement parameter." |anOldTemplateParameter| @@ -131,22 +133,22 @@ OPUMLConnectableElement >> templateParameter: aConnectableElementTemplateParamet to: templateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLConnectableElement >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLConnectableElement >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectableElement >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLConnectableElementTemplateParameter.class.st b/repository/OP-UML-Metamodel/OPUMLConnectableElementTemplateParameter.class.st index b044b88..71a6ab8 100644 --- a/repository/OP-UML-Metamodel/OPUMLConnectableElementTemplateParameter.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConnectableElementTemplateParameter.class.st @@ -2,64 +2,66 @@ A ConnectableElementTemplateParameter exposes a ConnectableElement as a formal parameter for a template. " Class { - #name : #OPUMLConnectableElementTemplateParameter, - #superclass : #OPUMLElement, + #name : 'OPUMLConnectableElementTemplateParameter', + #superclass : 'OPUMLElement', #instVars : [ 'parameteredElement' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> default [ ^ (sharedGeneralizations at: #TemplateParameter) default ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> default: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) default: aParameterableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectableElementTemplateParameter >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TemplateParameter. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectableElementTemplateParameter >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateParameter put: (OPUMLTemplateParameter newOnShared: sharedGeneralizations). sharedGeneralizations at: #ConnectableElementTemplateParameter put: self. ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> ownedDefault [ ^ (sharedGeneralizations at: #TemplateParameter) ownedDefault ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> ownedDefault: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) ownedDefault: aParameterableElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> ownedParameteredElement [ ^ (sharedGeneralizations at: #TemplateParameter) ownedParameteredElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> ownedParameteredElement: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) ownedParameteredElement: aParameterableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectableElementTemplateParameter >> parameteredElement [ "The ConnectableElement for this ConnectableElementTemplateParameter." ^ parameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectableElementTemplateParameter >> parameteredElement: aConnectableElement [ "The ConnectableElement for this ConnectableElementTemplateParameter." |anOldParameteredElement| @@ -73,12 +75,12 @@ OPUMLConnectableElementTemplateParameter >> parameteredElement: aConnectableElem to: parameteredElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> signature [ ^ (sharedGeneralizations at: #TemplateParameter) signature ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLConnectableElementTemplateParameter >> signature: aTemplateSignature [ (sharedGeneralizations at: #TemplateParameter) signature: aTemplateSignature ] diff --git a/repository/OP-UML-Metamodel/OPUMLConnectionPointReference.class.st b/repository/OP-UML-Metamodel/OPUMLConnectionPointReference.class.st index 7963ade..61c26a3 100644 --- a/repository/OP-UML-Metamodel/OPUMLConnectionPointReference.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConnectionPointReference.class.st @@ -2,141 +2,143 @@ A ConnectionPointReference represents a usage (as part of a submachine State) of an entry/exit point Pseudostate defined in the StateMachine referenced by the submachine State. " Class { - #name : #OPUMLConnectionPointReference, - #superclass : #OPUMLElement, + #name : 'OPUMLConnectionPointReference', + #superclass : 'OPUMLElement', #instVars : [ 'exits', 'state', 'entries' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLConnectionPointReference >> container [ ^ (sharedGeneralizations at: #Vertex) container ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLConnectionPointReference >> container: aRegion [ (sharedGeneralizations at: #Vertex) container: aRegion ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectionPointReference >> entries [ "The entryPoint Pseudostates corresponding to this connection point." ^ entries ifNil: [ entries := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectionPointReference >> entries: aPseudostate [ "The entryPoint Pseudostates corresponding to this connection point." entries := aPseudostate ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectionPointReference >> exits [ "The exitPoints kind Pseudostates corresponding to this connection point." ^ exits ifNil: [ exits := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectionPointReference >> exits: aPseudostate [ "The exitPoints kind Pseudostates corresponding to this connection point." exits := aPseudostate ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLConnectionPointReference >> incomings [ ^ (sharedGeneralizations at: #Vertex) incomings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLConnectionPointReference >> incomings: aTransition [ (sharedGeneralizations at: #Vertex) incomings: aTransition ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectionPointReference >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Vertex. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectionPointReference >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Vertex put: (OPUMLVertex newOnShared: sharedGeneralizations). sharedGeneralizations at: #ConnectionPointReference put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLConnectionPointReference >> outgoings [ ^ (sharedGeneralizations at: #Vertex) outgoings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLConnectionPointReference >> outgoings: aTransition [ (sharedGeneralizations at: #Vertex) outgoings: aTransition ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectionPointReference >> state [ "The State in which the ConnectionPointReference is defined." ^ state ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectionPointReference >> state: aState [ "The State in which the ConnectionPointReference is defined." state := OPUMLToOneLink @@ -146,12 +148,12 @@ OPUMLConnectionPointReference >> state: aState [ to: aState ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnectionPointReference >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLConnector.class.st b/repository/OP-UML-Metamodel/OPUMLConnector.class.st index a8ca080..9093803 100644 --- a/repository/OP-UML-Metamodel/OPUMLConnector.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConnector.class.st @@ -2,8 +2,8 @@ A Connector specifies links that enables communication between two or more instances. In contrast to Associations, which specify links between any instance of the associated Classifiers, Connectors specify links between instances playing the connected parts only. " Class { - #name : #OPUMLConnector, - #superclass : #OPUMLElement, + #name : 'OPUMLConnector', + #superclass : 'OPUMLElement', #instVars : [ 'ends', 'redefinedConnectors', @@ -11,61 +11,63 @@ Class { 'type', 'contracts' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> contracts [ "The set of Behaviors that specify the valid interaction patterns across the Connector." ^ contracts ifNil: [ contracts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> contracts: aBehavior [ "The set of Behaviors that specify the valid interaction patterns across the Connector." contracts := aBehavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> ends [ "A Connector has at least two ConnectorEnds, each representing the participation of instances of the Classifiers typing the ConnectableElements attached to the end. The set of ConnectorEnds is ordered." ^ ends ifNil: [ ends := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> ends: aConnectorEnd [ "A Connector has at least two ConnectorEnds, each representing the participation of instances of the Classifiers typing the ConnectableElements attached to the end. The set of ConnectorEnds is ordered." ends := aConnectorEnd ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLConnector >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLConnector >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnector >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Feature. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnector >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -73,39 +75,39 @@ OPUMLConnector >> initializeSharedGeneralizations [ sharedGeneralizations at: #Connector put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConnector >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConnector >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLConnector >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLConnector >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> kind [ "Indicates the kind of Connector. This is derived: a Connector with one or more ends connected to a Port which is not on a Part and which is not a behavior port is a delegation; otherwise it is an assembly." ^ kind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> kind: aConnectorKind [ "Indicates the kind of Connector. This is derived: a Connector with one or more ends connected to a Port which is not on a Part and which is not a behavior port is a delegation; otherwise it is an assembly." kind := aConnectorKind ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLConnector >> kindStub [ "Derivation for Connector::/kind : ConnectorKind" @@ -121,96 +123,96 @@ endif)" ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> redefinedConnectors [ "A Connector may be redefined when its containing Classifier is specialized. The redefining Connector may have a type that specializes the type of the redefined Connector. The types of the ConnectorEnds of the redefining Connector may specialize the types of the ConnectorEnds of the redefined Connector. The properties of the ConnectorEnds of the redefining Connector may be replaced." ^ redefinedConnectors ifNil: [ redefinedConnectors := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> redefinedConnectors: aConnector [ "A Connector may be redefined when its containing Classifier is specialized. The redefining Connector may have a type that specializes the type of the redefined Connector. The types of the ConnectorEnds of the redefining Connector may specialize the types of the ConnectorEnds of the redefined Connector. The properties of the ConnectorEnds of the redefining Connector may be replaced." redefinedConnectors := aConnector ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConnector >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConnector >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConnector >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLConnector >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> type [ "An optional Association that classifies links corresponding to this Connector." ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnector >> type: anAssociation [ "An optional Association that classifies links corresponding to this Connector." type := anAssociation ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConnector >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLConnectorEnd.class.st b/repository/OP-UML-Metamodel/OPUMLConnectorEnd.class.st index dcc4954..587c476 100644 --- a/repository/OP-UML-Metamodel/OPUMLConnectorEnd.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConnectorEnd.class.st @@ -2,29 +2,31 @@ A ConnectorEnd is an endpoint of a Connector, which attaches the Connector to a ConnectableElement. " Class { - #name : #OPUMLConnectorEnd, - #superclass : #OPUMLElement, + #name : 'OPUMLConnectorEnd', + #superclass : 'OPUMLElement', #instVars : [ 'role', 'definingEnd', 'partWithPort' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorEnd >> definingEnd [ "A derived property referencing the corresponding end on the Association which types the Connector owing this ConnectorEnd, if any. It is derived by selecting the end at the same place in the ordering of Association ends as this ConnectorEnd." ^ definingEnd ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorEnd >> definingEnd: aProperty [ "A derived property referencing the corresponding end on the Association which types the Connector owing this ConnectorEnd, if any. It is derived by selecting the end at the same place in the ordering of Association ends as this ConnectorEnd." definingEnd := aProperty ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLConnectorEnd >> definingEndStub [ "Derivation for ConnectorEnd::/definingEnd : Property" @@ -40,88 +42,88 @@ endif)" ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectorEnd >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MultiplicityElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConnectorEnd >> initializeSharedGeneralizations [ sharedGeneralizations at: #MultiplicityElement put: (OPUMLMultiplicityElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ConnectorEnd put: self. ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLConnectorEnd >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLConnectorEnd >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLConnectorEnd >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorEnd >> partWithPort [ "Indicates the role of the internal structure of a Classifier with the Port to which the ConnectorEnd is attached." ^ partWithPort ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorEnd >> partWithPort: aProperty [ "Indicates the role of the internal structure of a Classifier with the Port to which the ConnectorEnd is attached." partWithPort := aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorEnd >> role [ "The ConnectableElement attached at this ConnectorEnd. When an instance of the containing Classifier is created, a link may (depending on the multiplicities) be created to an instance of the Classifier that types this ConnectableElement." ^ role ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorEnd >> role: aConnectableElement [ "The ConnectableElement attached at this ConnectorEnd. When an instance of the containing Classifier is created, a link may (depending on the multiplicities) be created to an instance of the Classifier that types this ConnectableElement." role := OPUMLToOneLink @@ -131,27 +133,27 @@ OPUMLConnectorEnd >> role: aConnectableElement [ to: aConnectableElement ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLConnectorEnd >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLConnectorEnd >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLConnectorEnd >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] diff --git a/repository/OP-UML-Metamodel/OPUMLConnectorKind.class.st b/repository/OP-UML-Metamodel/OPUMLConnectorKind.class.st index e2ea8d8..1d8ff61 100644 --- a/repository/OP-UML-Metamodel/OPUMLConnectorKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConnectorKind.class.st @@ -2,33 +2,35 @@ ConnectorKind is an enumeration that defines whether a Connector is an assembly or a delegation. " Class { - #name : #OPUMLConnectorKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #name : 'OPUMLConnectorKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLConnectorKind class >> assembly [ "Indicates that the Connector is an assembly Connector." ^ #assembly ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLConnectorKind class >> delegation [ "Indicates that the Connector is a delegation Connector." ^ #delegation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorKind >> assembly [ "Indicates that the Connector is an assembly Connector." ^ #assembly ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConnectorKind >> delegation [ "Indicates that the Connector is a delegation Connector." ^ #delegation diff --git a/repository/OP-UML-Metamodel/OPUMLConsiderIgnoreFragment.class.st b/repository/OP-UML-Metamodel/OPUMLConsiderIgnoreFragment.class.st index 4eaf269..42785a0 100644 --- a/repository/OP-UML-Metamodel/OPUMLConsiderIgnoreFragment.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConsiderIgnoreFragment.class.st @@ -2,82 +2,84 @@ A ConsiderIgnoreFragment is a kind of CombinedFragment that is used for the consider and ignore cases, which require lists of pertinent Messages to be specified. " Class { - #name : #OPUMLConsiderIgnoreFragment, - #superclass : #OPUMLElement, + #name : 'OPUMLConsiderIgnoreFragment', + #superclass : 'OPUMLElement', #instVars : [ 'messages' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - CombinedFragment' } +{ #category : 'accessing - CombinedFragment' } OPUMLConsiderIgnoreFragment >> cfragmentGates [ ^ (sharedGeneralizations at: #CombinedFragment) cfragmentGates ] -{ #category : #'accessing - CombinedFragment' } +{ #category : 'accessing - CombinedFragment' } OPUMLConsiderIgnoreFragment >> cfragmentGates: aGate [ (sharedGeneralizations at: #CombinedFragment) cfragmentGates: aGate ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLConsiderIgnoreFragment >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConsiderIgnoreFragment >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #CombinedFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConsiderIgnoreFragment >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -85,84 +87,84 @@ OPUMLConsiderIgnoreFragment >> initializeSharedGeneralizations [ sharedGeneralizations at: #ConsiderIgnoreFragment put: self. ] -{ #category : #'accessing - CombinedFragment' } +{ #category : 'accessing - CombinedFragment' } OPUMLConsiderIgnoreFragment >> interactionOperator [ ^ (sharedGeneralizations at: #CombinedFragment) interactionOperator ] -{ #category : #'accessing - CombinedFragment' } +{ #category : 'accessing - CombinedFragment' } OPUMLConsiderIgnoreFragment >> interactionOperator: anInteractionOperatorKind [ (sharedGeneralizations at: #CombinedFragment) interactionOperator: anInteractionOperatorKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConsiderIgnoreFragment >> messages [ "The set of messages that apply to this fragment." ^ messages ifNil: [ messages := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConsiderIgnoreFragment >> messages: aNamedElement [ "The set of messages that apply to this fragment." messages := aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - CombinedFragment' } +{ #category : 'accessing - CombinedFragment' } OPUMLConsiderIgnoreFragment >> operands [ ^ (sharedGeneralizations at: #CombinedFragment) operands ] -{ #category : #'accessing - CombinedFragment' } +{ #category : 'accessing - CombinedFragment' } OPUMLConsiderIgnoreFragment >> operands: anInteractionOperand [ (sharedGeneralizations at: #CombinedFragment) operands: anInteractionOperand ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConsiderIgnoreFragment >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLConstraint.class.st b/repository/OP-UML-Metamodel/OPUMLConstraint.class.st index 84f8541..b12c892 100644 --- a/repository/OP-UML-Metamodel/OPUMLConstraint.class.st +++ b/repository/OP-UML-Metamodel/OPUMLConstraint.class.st @@ -2,45 +2,47 @@ A Constraint is a condition or restriction expressed in natural language text or in a machine readable language for the purpose of declaring some of the semantics of an Element or set of Elements. " Class { - #name : #OPUMLConstraint, - #superclass : #OPUMLElement, + #name : 'OPUMLConstraint', + #superclass : 'OPUMLElement', #instVars : [ 'context', 'constrainedElements', 'specification' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConstraint >> constrainedElements [ "The ordered set of Elements referenced by this Constraint." ^ constrainedElements ifNil: [ constrainedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConstraint >> constrainedElements: anElement [ "The ordered set of Elements referenced by this Constraint." constrainedElements := anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConstraint >> context [ "Specifies the Namespace that owns the Constraint." ^ context ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConstraint >> context: aNamespace [ "Specifies the Namespace that owns the Constraint." context := OPUMLToOneLink @@ -50,14 +52,14 @@ OPUMLConstraint >> context: aNamespace [ to: aNamespace ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConstraint >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #PackageableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -65,84 +67,84 @@ OPUMLConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #Constraint put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLConstraint >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLConstraint >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLConstraint >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConstraint >> specification [ "A condition that must be true when evaluated in order for the Constraint to be satisfied." ^ specification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLConstraint >> specification: aValueSpecification [ "A condition that must be true when evaluated in order for the Constraint to be satisfied." specification := aValueSpecification ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLConstraint >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLConstraint >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLConstraint >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLConstraint >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLContinuation.class.st b/repository/OP-UML-Metamodel/OPUMLContinuation.class.st index e707f89..5a2944d 100644 --- a/repository/OP-UML-Metamodel/OPUMLContinuation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLContinuation.class.st @@ -2,136 +2,138 @@ A Continuation is a syntactic way to define continuations of different branches of an alternative CombinedFragment. Continuations are intuitively similar to labels representing intermediate points in a flow of control. " Class { - #name : #OPUMLContinuation, - #superclass : #OPUMLElement, + #name : 'OPUMLContinuation', + #superclass : 'OPUMLElement', #instVars : [ 'setting' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLContinuation >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLContinuation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLContinuation >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). sharedGeneralizations at: #Continuation put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLContinuation >> setting [ "True: when the Continuation is at the end of the enclosing InteractionFragment and False when it is in the beginning." ^ setting ifNil: [ setting := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLContinuation >> setting: aBoolean [ "True: when the Continuation is at the end of the enclosing InteractionFragment and False when it is in the beginning." setting := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLContinuation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLControlFlow.class.st b/repository/OP-UML-Metamodel/OPUMLControlFlow.class.st index 639a1e7..eef3eca 100644 --- a/repository/OP-UML-Metamodel/OPUMLControlFlow.class.st +++ b/repository/OP-UML-Metamodel/OPUMLControlFlow.class.st @@ -2,79 +2,81 @@ A ControlFlow is an ActivityEdge traversed by control tokens or object tokens of control type, which are use to control the execution of ExecutableNodes. " Class { - #name : #OPUMLControlFlow, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLControlFlow', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> activity [ ^ (sharedGeneralizations at: #ActivityEdge) activity ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> activity: anActivity [ (sharedGeneralizations at: #ActivityEdge) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> guard [ ^ (sharedGeneralizations at: #ActivityEdge) guard ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> guard: aValueSpecification [ (sharedGeneralizations at: #ActivityEdge) guard: aValueSpecification ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> inGroups [ ^ (sharedGeneralizations at: #ActivityEdge) inGroups ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityEdge) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> inPartitions [ ^ (sharedGeneralizations at: #ActivityEdge) inPartitions ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityEdge) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityEdge) inStructuredNode ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityEdge) inStructuredNode: aStructuredActivityNode ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLControlFlow >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ActivityEdge. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLControlFlow >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -82,132 +84,132 @@ OPUMLControlFlow >> initializeSharedGeneralizations [ sharedGeneralizations at: #ControlFlow put: self. ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> interrupts [ ^ (sharedGeneralizations at: #ActivityEdge) interrupts ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> interrupts: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityEdge) interrupts: anInterruptibleActivityRegion ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlFlow >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlFlow >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> redefinedEdges [ ^ (sharedGeneralizations at: #ActivityEdge) redefinedEdges ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> redefinedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityEdge) redefinedEdges: anActivityEdge ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlFlow >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlFlow >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlFlow >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlFlow >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> source [ ^ (sharedGeneralizations at: #ActivityEdge) source ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> source: anActivityNode [ (sharedGeneralizations at: #ActivityEdge) source: anActivityNode ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> target [ ^ (sharedGeneralizations at: #ActivityEdge) target ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> target: anActivityNode [ (sharedGeneralizations at: #ActivityEdge) target: anActivityNode ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlFlow >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> weight [ ^ (sharedGeneralizations at: #ActivityEdge) weight ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLControlFlow >> weight: aValueSpecification [ (sharedGeneralizations at: #ActivityEdge) weight: aValueSpecification ] diff --git a/repository/OP-UML-Metamodel/OPUMLControlNode.class.st b/repository/OP-UML-Metamodel/OPUMLControlNode.class.st index 6a6ef88..2d744c7 100644 --- a/repository/OP-UML-Metamodel/OPUMLControlNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLControlNode.class.st @@ -2,89 +2,91 @@ A ControlNode is an abstract ActivityNode that coordinates flows in an Activity. " Class { - #name : #OPUMLControlNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLControlNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLControlNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ActivityNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLControlNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -92,102 +94,102 @@ OPUMLControlNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ControlNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLControlNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLControlNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLControlNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCreateLinkAction.class.st b/repository/OP-UML-Metamodel/OPUMLCreateLinkAction.class.st index b1a1745..09aa649 100644 --- a/repository/OP-UML-Metamodel/OPUMLCreateLinkAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCreateLinkAction.class.st @@ -2,124 +2,126 @@ A CreateLinkAction is a WriteLinkAction for creating links. " Class { - #name : #OPUMLCreateLinkAction, - #superclass : #OPUMLElement, + #name : 'OPUMLCreateLinkAction', + #superclass : 'OPUMLElement', #instVars : [ 'endDatas' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateLinkAction >> endDatas [ "The LinkEndData that specifies the values to be placed on the Association ends for the new link." ^ endDatas ifNil: [ endDatas := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateLinkAction >> endDatas: aLinkEndCreationData [ "The LinkEndData that specifies the values to be placed on the Association ends for the new link." endDatas := aLinkEndCreationData ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCreateLinkAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCreateLinkAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCreateLinkAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #WriteLinkAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCreateLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -131,162 +133,162 @@ OPUMLCreateLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #CreateLinkAction put: self. ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLCreateLinkAction >> inputValues [ ^ (sharedGeneralizations at: #LinkAction) inputValues ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLCreateLinkAction >> inputValues: anInputPin [ (sharedGeneralizations at: #LinkAction) inputValues: anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCreateLinkObjectAction.class.st b/repository/OP-UML-Metamodel/OPUMLCreateLinkObjectAction.class.st index a62aa25..f984113 100644 --- a/repository/OP-UML-Metamodel/OPUMLCreateLinkObjectAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCreateLinkObjectAction.class.st @@ -2,122 +2,124 @@ A CreateLinkObjectAction is a CreateLinkAction for creating link objects (AssociationClasse instances). " Class { - #name : #OPUMLCreateLinkObjectAction, - #superclass : #OPUMLElement, + #name : 'OPUMLCreateLinkObjectAction', + #superclass : 'OPUMLElement', #instVars : [ 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - CreateLinkAction' } +{ #category : 'accessing - CreateLinkAction' } OPUMLCreateLinkObjectAction >> endDatas [ ^ (sharedGeneralizations at: #CreateLinkAction) endDatas ] -{ #category : #'accessing - CreateLinkAction' } +{ #category : 'accessing - CreateLinkAction' } OPUMLCreateLinkObjectAction >> endDatas: aLinkEndCreationData [ (sharedGeneralizations at: #CreateLinkAction) endDatas: aLinkEndCreationData ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCreateLinkObjectAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCreateLinkObjectAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCreateLinkObjectAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #CreateLinkAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCreateLinkObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -130,174 +132,174 @@ OPUMLCreateLinkObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #CreateLinkObjectAction put: self. ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLCreateLinkObjectAction >> inputValues [ ^ (sharedGeneralizations at: #LinkAction) inputValues ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLCreateLinkObjectAction >> inputValues: anInputPin [ (sharedGeneralizations at: #LinkAction) inputValues: anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkObjectAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkObjectAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateLinkObjectAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkObjectAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkObjectAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateLinkObjectAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkObjectAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateLinkObjectAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateLinkObjectAction >> result [ "The output pin on which the newly created link object is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateLinkObjectAction >> result: anOutputPin [ "The output pin on which the newly created link object is placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateLinkObjectAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLCreateObjectAction.class.st b/repository/OP-UML-Metamodel/OPUMLCreateObjectAction.class.st index f6b355f..0812db7 100644 --- a/repository/OP-UML-Metamodel/OPUMLCreateObjectAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLCreateObjectAction.class.st @@ -2,125 +2,127 @@ A CreateObjectAction is an Action that creates an instance of the specified Classifier. " Class { - #name : #OPUMLCreateObjectAction, - #superclass : #OPUMLElement, + #name : 'OPUMLCreateObjectAction', + #superclass : 'OPUMLElement', #instVars : [ 'classifier', 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateObjectAction >> classifier [ "The Classifier to be instantiated." ^ classifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateObjectAction >> classifier: aClassifier [ "The Classifier to be instantiated." classifier := aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCreateObjectAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLCreateObjectAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCreateObjectAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLCreateObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -130,164 +132,164 @@ OPUMLCreateObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #CreateObjectAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateObjectAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateObjectAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLCreateObjectAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateObjectAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateObjectAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLCreateObjectAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateObjectAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLCreateObjectAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateObjectAction >> result [ "The OutputPin on which the newly created object is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLCreateObjectAction >> result: anOutputPin [ "The OutputPin on which the newly created object is placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLCreateObjectAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDataStoreNode.class.st b/repository/OP-UML-Metamodel/OPUMLDataStoreNode.class.st index add66cc..478b091 100644 --- a/repository/OP-UML-Metamodel/OPUMLDataStoreNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDataStoreNode.class.st @@ -2,99 +2,101 @@ A DataStoreNode is a CentralBufferNode for persistent data. " Class { - #name : #OPUMLDataStoreNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLDataStoreNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDataStoreNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #CentralBufferNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDataStoreNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -105,152 +107,152 @@ OPUMLDataStoreNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #DataStoreNode put: self. ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataStoreNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataStoreNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataStoreNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataStoreNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDataStoreNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataStoreNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataStoreNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLDataStoreNode >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLDataStoreNode >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> upperBound [ ^ (sharedGeneralizations at: #ObjectNode) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLDataStoreNode >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataStoreNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDataType.class.st b/repository/OP-UML-Metamodel/OPUMLDataType.class.st index f7262fe..30159b6 100644 --- a/repository/OP-UML-Metamodel/OPUMLDataType.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDataType.class.st @@ -2,128 +2,130 @@ A DataType is a type whose instances are identified only by their value. " Class { - #name : #OPUMLDataType, - #superclass : #OPUMLElement, + #name : 'OPUMLDataType', + #superclass : 'OPUMLElement', #instVars : [ 'ownedAttributes', 'ownedOperations' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDataType >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDataType >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDataType >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDataType >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDataType >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -136,83 +138,83 @@ OPUMLDataType >> initializeSharedGeneralizations [ sharedGeneralizations at: #DataType put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataType >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataType >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDataType >> ownedAttributes [ "The attributes owned by the DataType." ^ ownedAttributes ifNil: [ ownedAttributes := OPUMLToManyLinks on: self identity opposite: #datatype: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDataType >> ownedAttributes: aProperty [ "The attributes owned by the DataType." self ownedAttributes @@ -220,23 +222,23 @@ OPUMLDataType >> ownedAttributes: aProperty [ addAll: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDataType >> ownedOperations [ "The Operations owned by the DataType." ^ ownedOperations ifNil: [ ownedOperations := OPUMLToManyLinks on: self identity opposite: #datatype: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDataType >> ownedOperations: anOperation [ "The Operations owned by the DataType." self ownedOperations @@ -244,177 +246,177 @@ OPUMLDataType >> ownedOperations: anOperation [ addAll: anOperation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDataType >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDataType >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLDataType >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLDataType >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDataType >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDataType >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDataType >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataType >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataType >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataType >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDataType >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLDataType >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLDataType >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDataType >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDataType >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDataType >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDecisionNode.class.st b/repository/OP-UML-Metamodel/OPUMLDecisionNode.class.st index b655c59..f48f339 100644 --- a/repository/OP-UML-Metamodel/OPUMLDecisionNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDecisionNode.class.st @@ -2,117 +2,119 @@ A DecisionNode is a ControlNode that chooses between outgoing ActivityEdges for the routing of tokens. " Class { - #name : #OPUMLDecisionNode, - #superclass : #OPUMLElement, + #name : 'OPUMLDecisionNode', + #superclass : 'OPUMLElement', #instVars : [ 'decisionInputFlow', 'decisionInput' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDecisionNode >> decisionInput [ "A Behavior that is executed to provide an input to guard ValueSpecifications on ActivityEdges outgoing from the DecisionNode." ^ decisionInput ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDecisionNode >> decisionInput: aBehavior [ "A Behavior that is executed to provide an input to guard ValueSpecifications on ActivityEdges outgoing from the DecisionNode." decisionInput := aBehavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDecisionNode >> decisionInputFlow [ "An additional ActivityEdge incoming to the DecisionNode that provides a decision input value for the guards ValueSpecifications on ActivityEdges outgoing from the DecisionNode." ^ decisionInputFlow ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDecisionNode >> decisionInputFlow: anObjectFlow [ "An additional ActivityEdge incoming to the DecisionNode that provides a decision input value for the guards ValueSpecifications on ActivityEdges outgoing from the DecisionNode." decisionInputFlow := anObjectFlow ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDecisionNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ControlNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDecisionNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -121,102 +123,102 @@ OPUMLDecisionNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #DecisionNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDecisionNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDecisionNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDecisionNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDecisionNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDecisionNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDecisionNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDecisionNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDecisionNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDependency.class.st b/repository/OP-UML-Metamodel/OPUMLDependency.class.st index 2e1e90c..c0a9157 100644 --- a/repository/OP-UML-Metamodel/OPUMLDependency.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDependency.class.st @@ -2,32 +2,34 @@ A Dependency is a Relationship that signifies that a single model Element or a set of model Elements requires other model Elements for their specification or implementation. This means that the complete semantics of the client Element(s) are either semantically or structurally dependent on the definition of the supplier Element(s). " Class { - #name : #OPUMLDependency, - #superclass : #OPUMLElement, + #name : 'OPUMLDependency', + #superclass : 'OPUMLElement', #instVars : [ 'clients', 'suppliers' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDependency >> clients [ "The Element(s) dependent on the supplier Element(s). In some cases (such as a trace Abstraction) the assignment of direction (that is, the designation of the client Element) is at the discretion of the modeler and is a stipulation." ^ clients ifNil: [ clients := OPUMLManyToManyLinks on: self identity opposite: #clientDependencies ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDependency >> clients: aNamedElement [ "The Element(s) dependent on the supplier Element(s). In some cases (such as a trace Abstraction) the assignment of direction (that is, the designation of the client Element) is at the discretion of the modeler and is a stipulation." self clients @@ -35,7 +37,7 @@ OPUMLDependency >> clients: aNamedElement [ addAll: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDependency >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. @@ -43,7 +45,7 @@ OPUMLDependency >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDependency >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -53,114 +55,114 @@ OPUMLDependency >> initializeSharedGeneralizations [ sharedGeneralizations at: #Dependency put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDependency >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDependency >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDependency >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLDependency >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLDependency >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDependency >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDependency >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDependency >> suppliers [ "The Element(s) on which the client Element(s) depend in some respect. The modeler may stipulate a sense of Dependency direction suitable for their domain." ^ suppliers ifNil: [ suppliers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDependency >> suppliers: aNamedElement [ "The Element(s) on which the client Element(s) depend in some respect. The modeler may stipulate a sense of Dependency direction suitable for their domain." suppliers := aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDependency >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDependency >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDependency >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDependency >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDependency >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDependency >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDeployedArtifact.class.st b/repository/OP-UML-Metamodel/OPUMLDeployedArtifact.class.st index 85ad2b3..9839870 100644 --- a/repository/OP-UML-Metamodel/OPUMLDeployedArtifact.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDeployedArtifact.class.st @@ -2,80 +2,82 @@ A deployed artifact is an artifact or artifact instance that has been deployed to a deployment target. " Class { - #name : #OPUMLDeployedArtifact, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Deployments' + #name : 'OPUMLDeployedArtifact', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeployedArtifact >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeployedArtifact >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #DeployedArtifact put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployedArtifact >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDeployment.class.st b/repository/OP-UML-Metamodel/OPUMLDeployment.class.st index 07fedd5..96cc408 100644 --- a/repository/OP-UML-Metamodel/OPUMLDeployment.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDeployment.class.st @@ -3,43 +3,45 @@ A deployment is the allocation of an artifact or artifact instance to a deployme A component deployment is the deployment of one or more artifacts or artifact instances to a deployment target, optionally parameterized by a deployment specification. Examples are executables and configuration files. " Class { - #name : #OPUMLDeployment, - #superclass : #OPUMLElement, + #name : 'OPUMLDeployment', + #superclass : 'OPUMLElement', #instVars : [ 'deployedArtifacts', 'configurations', 'location' ], - #category : 'OP-UML-Metamodel-Deployments' + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLDeployment >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLDeployment >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeployment >> configurations [ "The specification of properties that parameterize the deployment and execution of one or more Artifacts." ^ configurations ifNil: [ configurations := OPUMLToManyLinks on: self identity opposite: #deployment: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeployment >> configurations: aDeploymentSpecification [ "The specification of properties that parameterize the deployment and execution of one or more Artifacts." self configurations @@ -47,26 +49,26 @@ OPUMLDeployment >> configurations: aDeploymentSpecification [ addAll: aDeploymentSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeployment >> deployedArtifacts [ "The Artifacts that are deployed onto a Node. This association specializes the supplier association." ^ deployedArtifacts ifNil: [ deployedArtifacts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeployment >> deployedArtifacts: aDeployedArtifact [ "The Artifacts that are deployed onto a Node. This association specializes the supplier association." deployedArtifacts := aDeployedArtifact ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeployment >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Dependency. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeployment >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -77,13 +79,13 @@ OPUMLDeployment >> initializeSharedGeneralizations [ sharedGeneralizations at: #Deployment put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeployment >> location [ "The DeployedTarget which is the target of a Deployment." ^ location ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeployment >> location: aDeploymentTarget [ "The DeployedTarget which is the target of a Deployment." location := OPUMLToOneLink @@ -93,112 +95,112 @@ OPUMLDeployment >> location: aDeploymentTarget [ to: aDeploymentTarget ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDeployment >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDeployment >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeployment >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLDeployment >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLDeployment >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDeployment >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDeployment >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLDeployment >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLDeployment >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDeployment >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLDeployment >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDeployment >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDeployment >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDeployment >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDeployment >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDeploymentSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLDeploymentSpecification.class.st index a2a3e7a..df2ab98 100644 --- a/repository/OP-UML-Metamodel/OPUMLDeploymentSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDeploymentSpecification.class.st @@ -2,63 +2,65 @@ A deployment specification specifies a set of properties that determine execution parameters of a component artifact that is deployed on a node. A deployment specification can be aimed at a specific type of container. An artifact that reifies or implements deployment specification properties is a deployment descriptor. " Class { - #name : #OPUMLDeploymentSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLDeploymentSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'executionLocation', 'deploymentLocation', 'deployment' ], - #category : 'OP-UML-Metamodel-Deployments' + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDeploymentSpecification >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDeploymentSpecification >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentSpecification >> deployment [ "The deployment with which the DeploymentSpecification is associated." ^ deployment ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentSpecification >> deployment: aDeployment [ "The deployment with which the DeploymentSpecification is associated." deployment := OPUMLToOneLink @@ -68,113 +70,113 @@ OPUMLDeploymentSpecification >> deployment: aDeployment [ to: aDeployment ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentSpecification >> deploymentLocation [ "The location where an Artifact is deployed onto a Node. This is typically a 'directory' or 'memory address.'" ^ deploymentLocation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentSpecification >> deploymentLocation: aString [ "The location where an Artifact is deployed onto a Node. This is typically a 'directory' or 'memory address.'" deploymentLocation := aString ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentSpecification >> executionLocation [ "The location where a component Artifact executes. This may be a local or remote location." ^ executionLocation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentSpecification >> executionLocation: aString [ "The location where a component Artifact executes. This may be a local or remote location." executionLocation := aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> fileName [ ^ (sharedGeneralizations at: #Artifact) fileName ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> fileName: aString [ (sharedGeneralizations at: #Artifact) fileName: aString ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDeploymentSpecification >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeploymentSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Artifact. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeploymentSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -189,297 +191,297 @@ OPUMLDeploymentSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #DeploymentSpecification put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDeploymentSpecification >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDeploymentSpecification >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> manifestations [ ^ (sharedGeneralizations at: #Artifact) manifestations ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> manifestations: aManifestation [ (sharedGeneralizations at: #Artifact) manifestations: aManifestation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> nestedArtifacts [ ^ (sharedGeneralizations at: #Artifact) nestedArtifacts ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> nestedArtifacts: anArtifact [ (sharedGeneralizations at: #Artifact) nestedArtifacts: anArtifact ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> ownedAttributes [ ^ (sharedGeneralizations at: #Artifact) ownedAttributes ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Artifact) ownedAttributes: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> ownedOperations [ ^ (sharedGeneralizations at: #Artifact) ownedOperations ] -{ #category : #'accessing - Artifact' } +{ #category : 'accessing - Artifact' } OPUMLDeploymentSpecification >> ownedOperations: anOperation [ (sharedGeneralizations at: #Artifact) ownedOperations: anOperation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDeploymentSpecification >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDeploymentSpecification >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLDeploymentSpecification >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLDeploymentSpecification >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDeploymentSpecification >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDeploymentSpecification >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDeploymentSpecification >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDeploymentSpecification >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDeploymentSpecification >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDeploymentSpecification >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLDeploymentSpecification >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLDeploymentSpecification >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDeploymentSpecification >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDeploymentSpecification >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDeploymentSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDeploymentTarget.class.st b/repository/OP-UML-Metamodel/OPUMLDeploymentTarget.class.st index 84851dc..25a1d37 100644 --- a/repository/OP-UML-Metamodel/OPUMLDeploymentTarget.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDeploymentTarget.class.st @@ -2,26 +2,28 @@ A deployment target is the location for a deployed artifact. " Class { - #name : #OPUMLDeploymentTarget, - #superclass : #OPUMLElement, + #name : 'OPUMLDeploymentTarget', + #superclass : 'OPUMLElement', #instVars : [ 'deployedElements', 'deployments' ], - #category : 'OP-UML-Metamodel-Deployments' + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLDeploymentTarget >> deployedElementStub [ "Derivation for DeploymentTarget::/deployedElement" @@ -31,25 +33,25 @@ OPUMLDeploymentTarget >> deployedElementStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentTarget >> deployedElements [ "The set of elements that are manifested in an Artifact that is involved in Deployment to a DeploymentTarget." ^ deployedElements ifNil: [ deployedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentTarget >> deployedElements: aPackageableElement [ "The set of elements that are manifested in an Artifact that is involved in Deployment to a DeploymentTarget." deployedElements := aPackageableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentTarget >> deployments [ "The set of Deployments for a DeploymentTarget." ^ deployments ifNil: [ deployments := OPUMLToManyLinks on: self identity opposite: #location: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDeploymentTarget >> deployments: aDeployment [ "The set of Deployments for a DeploymentTarget." self deployments @@ -57,65 +59,65 @@ OPUMLDeploymentTarget >> deployments: aDeployment [ addAll: aDeployment ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeploymentTarget >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDeploymentTarget >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #DeploymentTarget put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDeploymentTarget >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDestroyLinkAction.class.st b/repository/OP-UML-Metamodel/OPUMLDestroyLinkAction.class.st index a7e8139..03fa67b 100644 --- a/repository/OP-UML-Metamodel/OPUMLDestroyLinkAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDestroyLinkAction.class.st @@ -2,124 +2,126 @@ A DestroyLinkAction is a WriteLinkAction that destroys links (including link objects). " Class { - #name : #OPUMLDestroyLinkAction, - #superclass : #OPUMLElement, + #name : 'OPUMLDestroyLinkAction', + #superclass : 'OPUMLElement', #instVars : [ 'endDatas' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyLinkAction >> endDatas [ "The LinkEndData that the values of the Association ends for the links to be destroyed." ^ endDatas ifNil: [ endDatas := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyLinkAction >> endDatas: aLinkEndDestructionData [ "The LinkEndData that the values of the Association ends for the links to be destroyed." endDatas := aLinkEndDestructionData ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLDestroyLinkAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLDestroyLinkAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDestroyLinkAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #WriteLinkAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDestroyLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -131,162 +133,162 @@ OPUMLDestroyLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #DestroyLinkAction put: self. ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLDestroyLinkAction >> inputValues [ ^ (sharedGeneralizations at: #LinkAction) inputValues ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLDestroyLinkAction >> inputValues: anInputPin [ (sharedGeneralizations at: #LinkAction) inputValues: anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyLinkAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyLinkAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyLinkAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyLinkAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyLinkAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyLinkAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyLinkAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyLinkAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyLinkAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDestroyObjectAction.class.st b/repository/OP-UML-Metamodel/OPUMLDestroyObjectAction.class.st index 14c5642..f405c73 100644 --- a/repository/OP-UML-Metamodel/OPUMLDestroyObjectAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDestroyObjectAction.class.st @@ -2,114 +2,116 @@ A DestroyObjectAction is an Action that destroys objects. " Class { - #name : #OPUMLDestroyObjectAction, - #superclass : #OPUMLElement, + #name : 'OPUMLDestroyObjectAction', + #superclass : 'OPUMLElement', #instVars : [ 'isDestroyLinks', 'isDestroyOwnedObjects', 'target' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLDestroyObjectAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLDestroyObjectAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDestroyObjectAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDestroyObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -119,188 +121,188 @@ OPUMLDestroyObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #DestroyObjectAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyObjectAction >> isDestroyLinks [ "Specifies whether links in which the object participates are destroyed along with the object." ^ isDestroyLinks ifNil: [ isDestroyLinks := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyObjectAction >> isDestroyLinks: aBoolean [ "Specifies whether links in which the object participates are destroyed along with the object." isDestroyLinks := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyObjectAction >> isDestroyOwnedObjects [ "Specifies whether objects owned by the object (via composition) are destroyed along with the object." ^ isDestroyOwnedObjects ifNil: [ isDestroyOwnedObjects := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyObjectAction >> isDestroyOwnedObjects: aBoolean [ "Specifies whether objects owned by the object (via composition) are destroyed along with the object." isDestroyOwnedObjects := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyObjectAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyObjectAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLDestroyObjectAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyObjectAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyObjectAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLDestroyObjectAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyObjectAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDestroyObjectAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyObjectAction >> target [ "The InputPin providing the object to be destroyed." ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDestroyObjectAction >> target: anInputPin [ "The InputPin providing the object to be destroyed." target := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestroyObjectAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDestructionOccurrenceSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLDestructionOccurrenceSpecification.class.st index 1b34a44..f801bd7 100644 --- a/repository/OP-UML-Metamodel/OPUMLDestructionOccurrenceSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDestructionOccurrenceSpecification.class.st @@ -2,79 +2,81 @@ A DestructionOccurenceSpecification models the destruction of an object. " Class { - #name : #OPUMLDestructionOccurrenceSpecification, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLDestructionOccurrenceSpecification', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLDestructionOccurrenceSpecification >> covered [ ^ (sharedGeneralizations at: #OccurrenceSpecification) covered ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLDestructionOccurrenceSpecification >> covered: aLifeline [ (sharedGeneralizations at: #OccurrenceSpecification) covered: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLDestructionOccurrenceSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDestructionOccurrenceSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MessageOccurrenceSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDestructionOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -84,82 +86,82 @@ OPUMLDestructionOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #DestructionOccurrenceSpecification put: self. ] -{ #category : #'accessing - MessageEnd' } +{ #category : 'accessing - MessageEnd' } OPUMLDestructionOccurrenceSpecification >> message [ ^ (sharedGeneralizations at: #MessageEnd) message ] -{ #category : #'accessing - MessageEnd' } +{ #category : 'accessing - MessageEnd' } OPUMLDestructionOccurrenceSpecification >> message: aMessage [ (sharedGeneralizations at: #MessageEnd) message: aMessage ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLDestructionOccurrenceSpecification >> toAfters [ ^ (sharedGeneralizations at: #OccurrenceSpecification) toAfters ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLDestructionOccurrenceSpecification >> toAfters: aGeneralOrdering [ (sharedGeneralizations at: #OccurrenceSpecification) toAfters: aGeneralOrdering ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLDestructionOccurrenceSpecification >> toBefores [ ^ (sharedGeneralizations at: #OccurrenceSpecification) toBefores ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLDestructionOccurrenceSpecification >> toBefores: aGeneralOrdering [ (sharedGeneralizations at: #OccurrenceSpecification) toBefores: aGeneralOrdering ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDestructionOccurrenceSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDevice.class.st b/repository/OP-UML-Metamodel/OPUMLDevice.class.st index ed9a893..5ca0096 100644 --- a/repository/OP-UML-Metamodel/OPUMLDevice.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDevice.class.st @@ -2,164 +2,166 @@ A device is a physical computational resource with processing capability upon which artifacts may be deployed for execution. Devices may be complex (i.e., they may consist of other devices). " Class { - #name : #OPUMLDevice, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Deployments' + #name : 'OPUMLDevice', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDevice >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDevice >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLDevice >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLDevice >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLDevice >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLDevice >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLDevice >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLDevice >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDevice >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDevice >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Node. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDevice >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -178,387 +180,387 @@ OPUMLDevice >> initializeSharedGeneralizations [ sharedGeneralizations at: #Device put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLDevice >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLDevice >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDevice >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDevice >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Node' } +{ #category : 'accessing - Node' } OPUMLDevice >> nestedNodes [ ^ (sharedGeneralizations at: #Node) nestedNodes ] -{ #category : #'accessing - Node' } +{ #category : 'accessing - Node' } OPUMLDevice >> nestedNodes: aNode [ (sharedGeneralizations at: #Node) nestedNodes: aNode ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLDevice >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLDevice >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLDevice >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLDevice >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLDevice >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLDevice >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDevice >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDevice >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLDevice >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLDevice >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLDevice >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLDevice >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLDevice >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLDevice >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDevice >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDevice >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDevice >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDevice >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLDevice >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLDevice >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLDevice >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLDevice >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLDevice >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLDevice >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLDevice >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDevice >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDevice >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDirectedRelationship.class.st b/repository/OP-UML-Metamodel/OPUMLDirectedRelationship.class.st index cca5904..83da0fe 100644 --- a/repository/OP-UML-Metamodel/OPUMLDirectedRelationship.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDirectedRelationship.class.st @@ -2,57 +2,59 @@ A DirectedRelationship represents a relationship between a collection of source model Elements and a collection of target model Elements. " Class { - #name : #OPUMLDirectedRelationship, - #superclass : #OPUMLElement, + #name : 'OPUMLDirectedRelationship', + #superclass : 'OPUMLElement', #instVars : [ 'targets', 'sources' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDirectedRelationship >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Relationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDirectedRelationship >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: self. ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLDirectedRelationship >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLDirectedRelationship >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDirectedRelationship >> sources [ "Specifies the source Element(s) of the DirectedRelationship." ^ sources ifNil: [ sources := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDirectedRelationship >> sources: anElement [ "Specifies the source Element(s) of the DirectedRelationship." sources := anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDirectedRelationship >> targets [ "Specifies the target Element(s) of the DirectedRelationship." ^ targets ifNil: [ targets := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDirectedRelationship >> targets: anElement [ "Specifies the target Element(s) of the DirectedRelationship." targets := anElement diff --git a/repository/OP-UML-Metamodel/OPUMLDuration.class.st b/repository/OP-UML-Metamodel/OPUMLDuration.class.st index 3d6f4e7..a64730e 100644 --- a/repository/OP-UML-Metamodel/OPUMLDuration.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDuration.class.st @@ -2,50 +2,52 @@ A Duration is a ValueSpecification that specifies the temporal distance between two time instants. " Class { - #name : #OPUMLDuration, - #superclass : #OPUMLElement, + #name : 'OPUMLDuration', + #superclass : 'OPUMLElement', #instVars : [ 'observations', 'expr' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDuration >> expr [ "A ValueSpecification that evaluates to the value of the Duration." ^ expr ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDuration >> expr: aValueSpecification [ "A ValueSpecification that evaluates to the value of the Duration." expr := aValueSpecification ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDuration >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDuration >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -55,124 +57,124 @@ OPUMLDuration >> initializeSharedGeneralizations [ sharedGeneralizations at: #Duration put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDuration >> observations [ "Refers to the Observations that are involved in the computation of the Duration value" ^ observations ifNil: [ observations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDuration >> observations: anObservation [ "Refers to the Observations that are involved in the computation of the Duration value" observations := anObservation ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDuration >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDuration >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDuration >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDuration >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDuration >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLDuration >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLDuration >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDuration >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDuration >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDuration >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDurationConstraint.class.st b/repository/OP-UML-Metamodel/OPUMLDurationConstraint.class.st index 2fe5ca8..9b39062 100644 --- a/repository/OP-UML-Metamodel/OPUMLDurationConstraint.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDurationConstraint.class.st @@ -2,65 +2,67 @@ A DurationConstraint is a Constraint that refers to a DurationInterval. " Class { - #name : #OPUMLDurationConstraint, - #superclass : #OPUMLElement, + #name : 'OPUMLDurationConstraint', + #superclass : 'OPUMLElement', #instVars : [ 'firstEvents', 'specification' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLDurationConstraint >> constrainedElements [ ^ (sharedGeneralizations at: #Constraint) constrainedElements ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLDurationConstraint >> constrainedElements: anElement [ (sharedGeneralizations at: #Constraint) constrainedElements: anElement ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLDurationConstraint >> context [ ^ (sharedGeneralizations at: #Constraint) context ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLDurationConstraint >> context: aNamespace [ (sharedGeneralizations at: #Constraint) context: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationConstraint >> firstEvents [ "The value of firstEvent[i] is related to constrainedElement[i] (where i is 1 or 2). If firstEvent[i] is true, then the corresponding observation event is the first time instant the execution enters constrainedElement[i]. If firstEvent[i] is false, then the corresponding observation event is the last time instant the execution is within constrainedElement[i]." ^ firstEvents ifNil: [ firstEvents := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationConstraint >> firstEvents: aBoolean [ "The value of firstEvent[i] is related to constrainedElement[i] (where i is 1 or 2). If firstEvent[i] is true, then the corresponding observation event is the first time instant the execution enters constrainedElement[i]. If firstEvent[i] is false, then the corresponding observation event is the last time instant the execution is within constrainedElement[i]." firstEvents := aBoolean ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDurationConstraint >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #IntervalConstraint. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDurationConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -70,84 +72,84 @@ OPUMLDurationConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #DurationConstraint put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationConstraint >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationConstraint >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationConstraint >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationConstraint >> specification [ "The DurationInterval constraining the duration." ^ specification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationConstraint >> specification: aDurationInterval [ "The DurationInterval constraining the duration." specification := aDurationInterval ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationConstraint >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationConstraint >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDurationConstraint >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDurationConstraint >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDurationInterval.class.st b/repository/OP-UML-Metamodel/OPUMLDurationInterval.class.st index 3637eb9..1990fe7 100644 --- a/repository/OP-UML-Metamodel/OPUMLDurationInterval.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDurationInterval.class.st @@ -2,38 +2,40 @@ A DurationInterval defines the range between two Durations. " Class { - #name : #OPUMLDurationInterval, - #superclass : #OPUMLElement, + #name : 'OPUMLDurationInterval', + #superclass : 'OPUMLElement', #instVars : [ 'min', 'max' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDurationInterval >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Interval. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDurationInterval >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -44,136 +46,136 @@ OPUMLDurationInterval >> initializeSharedGeneralizations [ sharedGeneralizations at: #DurationInterval put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationInterval >> max [ "Refers to the Duration denoting the maximum value of the range." ^ max ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationInterval >> max: aDuration [ "Refers to the Duration denoting the maximum value of the range." max := aDuration ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationInterval >> min [ "Refers to the Duration denoting the minimum value of the range." ^ min ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationInterval >> min: aDuration [ "Refers to the Duration denoting the minimum value of the range." min := aDuration ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationInterval >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationInterval >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationInterval >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationInterval >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationInterval >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLDurationInterval >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLDurationInterval >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLDurationInterval >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDurationInterval >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDurationInterval >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLDurationObservation.class.st b/repository/OP-UML-Metamodel/OPUMLDurationObservation.class.st index 191a08d..f3694b6 100644 --- a/repository/OP-UML-Metamodel/OPUMLDurationObservation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLDurationObservation.class.st @@ -2,57 +2,59 @@ A DurationObservation is a reference to a duration during an execution. It points out the NamedElement(s) in the model to observe and whether the observations are when this NamedElement is entered or when it is exited. " Class { - #name : #OPUMLDurationObservation, - #superclass : #OPUMLElement, + #name : 'OPUMLDurationObservation', + #superclass : 'OPUMLElement', #instVars : [ 'firstEvents', 'events' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationObservation >> events [ "The DurationObservation is determined as the duration between the entering or exiting of a single event Element during execution, or the entering/exiting of one event Element and the entering/exiting of a second." ^ events ifNil: [ events := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationObservation >> events: aNamedElement [ "The DurationObservation is determined as the duration between the entering or exiting of a single event Element during execution, or the entering/exiting of one event Element and the entering/exiting of a second." events := aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationObservation >> firstEvents [ "The value of firstEvent[i] is related to event[i] (where i is 1 or 2). If firstEvent[i] is true, then the corresponding observation event is the first time instant the execution enters event[i]. If firstEvent[i] is false, then the corresponding observation event is the time instant the execution exits event[i]." ^ firstEvents ifNil: [ firstEvents := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLDurationObservation >> firstEvents: aBoolean [ "The value of firstEvent[i] is related to event[i] (where i is 1 or 2). If firstEvent[i] is true, then the corresponding observation event is the first time instant the execution enters event[i]. If firstEvent[i] is false, then the corresponding observation event is the time instant the execution exits event[i]." firstEvents := aBoolean ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDurationObservation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Observation. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLDurationObservation >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -61,72 +63,72 @@ OPUMLDurationObservation >> initializeSharedGeneralizations [ sharedGeneralizations at: #DurationObservation put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationObservation >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationObservation >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLDurationObservation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationObservation >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLDurationObservation >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDurationObservation >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLDurationObservation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLElement.class.st b/repository/OP-UML-Metamodel/OPUMLElement.class.st index e63ebd0..e5e44c2 100644 --- a/repository/OP-UML-Metamodel/OPUMLElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLElement.class.st @@ -2,17 +2,19 @@ An Element is a constituent of a model. As such, it has the capability of owning other Elements. " Class { - #name : #OPUMLElement, - #superclass : #OPUMLMetaElement, + #name : 'OPUMLElement', + #superclass : 'OPUMLMetaElement', #instVars : [ 'ownedElements', 'owner', 'ownedComments' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLElement >> allOwnedElementsStub [ "The query allOwnedElements() gives all of the direct and indirect ownedElements of an Element." @@ -22,18 +24,18 @@ OPUMLElement >> allOwnedElementsStub [ ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLElement >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #Element put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLElement >> mustBeOwnedStub [ "The query mustBeOwned() indicates whether Elements of this type must have an owner. Subclasses of Element that do not require an owner must override this operation." @@ -43,25 +45,25 @@ OPUMLElement >> mustBeOwnedStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElement >> ownedComments [ "The Comments owned by this Element." ^ ownedComments ifNil: [ ownedComments := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElement >> ownedComments: aComment [ "The Comments owned by this Element." ownedComments := aComment ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElement >> ownedElements [ "The Elements owned by this Element." ^ ownedElements ifNil: [ ownedElements := OPUMLToManyLinks on: self identity opposite: #owner: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElement >> ownedElements: anElement [ "The Elements owned by this Element." self ownedElements @@ -69,13 +71,13 @@ OPUMLElement >> ownedElements: anElement [ addAll: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElement >> owner [ "The Element that owns this Element." ^ owner ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElement >> owner: anElement [ "The Element that owns this Element." owner := OPUMLToOneLink diff --git a/repository/OP-UML-Metamodel/OPUMLElementImport.class.st b/repository/OP-UML-Metamodel/OPUMLElementImport.class.st index 17a82f3..390a44d 100644 --- a/repository/OP-UML-Metamodel/OPUMLElementImport.class.st +++ b/repository/OP-UML-Metamodel/OPUMLElementImport.class.st @@ -2,30 +2,32 @@ An ElementImport identifies a NamedElement in a Namespace other than the one that owns that NamedElement and allows the NamedElement to be referenced using an unqualified name in the Namespace owning the ElementImport. " Class { - #name : #OPUMLElementImport, - #superclass : #OPUMLElement, + #name : 'OPUMLElementImport', + #superclass : 'OPUMLElement', #instVars : [ 'alias', 'importedElement', 'importingNamespace', 'visibility' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> alias [ "Specifies the name that should be added to the importing Namespace in lieu of the name of the imported PackagableElement. The alias must not clash with any other member in the importing Namespace. By default, no alias is used." ^ alias ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> alias: aString [ "Specifies the name that should be added to the importing Namespace in lieu of the name of the imported PackagableElement. The alias must not clash with any other member in the importing Namespace. By default, no alias is used." alias := aString ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLElementImport >> getNameStub [ "The query getName() returns the name under which the imported PackageableElement will be known in the importing namespace." @@ -39,25 +41,25 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> importedElement [ "Specifies the PackageableElement whose name is to be added to a Namespace." ^ importedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> importedElement: aPackageableElement [ "Specifies the PackageableElement whose name is to be added to a Namespace." importedElement := aPackageableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> importingNamespace [ "Specifies the Namespace that imports a PackageableElement from another Namespace." ^ importingNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> importingNamespace: aNamespace [ "Specifies the Namespace that imports a PackageableElement from another Namespace." importingNamespace := OPUMLToOneLink @@ -67,57 +69,57 @@ OPUMLElementImport >> importingNamespace: aNamespace [ to: aNamespace ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLElementImport >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLElementImport >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ElementImport put: self. ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLElementImport >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLElementImport >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLElementImport >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLElementImport >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLElementImport >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLElementImport >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> visibility [ "Specifies the visibility of the imported PackageableElement within the importingNamespace, i.e., whether the importedElement will in turn be visible to other Namespaces. If the ElementImport is public, the importedElement will be visible outside the importingNamespace while, if the ElementImport is private, it will not." ^ visibility ifNil: [ visibility := OPUMLVisibilityKind new public ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLElementImport >> visibility: aVisibilityKind [ "Specifies the visibility of the imported PackageableElement within the importingNamespace, i.e., whether the importedElement will in turn be visible to other Namespaces. If the ElementImport is public, the importedElement will be visible outside the importingNamespace while, if the ElementImport is private, it will not." visibility := aVisibilityKind diff --git a/repository/OP-UML-Metamodel/OPUMLEncapsulatedClassifier.class.st b/repository/OP-UML-Metamodel/OPUMLEncapsulatedClassifier.class.st index c8c718d..84a80d0 100644 --- a/repository/OP-UML-Metamodel/OPUMLEncapsulatedClassifier.class.st +++ b/repository/OP-UML-Metamodel/OPUMLEncapsulatedClassifier.class.st @@ -2,127 +2,129 @@ An EncapsulatedClassifier may own Ports to specify typed interaction points. " Class { - #name : #OPUMLEncapsulatedClassifier, - #superclass : #OPUMLElement, + #name : 'OPUMLEncapsulatedClassifier', + #superclass : 'OPUMLElement', #instVars : [ 'ownedPorts' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEncapsulatedClassifier >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEncapsulatedClassifier >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEncapsulatedClassifier >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEncapsulatedClassifier >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuredClassifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEncapsulatedClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -136,107 +138,107 @@ OPUMLEncapsulatedClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #EncapsulatedClassifier put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEncapsulatedClassifier >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEncapsulatedClassifier >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> ownedAttributes [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedAttributes ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> ownedAttributes: aProperty [ (sharedGeneralizations at: #StructuredClassifier) ownedAttributes: aProperty ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLEncapsulatedClassifier >> ownedPortStub [ "Derivation for EncapsulatedClassifier::/ownedPort : Port" @@ -246,209 +248,209 @@ OPUMLEncapsulatedClassifier >> ownedPortStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEncapsulatedClassifier >> ownedPorts [ "The Ports owned by the EncapsulatedClassifier." ^ ownedPorts ifNil: [ ownedPorts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEncapsulatedClassifier >> ownedPorts: aPort [ "The Ports owned by the EncapsulatedClassifier." ownedPorts := aPort ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEncapsulatedClassifier >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEncapsulatedClassifier >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLEncapsulatedClassifier >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLEncapsulatedClassifier >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEncapsulatedClassifier >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEncapsulatedClassifier >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEncapsulatedClassifier >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEncapsulatedClassifier >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEncapsulatedClassifier >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEncapsulatedClassifier >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEncapsulatedClassifier >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLEncapsulatedClassifier >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLEncapsulatedClassifier >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLEncapsulatedClassifier >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEncapsulatedClassifier >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEncapsulatedClassifier >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEncapsulatedClassifier >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLEnumeration.class.st b/repository/OP-UML-Metamodel/OPUMLEnumeration.class.st index 7475dc4..1eea730 100644 --- a/repository/OP-UML-Metamodel/OPUMLEnumeration.class.st +++ b/repository/OP-UML-Metamodel/OPUMLEnumeration.class.st @@ -2,127 +2,129 @@ An Enumeration is a DataType whose values are enumerated in the model as EnumerationLiterals. " Class { - #name : #OPUMLEnumeration, - #superclass : #OPUMLElement, + #name : 'OPUMLEnumeration', + #superclass : 'OPUMLElement', #instVars : [ 'ownedLiterals' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEnumeration >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEnumeration >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEnumeration >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEnumeration >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DataType. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEnumeration >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -136,93 +138,93 @@ OPUMLEnumeration >> initializeSharedGeneralizations [ sharedGeneralizations at: #Enumeration put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEnumeration >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEnumeration >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLEnumeration >> ownedAttributes [ ^ (sharedGeneralizations at: #DataType) ownedAttributes ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLEnumeration >> ownedAttributes: aProperty [ (sharedGeneralizations at: #DataType) ownedAttributes: aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEnumeration >> ownedLiterals [ "The ordered set of literals owned by this Enumeration." ^ ownedLiterals ifNil: [ ownedLiterals := OPUMLToManyLinks on: self identity opposite: #enumeration: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEnumeration >> ownedLiterals: anEnumerationLiteral [ "The ordered set of literals owned by this Enumeration." self ownedLiterals @@ -230,197 +232,197 @@ OPUMLEnumeration >> ownedLiterals: anEnumerationLiteral [ addAll: anEnumerationLiteral ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLEnumeration >> ownedOperations [ ^ (sharedGeneralizations at: #DataType) ownedOperations ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLEnumeration >> ownedOperations: anOperation [ (sharedGeneralizations at: #DataType) ownedOperations: anOperation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEnumeration >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEnumeration >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLEnumeration >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLEnumeration >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLEnumeration >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLEnumeration >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumeration >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEnumeration >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEnumeration >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEnumeration >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLEnumeration >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLEnumeration >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLEnumeration >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLEnumeration >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEnumeration >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEnumeration >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLEnumerationLiteral.class.st b/repository/OP-UML-Metamodel/OPUMLEnumerationLiteral.class.st index 9c48c03..e48d7ea 100644 --- a/repository/OP-UML-Metamodel/OPUMLEnumerationLiteral.class.st +++ b/repository/OP-UML-Metamodel/OPUMLEnumerationLiteral.class.st @@ -2,28 +2,30 @@ An EnumerationLiteral is a user-defined data value for an Enumeration. " Class { - #name : #OPUMLEnumerationLiteral, - #superclass : #OPUMLElement, + #name : 'OPUMLEnumerationLiteral', + #superclass : 'OPUMLElement', #instVars : [ 'classifier', 'enumeration' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEnumerationLiteral >> classifier [ "The classifier of this EnumerationLiteral derived to be equal to its Enumeration." ^ classifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEnumerationLiteral >> classifier: anEnumeration [ "The classifier of this EnumerationLiteral derived to be equal to its Enumeration." classifier := anEnumeration ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLEnumerationLiteral >> classifierStub [ "Derivation of Enumeration::/classifier" @@ -33,53 +35,53 @@ OPUMLEnumerationLiteral >> classifierStub [ ] -{ #category : #'accessing - InstanceSpecification' } +{ #category : 'accessing - InstanceSpecification' } OPUMLEnumerationLiteral >> classifiers [ ^ (sharedGeneralizations at: #InstanceSpecification) classifiers ] -{ #category : #'accessing - InstanceSpecification' } +{ #category : 'accessing - InstanceSpecification' } OPUMLEnumerationLiteral >> classifiers: aClassifier [ (sharedGeneralizations at: #InstanceSpecification) classifiers: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLEnumerationLiteral >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLEnumerationLiteral >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLEnumerationLiteral >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLEnumerationLiteral >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEnumerationLiteral >> enumeration [ "The Enumeration that this EnumerationLiteral is a member of." ^ enumeration ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLEnumerationLiteral >> enumeration: anEnumeration [ "The Enumeration that this EnumerationLiteral is a member of." enumeration := OPUMLToOneLink @@ -89,14 +91,14 @@ OPUMLEnumerationLiteral >> enumeration: anEnumeration [ to: anEnumeration ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEnumerationLiteral >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InstanceSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEnumerationLiteral >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -107,92 +109,92 @@ OPUMLEnumerationLiteral >> initializeSharedGeneralizations [ sharedGeneralizations at: #EnumerationLiteral put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEnumerationLiteral >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEnumerationLiteral >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEnumerationLiteral >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - InstanceSpecification' } +{ #category : 'accessing - InstanceSpecification' } OPUMLEnumerationLiteral >> slots [ ^ (sharedGeneralizations at: #InstanceSpecification) slots ] -{ #category : #'accessing - InstanceSpecification' } +{ #category : 'accessing - InstanceSpecification' } OPUMLEnumerationLiteral >> slots: aSlot [ (sharedGeneralizations at: #InstanceSpecification) slots: aSlot ] -{ #category : #'accessing - InstanceSpecification' } +{ #category : 'accessing - InstanceSpecification' } OPUMLEnumerationLiteral >> specification [ ^ (sharedGeneralizations at: #InstanceSpecification) specification ] -{ #category : #'accessing - InstanceSpecification' } +{ #category : 'accessing - InstanceSpecification' } OPUMLEnumerationLiteral >> specification: aValueSpecification [ (sharedGeneralizations at: #InstanceSpecification) specification: aValueSpecification ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEnumerationLiteral >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEnumerationLiteral >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEnumerationLiteral >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEnumerationLiteral >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLEvent.class.st b/repository/OP-UML-Metamodel/OPUMLEvent.class.st index a57a9ff..b001635 100644 --- a/repository/OP-UML-Metamodel/OPUMLEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLEvent.class.st @@ -2,29 +2,31 @@ An Event is the specification of some occurrence that may potentially trigger effects by an object. " Class { - #name : #OPUMLEvent, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-CommonBehavior' + #name : 'OPUMLEvent', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #PackageableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -32,72 +34,72 @@ OPUMLEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #Event put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExceptionHandler.class.st b/repository/OP-UML-Metamodel/OPUMLExceptionHandler.class.st index ba9c309..26d66c0 100644 --- a/repository/OP-UML-Metamodel/OPUMLExceptionHandler.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExceptionHandler.class.st @@ -2,71 +2,73 @@ An ExceptionHandler is an Element that specifies a handlerBody ExecutableNode to execute in case the specified exception occurs during the execution of the protected ExecutableNode. " Class { - #name : #OPUMLExceptionHandler, - #superclass : #OPUMLElement, + #name : 'OPUMLExceptionHandler', + #superclass : 'OPUMLElement', #instVars : [ 'exceptionTypes', 'handlerBody', 'exceptionInput', 'protectedNode' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> exceptionInput [ "An ObjectNode within the handlerBody. When the ExceptionHandler catches an exception, the exception token is placed on this ObjectNode, causing the handlerBody to execute." ^ exceptionInput ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> exceptionInput: anObjectNode [ "An ObjectNode within the handlerBody. When the ExceptionHandler catches an exception, the exception token is placed on this ObjectNode, causing the handlerBody to execute." exceptionInput := anObjectNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> exceptionTypes [ "The Classifiers whose instances the ExceptionHandler catches as exceptions. If an exception occurs whose type is any exceptionType, the ExceptionHandler catches the exception and executes the handlerBody." ^ exceptionTypes ifNil: [ exceptionTypes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> exceptionTypes: aClassifier [ "The Classifiers whose instances the ExceptionHandler catches as exceptions. If an exception occurs whose type is any exceptionType, the ExceptionHandler catches the exception and executes the handlerBody." exceptionTypes := aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> handlerBody [ "An ExecutableNode that is executed if the ExceptionHandler catches an exception." ^ handlerBody ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> handlerBody: anExecutableNode [ "An ExecutableNode that is executed if the ExceptionHandler catches an exception." handlerBody := anExecutableNode ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExceptionHandler >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExceptionHandler >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExceptionHandler put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> protectedNode [ "The ExecutableNode protected by the ExceptionHandler. If an exception propagates out of the protectedNode and has a type matching one of the exceptionTypes, then it is caught by this ExceptionHandler." ^ protectedNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExceptionHandler >> protectedNode: anExecutableNode [ "The ExecutableNode protected by the ExceptionHandler. If an exception propagates out of the protectedNode and has a type matching one of the exceptionTypes, then it is caught by this ExceptionHandler." protectedNode := OPUMLToOneLink diff --git a/repository/OP-UML-Metamodel/OPUMLExecutableNode.class.st b/repository/OP-UML-Metamodel/OPUMLExecutableNode.class.st index 55cb608..e0909e7 100644 --- a/repository/OP-UML-Metamodel/OPUMLExecutableNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExecutableNode.class.st @@ -2,41 +2,43 @@ An ExecutableNode is an abstract class for ActivityNodes whose execution may be controlled using ControlFlows and to which ExceptionHandlers may be attached. " Class { - #name : #OPUMLExecutableNode, - #superclass : #OPUMLElement, + #name : 'OPUMLExecutableNode', + #superclass : 'OPUMLElement', #instVars : [ 'handlers' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutableNode >> handlers [ "A set of ExceptionHandlers that are examined if an exception propagates out of the ExceptionNode." ^ handlers ifNil: [ handlers := OPUMLToManyLinks on: self identity opposite: #protectedNode: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutableNode >> handlers: anExceptionHandler [ "A set of ExceptionHandlers that are examined if an exception propagates out of the ExceptionNode." self handlers @@ -44,64 +46,64 @@ OPUMLExecutableNode >> handlers: anExceptionHandler [ addAll: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutableNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ActivityNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutableNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -109,102 +111,102 @@ OPUMLExecutableNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExecutableNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutableNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutableNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutableNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutableNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExecutableNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutableNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutableNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutableNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExecutionEnvironment.class.st b/repository/OP-UML-Metamodel/OPUMLExecutionEnvironment.class.st index 9cf3c12..37714c5 100644 --- a/repository/OP-UML-Metamodel/OPUMLExecutionEnvironment.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExecutionEnvironment.class.st @@ -2,164 +2,166 @@ An execution environment is a node that offers an execution environment for specific types of components that are deployed on it in the form of executable artifacts. " Class { - #name : #OPUMLExecutionEnvironment, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Deployments' + #name : 'OPUMLExecutionEnvironment', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExecutionEnvironment >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExecutionEnvironment >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLExecutionEnvironment >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLExecutionEnvironment >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExecutionEnvironment >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExecutionEnvironment >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExecutionEnvironment >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExecutionEnvironment >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExecutionEnvironment >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutionEnvironment >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Node. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutionEnvironment >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -178,387 +180,387 @@ OPUMLExecutionEnvironment >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExecutionEnvironment put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLExecutionEnvironment >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLExecutionEnvironment >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutionEnvironment >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutionEnvironment >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Node' } +{ #category : 'accessing - Node' } OPUMLExecutionEnvironment >> nestedNodes [ ^ (sharedGeneralizations at: #Node) nestedNodes ] -{ #category : #'accessing - Node' } +{ #category : 'accessing - Node' } OPUMLExecutionEnvironment >> nestedNodes: aNode [ (sharedGeneralizations at: #Node) nestedNodes: aNode ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLExecutionEnvironment >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLExecutionEnvironment >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLExecutionEnvironment >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLExecutionEnvironment >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLExecutionEnvironment >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLExecutionEnvironment >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExecutionEnvironment >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExecutionEnvironment >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLExecutionEnvironment >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLExecutionEnvironment >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExecutionEnvironment >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExecutionEnvironment >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLExecutionEnvironment >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLExecutionEnvironment >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionEnvironment >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutionEnvironment >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutionEnvironment >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutionEnvironment >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExecutionEnvironment >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLExecutionEnvironment >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLExecutionEnvironment >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLExecutionEnvironment >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLExecutionEnvironment >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLExecutionEnvironment >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExecutionEnvironment >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLExecutionEnvironment >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLExecutionEnvironment >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExecutionOccurrenceSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLExecutionOccurrenceSpecification.class.st index a07f13b..60c9105 100644 --- a/repository/OP-UML-Metamodel/OPUMLExecutionOccurrenceSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExecutionOccurrenceSpecification.class.st @@ -2,94 +2,96 @@ An ExecutionOccurrenceSpecification represents moments in time at which Actions or Behaviors start or finish. " Class { - #name : #OPUMLExecutionOccurrenceSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLExecutionOccurrenceSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'execution' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLExecutionOccurrenceSpecification >> covered [ ^ (sharedGeneralizations at: #OccurrenceSpecification) covered ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLExecutionOccurrenceSpecification >> covered: aLifeline [ (sharedGeneralizations at: #OccurrenceSpecification) covered: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutionOccurrenceSpecification >> execution [ "References the execution specification describing the execution that is started or finished at this execution event." ^ execution ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutionOccurrenceSpecification >> execution: anExecutionSpecification [ "References the execution specification describing the execution that is started or finished at this execution event." execution := anExecutionSpecification ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionOccurrenceSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutionOccurrenceSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #OccurrenceSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutionOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -97,72 +99,72 @@ OPUMLExecutionOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExecutionOccurrenceSpecification put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLExecutionOccurrenceSpecification >> toAfters [ ^ (sharedGeneralizations at: #OccurrenceSpecification) toAfters ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLExecutionOccurrenceSpecification >> toAfters: aGeneralOrdering [ (sharedGeneralizations at: #OccurrenceSpecification) toAfters: aGeneralOrdering ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLExecutionOccurrenceSpecification >> toBefores [ ^ (sharedGeneralizations at: #OccurrenceSpecification) toBefores ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLExecutionOccurrenceSpecification >> toBefores: aGeneralOrdering [ (sharedGeneralizations at: #OccurrenceSpecification) toBefores: aGeneralOrdering ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionOccurrenceSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExecutionSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLExecutionSpecification.class.st index 1ef8290..57c3ba3 100644 --- a/repository/OP-UML-Metamodel/OPUMLExecutionSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExecutionSpecification.class.st @@ -2,149 +2,151 @@ An ExecutionSpecification is a specification of the execution of a unit of Behavior or Action within the Lifeline. The duration of an ExecutionSpecification is represented by two OccurrenceSpecifications, the start OccurrenceSpecification and the finish OccurrenceSpecification. " Class { - #name : #OPUMLExecutionSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLExecutionSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'finish', 'start' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutionSpecification >> finish [ "References the OccurrenceSpecification that designates the finish of the Action or Behavior." ^ finish ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutionSpecification >> finish: anOccurrenceSpecification [ "References the OccurrenceSpecification that designates the finish of the Action or Behavior." finish := anOccurrenceSpecification ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLExecutionSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutionSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExecutionSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). sharedGeneralizations at: #ExecutionSpecification put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutionSpecification >> start [ "References the OccurrenceSpecification that designates the start of the Action or Behavior." ^ start ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExecutionSpecification >> start: anOccurrenceSpecification [ "References the OccurrenceSpecification that designates the start of the Action or Behavior." start := anOccurrenceSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExecutionSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExpansionKind.class.st b/repository/OP-UML-Metamodel/OPUMLExpansionKind.class.st index cf8934f..5eabecc 100644 --- a/repository/OP-UML-Metamodel/OPUMLExpansionKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExpansionKind.class.st @@ -2,47 +2,49 @@ ExpansionKind is an enumeration type used to specify how an ExpansionRegion executes its contents. " Class { - #name : #OPUMLExpansionKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Actions' + #name : 'OPUMLExpansionKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLExpansionKind class >> iterative [ "The content of the ExpansionRegion is executed iteratively for the elements of the input collections, in the order of the input elements, if the collections are ordered." ^ #iterative ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLExpansionKind class >> parallel [ "The content of the ExpansionRegion is executed concurrently for the elements of the input collections." ^ #parallel ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLExpansionKind class >> stream [ "A stream of input collection elements flows into a single execution of the content of the ExpansionRegion, in the order of the collection elements if the input collections are ordered." ^ #stream ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionKind >> iterative [ "The content of the ExpansionRegion is executed iteratively for the elements of the input collections, in the order of the input elements, if the collections are ordered." ^ #iterative ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionKind >> parallel [ "The content of the ExpansionRegion is executed concurrently for the elements of the input collections." ^ #parallel ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionKind >> stream [ "A stream of input collection elements flows into a single execution of the content of the ExpansionRegion, in the order of the collection elements if the input collections are ordered." ^ #stream diff --git a/repository/OP-UML-Metamodel/OPUMLExpansionNode.class.st b/repository/OP-UML-Metamodel/OPUMLExpansionNode.class.st index a49e16f..23e6978 100644 --- a/repository/OP-UML-Metamodel/OPUMLExpansionNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExpansionNode.class.st @@ -2,103 +2,105 @@ An ExpansionNode is an ObjectNode used to indicate a collection input or output for an ExpansionRegion. A collection input of an ExpansionRegion contains a collection that is broken into its individual elements inside the region, whose content is executed once per element. A collection output of an ExpansionRegion combines individual elements produced by the execution of the region into a collection for use outside the region. " Class { - #name : #OPUMLExpansionNode, - #superclass : #OPUMLElement, + #name : 'OPUMLExpansionNode', + #superclass : 'OPUMLElement', #instVars : [ 'regionAsInput', 'regionAsOutput' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExpansionNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ObjectNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExpansionNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -108,123 +110,123 @@ OPUMLExpansionNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExpansionNode put: self. ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionNode >> regionAsInput [ "The ExpansionRegion for which the ExpansionNode is an input." ^ regionAsInput ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionNode >> regionAsInput: anExpansionRegion [ "The ExpansionRegion for which the ExpansionNode is an input." regionAsInput := OPUMLToOneLink @@ -234,13 +236,13 @@ OPUMLExpansionNode >> regionAsInput: anExpansionRegion [ to: anExpansionRegion ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionNode >> regionAsOutput [ "The ExpansionRegion for which the ExpansionNode is an output." ^ regionAsOutput ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionNode >> regionAsOutput: anExpansionRegion [ "The ExpansionRegion for which the ExpansionNode is an output." regionAsOutput := OPUMLToOneLink @@ -250,42 +252,42 @@ OPUMLExpansionNode >> regionAsOutput: anExpansionRegion [ to: anExpansionRegion ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLExpansionNode >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLExpansionNode >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> upperBound [ ^ (sharedGeneralizations at: #ObjectNode) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLExpansionNode >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExpansionRegion.class.st b/repository/OP-UML-Metamodel/OPUMLExpansionRegion.class.st index 419147a..7aaa323 100644 --- a/repository/OP-UML-Metamodel/OPUMLExpansionRegion.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExpansionRegion.class.st @@ -2,174 +2,176 @@ An ExpansionRegion is a StructuredActivityNode that executes its content multiple times corresponding to elements of input collection(s). " Class { - #name : #OPUMLExpansionRegion, - #superclass : #OPUMLElement, + #name : 'OPUMLExpansionRegion', + #superclass : 'OPUMLElement', #instVars : [ 'inputElements', 'outputElements', 'mode' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> activity [ ^ (sharedGeneralizations at: #StructuredActivityNode) activity ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> activity: anActivity [ (sharedGeneralizations at: #StructuredActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> edges [ ^ (sharedGeneralizations at: #StructuredActivityNode) edges ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> edges: anActivityEdge [ (sharedGeneralizations at: #StructuredActivityNode) edges: anActivityEdge ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLExpansionRegion >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLExpansionRegion >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExpansionRegion >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuredActivityNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExpansionRegion >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -182,13 +184,13 @@ OPUMLExpansionRegion >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExpansionRegion put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionRegion >> inputElements [ "The ExpansionNodes that hold the input collections for the ExpansionRegion." ^ inputElements ifNil: [ inputElements := OPUMLToManyLinks on: self identity opposite: #regionAsInput: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionRegion >> inputElements: anExpansionNode [ "The ExpansionNodes that hold the input collections for the ExpansionRegion." self inputElements @@ -196,145 +198,145 @@ OPUMLExpansionRegion >> inputElements: anExpansionNode [ addAll: anExpansionNode ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionRegion >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionRegion >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionRegion >> mode [ "The mode in which the ExpansionRegion executes its contents. If parallel, executions are concurrent. If iterative, executions are sequential. If stream, a stream of values flows into a single execution." ^ mode ifNil: [ mode := OPUMLExpansionKind new iterative ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionRegion >> mode: anExpansionKind [ "The mode in which the ExpansionRegion executes its contents. If parallel, executions are concurrent. If iterative, executions are sequential. If stream, a stream of values flows into a single execution." mode := anExpansionKind ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> mustIsolate [ ^ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> mustIsolate: aBoolean [ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> nodes [ ^ (sharedGeneralizations at: #StructuredActivityNode) nodes ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> nodes: anActivityNode [ (sharedGeneralizations at: #StructuredActivityNode) nodes: anActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionRegion >> outputElements [ "The ExpansionNodes that form the output collections of the ExpansionRegion." ^ outputElements ifNil: [ outputElements := OPUMLToManyLinks on: self identity opposite: #regionAsOutput: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpansionRegion >> outputElements: anExpansionNode [ "The ExpansionNodes that form the output collections of the ExpansionRegion." self outputElements @@ -342,142 +344,142 @@ OPUMLExpansionRegion >> outputElements: anExpansionNode [ addAll: anExpansionNode ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLExpansionRegion >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExpansionRegion >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionRegion >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionRegion >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLExpansionRegion >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionRegion >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExpansionRegion >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> structuredNodeInputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> structuredNodeInputs: anInputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs: anInputPin ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> structuredNodeOutputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> structuredNodeOutputs: anOutputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs: anOutputPin ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLExpansionRegion >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> variables [ ^ (sharedGeneralizations at: #StructuredActivityNode) variables ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLExpansionRegion >> variables: aVariable [ (sharedGeneralizations at: #StructuredActivityNode) variables: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpansionRegion >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExpression.class.st b/repository/OP-UML-Metamodel/OPUMLExpression.class.st index f608ab1..9d902ce 100644 --- a/repository/OP-UML-Metamodel/OPUMLExpression.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExpression.class.st @@ -2,38 +2,40 @@ An Expression represents a node in an expression tree, which may be non-terminal or terminal. It defines a symbol, and has a possibly empty sequence of operands that are ValueSpecifications. It denotes a (possibly empty) set of values when evaluated in a context. " Class { - #name : #OPUMLExpression, - #superclass : #OPUMLElement, + #name : 'OPUMLExpression', + #superclass : 'OPUMLElement', #instVars : [ 'symbol', 'operands' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExpression >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -43,136 +45,136 @@ OPUMLExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #Expression put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpression >> operands [ "Specifies a sequence of operand ValueSpecifications." ^ operands ifNil: [ operands := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpression >> operands: aValueSpecification [ "Specifies a sequence of operand ValueSpecifications." operands := aValueSpecification ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExpression >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExpression >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExpression >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpression >> symbol [ "The symbol associated with this node in the expression tree." ^ symbol ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExpression >> symbol: aString [ "The symbol associated with this node in the expression tree." symbol := aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExpression >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExpression >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLExpression >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLExpression >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLExpression >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLExpression >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLExpression >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExtend.class.st b/repository/OP-UML-Metamodel/OPUMLExtend.class.st index 60b6b24..2fc77eb 100644 --- a/repository/OP-UML-Metamodel/OPUMLExtend.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExtend.class.st @@ -2,58 +2,60 @@ A relationship from an extending UseCase to an extended UseCase that specifies how and when the behavior defined in the extending UseCase can be inserted into the behavior defined in the extended UseCase. " Class { - #name : #OPUMLExtend, - #superclass : #OPUMLElement, + #name : 'OPUMLExtend', + #superclass : 'OPUMLElement', #instVars : [ 'condition', 'extendedCase', 'extension', 'extensionLocations' ], - #category : 'OP-UML-Metamodel-UseCases' + #category : 'OP-UML-Metamodel-UseCases', + #package : 'OP-UML-Metamodel', + #tag : 'UseCases' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> condition [ "References the condition that must hold when the first ExtensionPoint is reached for the extension to take place. If no constraint is associated with the Extend relationship, the extension is unconditional." ^ condition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> condition: aConstraint [ "References the condition that must hold when the first ExtensionPoint is reached for the extension to take place. If no constraint is associated with the Extend relationship, the extension is unconditional." condition := aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> extendedCase [ "The UseCase that is being extended." ^ extendedCase ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> extendedCase: anUseCase [ "The UseCase that is being extended." extendedCase := anUseCase ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> extension [ "The UseCase that represents the extension and owns the Extend relationship." ^ extension ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> extension: anUseCase [ "The UseCase that represents the extension and owns the Extend relationship." extension := OPUMLToOneLink @@ -63,19 +65,19 @@ OPUMLExtend >> extension: anUseCase [ to: anUseCase ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> extensionLocations [ "An ordered list of ExtensionPoints belonging to the extended UseCase, specifying where the respective behavioral fragments of the extending UseCase are to be inserted. The first fragment in the extending UseCase is associated with the first extension point in the list, the second fragment with the second point, and so on. Note that, in most practical cases, the extending UseCase has just a single behavior fragment, so that the list of ExtensionPoints is trivial." ^ extensionLocations ifNil: [ extensionLocations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtend >> extensionLocations: anExtensionPoint [ "An ordered list of ExtensionPoints belonging to the extended UseCase, specifying where the respective behavioral fragments of the extending UseCase are to be inserted. The first fragment in the extending UseCase is associated with the first extension point in the list, the second fragment with the second point, and so on. Note that, in most practical cases, the extending UseCase has just a single behavior fragment, so that the list of ExtensionPoints is trivial." extensionLocations := anExtensionPoint ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtend >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. @@ -83,7 +85,7 @@ OPUMLExtend >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtend >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -91,82 +93,82 @@ OPUMLExtend >> initializeSharedGeneralizations [ sharedGeneralizations at: #Extend put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLExtend >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLExtend >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLExtend >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLExtend >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLExtend >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLExtend >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtend >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExtension.class.st b/repository/OP-UML-Metamodel/OPUMLExtension.class.st index 05a5142..3bcb1d3 100644 --- a/repository/OP-UML-Metamodel/OPUMLExtension.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExtension.class.st @@ -2,139 +2,141 @@ An extension is used to indicate that the properties of a metaclass are extended through a stereotype, and gives the ability to flexibly add (and later remove) stereotypes to classes. " Class { - #name : #OPUMLExtension, - #superclass : #OPUMLElement, + #name : 'OPUMLExtension', + #superclass : 'OPUMLElement', #instVars : [ 'metaclass', 'isRequired', 'ownedEnd' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExtension >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExtension >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> endTypes [ ^ (sharedGeneralizations at: #Association) endTypes ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> endTypes: aType [ (sharedGeneralizations at: #Association) endTypes: aType ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExtension >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtension >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Association. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtension >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -149,47 +151,47 @@ OPUMLExtension >> initializeSharedGeneralizations [ sharedGeneralizations at: #Extension put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> isDerived [ ^ (sharedGeneralizations at: #Association) isDerived ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> isDerived: aBoolean [ (sharedGeneralizations at: #Association) isDerived: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtension >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtension >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #operations } +{ #category : 'operations' } OPUMLExtension >> isRequired [ "The query isRequired() is true if the owned end has a multiplicity with the lower bound of 1." @@ -199,13 +201,13 @@ OPUMLExtension >> isRequired [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtension >> isRequired: aBoolean [ "Indicates whether an instance of the extending stereotype must be created when an instance of the extended class is created. The attribute value is derived from the value of the lower property of the ExtensionEnd referenced by Extension::ownedEnd; a lower value of 1 means that isRequired is true, but otherwise it is false. Since the default value of ExtensionEnd::lower is 0, the default value of isRequired is false." isRequired := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLExtension >> isRequiredStub [ "The query isRequired() is true if the owned end has a multiplicity with the lower bound of 1." @@ -215,27 +217,27 @@ OPUMLExtension >> isRequiredStub [ ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> memberEnds [ ^ (sharedGeneralizations at: #Association) memberEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> memberEnds: aProperty [ (sharedGeneralizations at: #Association) memberEnds: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #operations } +{ #category : 'operations' } OPUMLExtension >> metaclass [ "The query metaclass() returns the metaclass that is being extended (as opposed to the extending stereotype)." @@ -245,7 +247,7 @@ OPUMLExtension >> metaclass [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtension >> metaclass: aClass [ "References the Class that is extended through an Extension. The property is derived from the type of the memberEnd that is not the ownedEnd." metaclass := OPUMLToOneLink @@ -255,7 +257,7 @@ OPUMLExtension >> metaclass: aClass [ to: aClass ] -{ #category : #operations } +{ #category : 'operations' } OPUMLExtension >> metaclassEnd [ "The query metaclassEnd() returns the Property that is typed by a metaclass (as opposed to a stereotype)." @@ -265,7 +267,7 @@ OPUMLExtension >> metaclassEnd [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLExtension >> metaclassEndStub [ "The query metaclassEnd() returns the Property that is typed by a metaclass (as opposed to a stereotype)." @@ -275,7 +277,7 @@ OPUMLExtension >> metaclassEndStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLExtension >> metaclassStub [ "The query metaclass() returns the metaclass that is being extended (as opposed to the extending stereotype)." @@ -285,259 +287,259 @@ OPUMLExtension >> metaclassStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> navigableOwnedEnds [ ^ (sharedGeneralizations at: #Association) navigableOwnedEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> navigableOwnedEnds: aProperty [ (sharedGeneralizations at: #Association) navigableOwnedEnds: aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtension >> ownedEnd [ "References the end of the extension that is typed by a Stereotype." ^ ownedEnd ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtension >> ownedEnd: anExtensionEnd [ "References the end of the extension that is typed by a Stereotype." ownedEnd := anExtensionEnd ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> ownedEnds [ ^ (sharedGeneralizations at: #Association) ownedEnds ] -{ #category : #'accessing - Association' } +{ #category : 'accessing - Association' } OPUMLExtension >> ownedEnds: aProperty [ (sharedGeneralizations at: #Association) ownedEnds: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExtension >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExtension >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLExtension >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLExtension >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLExtension >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLExtension >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtension >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtension >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtension >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtension >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtension >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLExtension >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLExtension >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLExtension >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLExtension >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLExtension >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLExtension >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLExtension >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExtensionEnd.class.st b/repository/OP-UML-Metamodel/OPUMLExtensionEnd.class.st index 28a7630..f836995 100644 --- a/repository/OP-UML-Metamodel/OPUMLExtensionEnd.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExtensionEnd.class.st @@ -3,123 +3,125 @@ An extension end is used to tie an extension to a stereotype when extending a me The default multiplicity of an extension end is 0..1. " Class { - #name : #OPUMLExtensionEnd, - #superclass : #OPUMLElement, + #name : 'OPUMLExtensionEnd', + #superclass : 'OPUMLElement', #instVars : [ 'type', 'lower' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> aggregation [ ^ (sharedGeneralizations at: #Property) aggregation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> aggregation: anAggregationKind [ (sharedGeneralizations at: #Property) aggregation: anAggregationKind ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> association [ ^ (sharedGeneralizations at: #Property) association ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> association: anAssociation [ (sharedGeneralizations at: #Property) association: anAssociation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> associationEnd [ ^ (sharedGeneralizations at: #Property) associationEnd ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> associationEnd: aProperty [ (sharedGeneralizations at: #Property) associationEnd: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> datatype [ ^ (sharedGeneralizations at: #Property) datatype ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> datatype: aDataType [ (sharedGeneralizations at: #Property) datatype: aDataType ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> defaultValue [ ^ (sharedGeneralizations at: #Property) defaultValue ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> defaultValue: aValueSpecification [ (sharedGeneralizations at: #Property) defaultValue: aValueSpecification ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExtensionEnd >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExtensionEnd >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExtensionEnd >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLExtensionEnd >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLExtensionEnd >> ends [ ^ (sharedGeneralizations at: #ConnectableElement) ends ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLExtensionEnd >> ends: aConnectorEnd [ (sharedGeneralizations at: #ConnectableElement) ends: aConnectorEnd ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLExtensionEnd >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLExtensionEnd >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtensionEnd >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Property. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtensionEnd >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -134,128 +136,128 @@ OPUMLExtensionEnd >> initializeSharedGeneralizations [ sharedGeneralizations at: #ExtensionEnd put: self. ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> interface [ ^ (sharedGeneralizations at: #Property) interface ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> interface: anInterface [ (sharedGeneralizations at: #Property) interface: anInterface ] -{ #category : #'operations - Property' } +{ #category : 'operations - Property' } OPUMLExtensionEnd >> isComposite [ ^ (sharedGeneralizations at: #Property) isComposite ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isComposite: aBoolean [ (sharedGeneralizations at: #Property) isComposite: aBoolean ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isDerived [ ^ (sharedGeneralizations at: #Property) isDerived ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isDerived: aBoolean [ (sharedGeneralizations at: #Property) isDerived: aBoolean ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isDerivedUnion [ ^ (sharedGeneralizations at: #Property) isDerivedUnion ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isDerivedUnion: aBoolean [ (sharedGeneralizations at: #Property) isDerivedUnion: aBoolean ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isID [ ^ (sharedGeneralizations at: #Property) isID ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> isID: aBoolean [ (sharedGeneralizations at: #Property) isID: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionEnd >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionEnd >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLExtensionEnd >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'operations - Property' } +{ #category : 'operations - Property' } OPUMLExtensionEnd >> isNavigable [ ^ (sharedGeneralizations at: #Property) isNavigable ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - StructuralFeature' } +{ #category : 'accessing - StructuralFeature' } OPUMLExtensionEnd >> isReadOnly [ ^ (sharedGeneralizations at: #StructuralFeature) isReadOnly ] -{ #category : #'accessing - StructuralFeature' } +{ #category : 'accessing - StructuralFeature' } OPUMLExtensionEnd >> isReadOnly: aBoolean [ (sharedGeneralizations at: #StructuralFeature) isReadOnly: aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLExtensionEnd >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLExtensionEnd >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLExtensionEnd >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtensionEnd >> lower: anInteger [ "This redefinition changes the default multiplicity of association ends, since model elements are usually extended by 0 or 1 instance of the extension stereotype." lower := anInteger ] -{ #category : #operations } +{ #category : 'operations' } OPUMLExtensionEnd >> lowerBound [ "The query lowerBound() returns the lower bound of the multiplicity as an Integer. This is a redefinition of the default lower bound, which normally, for MultiplicityElements, evaluates to 1 if empty." @@ -265,7 +267,7 @@ OPUMLExtensionEnd >> lowerBound [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLExtensionEnd >> lowerBoundStub [ "The query lowerBound() returns the lower bound of the multiplicity as an Integer. This is a redefinition of the default lower bound, which normally, for MultiplicityElements, evaluates to 1 if empty." @@ -275,199 +277,199 @@ OPUMLExtensionEnd >> lowerBoundStub [ ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - Property' } +{ #category : 'operations - Property' } OPUMLExtensionEnd >> opposite [ ^ (sharedGeneralizations at: #Property) opposite ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> opposite: aProperty [ (sharedGeneralizations at: #Property) opposite: aProperty ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> owningAssociation [ ^ (sharedGeneralizations at: #Property) owningAssociation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> owningAssociation: anAssociation [ (sharedGeneralizations at: #Property) owningAssociation: anAssociation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> owningClass [ ^ (sharedGeneralizations at: #Property) owningClass ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> owningClass: aClass [ (sharedGeneralizations at: #Property) owningClass: aClass ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExtensionEnd >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLExtensionEnd >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> qualifiers [ ^ (sharedGeneralizations at: #Property) qualifiers ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> qualifiers: aProperty [ (sharedGeneralizations at: #Property) qualifiers: aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionEnd >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionEnd >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> redefinedProperties [ ^ (sharedGeneralizations at: #Property) redefinedProperties ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> redefinedProperties: aProperty [ (sharedGeneralizations at: #Property) redefinedProperties: aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionEnd >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionEnd >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> subsettedProperties [ ^ (sharedGeneralizations at: #Property) subsettedProperties ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLExtensionEnd >> subsettedProperties: aProperty [ (sharedGeneralizations at: #Property) subsettedProperties: aProperty ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLExtensionEnd >> templateParameter [ ^ (sharedGeneralizations at: #ConnectableElement) templateParameter ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLExtensionEnd >> templateParameter: aConnectableElementTemplateParameter [ (sharedGeneralizations at: #ConnectableElement) templateParameter: aConnectableElementTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtensionEnd >> type [ "References the type of the ExtensionEnd. Note that this association restricts the possible types of an ExtensionEnd to only be Stereotypes." ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtensionEnd >> type: aStereotype [ "References the type of the ExtensionEnd. Note that this association restricts the possible types of an ExtensionEnd to only be Stereotypes." type := aStereotype ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLExtensionEnd >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLExtensionEnd >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLExtensionEnd >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionEnd >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLExtensionPoint.class.st b/repository/OP-UML-Metamodel/OPUMLExtensionPoint.class.st index a12afca..52d31f8 100644 --- a/repository/OP-UML-Metamodel/OPUMLExtensionPoint.class.st +++ b/repository/OP-UML-Metamodel/OPUMLExtensionPoint.class.st @@ -2,115 +2,117 @@ An ExtensionPoint identifies a point in the behavior of a UseCase where that behavior can be extended by the behavior of some other (extending) UseCase, as specified by an Extend relationship. " Class { - #name : #OPUMLExtensionPoint, - #superclass : #OPUMLElement, + #name : 'OPUMLExtensionPoint', + #superclass : 'OPUMLElement', #instVars : [ 'useCase' ], - #category : 'OP-UML-Metamodel-UseCases' + #category : 'OP-UML-Metamodel-UseCases', + #package : 'OP-UML-Metamodel', + #tag : 'UseCases' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtensionPoint >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #RedefinableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLExtensionPoint >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ExtensionPoint put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionPoint >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionPoint >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionPoint >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionPoint >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionPoint >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLExtensionPoint >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtensionPoint >> useCase [ "The UseCase that owns this ExtensionPoint." ^ useCase ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLExtensionPoint >> useCase: anUseCase [ "The UseCase that owns this ExtensionPoint." useCase := OPUMLToOneLink @@ -120,12 +122,12 @@ OPUMLExtensionPoint >> useCase: anUseCase [ to: anUseCase ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLExtensionPoint >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLFeature.class.st b/repository/OP-UML-Metamodel/OPUMLFeature.class.st index 14c1a77..8c7f136 100644 --- a/repository/OP-UML-Metamodel/OPUMLFeature.class.st +++ b/repository/OP-UML-Metamodel/OPUMLFeature.class.st @@ -2,32 +2,34 @@ A Feature declares a behavioral or structural characteristic of Classifiers. " Class { - #name : #OPUMLFeature, - #superclass : #OPUMLElement, + #name : 'OPUMLFeature', + #superclass : 'OPUMLElement', #instVars : [ 'featuringClassifier', 'isStatic' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLFeature >> featuringClassifier [ "The Classifiers that have this Feature as a feature." ^ featuringClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLFeature >> featuringClassifier: aClassifier [ "The Classifiers that have this Feature as a feature." featuringClassifier := OPUMLToOneLink @@ -37,108 +39,108 @@ OPUMLFeature >> featuringClassifier: aClassifier [ to: aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFeature >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #RedefinableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFeature >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Feature put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFeature >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFeature >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLFeature >> isStatic [ "Specifies whether this Feature characterizes individual instances classified by the Classifier (false) or the Classifier itself (true)." ^ isStatic ifNil: [ isStatic := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLFeature >> isStatic: aBoolean [ "Specifies whether this Feature characterizes individual instances classified by the Classifier (false) or the Classifier itself (true)." isStatic := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFeature >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFeature >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFeature >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFeature >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFeature >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLFinalNode.class.st b/repository/OP-UML-Metamodel/OPUMLFinalNode.class.st index f18bb22..5e8f1f9 100644 --- a/repository/OP-UML-Metamodel/OPUMLFinalNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLFinalNode.class.st @@ -2,89 +2,91 @@ A FinalNode is an abstract ControlNode at which a flow in an Activity stops. " Class { - #name : #OPUMLFinalNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLFinalNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFinalNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ControlNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFinalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -93,102 +95,102 @@ OPUMLFinalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #FinalNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFinalNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLFinalState.class.st b/repository/OP-UML-Metamodel/OPUMLFinalState.class.st index 22d71be..8a03c14 100644 --- a/repository/OP-UML-Metamodel/OPUMLFinalState.class.st +++ b/repository/OP-UML-Metamodel/OPUMLFinalState.class.st @@ -2,129 +2,131 @@ A special kind of State, which, when entered, signifies that the enclosing Region has completed. If the enclosing Region is directly contained in a StateMachine and all other Regions in that StateMachine also are completed, then it means that the entire StateMachine behavior is completed. " Class { - #name : #OPUMLFinalState, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-StateMachines' + #name : 'OPUMLFinalState', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> connectionPoints [ ^ (sharedGeneralizations at: #State) connectionPoints ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> connectionPoints: aPseudostate [ (sharedGeneralizations at: #State) connectionPoints: aPseudostate ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> connections [ ^ (sharedGeneralizations at: #State) connections ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> connections: aConnectionPointReference [ (sharedGeneralizations at: #State) connections: aConnectionPointReference ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLFinalState >> container [ ^ (sharedGeneralizations at: #Vertex) container ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLFinalState >> container: aRegion [ (sharedGeneralizations at: #Vertex) container: aRegion ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> deferrableTriggers [ ^ (sharedGeneralizations at: #State) deferrableTriggers ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> deferrableTriggers: aTrigger [ (sharedGeneralizations at: #State) deferrableTriggers: aTrigger ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> doActivity [ ^ (sharedGeneralizations at: #State) doActivity ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> doActivity: aBehavior [ (sharedGeneralizations at: #State) doActivity: aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> entry [ ^ (sharedGeneralizations at: #State) entry ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> entry: aBehavior [ (sharedGeneralizations at: #State) entry: aBehavior ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> exit [ ^ (sharedGeneralizations at: #State) exit ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> exit: aBehavior [ (sharedGeneralizations at: #State) exit: aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLFinalState >> incomings [ ^ (sharedGeneralizations at: #Vertex) incomings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLFinalState >> incomings: aTransition [ (sharedGeneralizations at: #Vertex) incomings: aTransition ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFinalState >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #State. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFinalState >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -134,222 +136,222 @@ OPUMLFinalState >> initializeSharedGeneralizations [ sharedGeneralizations at: #FinalState put: self. ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isComposite [ ^ (sharedGeneralizations at: #State) isComposite ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isComposite: aBoolean [ (sharedGeneralizations at: #State) isComposite: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalState >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalState >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isOrthogonal [ ^ (sharedGeneralizations at: #State) isOrthogonal ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isOrthogonal: aBoolean [ (sharedGeneralizations at: #State) isOrthogonal: aBoolean ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isSimple [ ^ (sharedGeneralizations at: #State) isSimple ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isSimple: aBoolean [ (sharedGeneralizations at: #State) isSimple: aBoolean ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isSubmachineState [ ^ (sharedGeneralizations at: #State) isSubmachineState ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> isSubmachineState: aBoolean [ (sharedGeneralizations at: #State) isSubmachineState: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLFinalState >> outgoings [ ^ (sharedGeneralizations at: #Vertex) outgoings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLFinalState >> outgoings: aTransition [ (sharedGeneralizations at: #Vertex) outgoings: aTransition ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFinalState >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalState >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalState >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> redefinedState [ ^ (sharedGeneralizations at: #State) redefinedState ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> redefinedState: aState [ (sharedGeneralizations at: #State) redefinedState: aState ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> redefinitionContext [ ^ (sharedGeneralizations at: #State) redefinitionContext ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> redefinitionContext: aClassifier [ (sharedGeneralizations at: #State) redefinitionContext: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalState >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFinalState >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> regions [ ^ (sharedGeneralizations at: #State) regions ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> regions: aRegion [ (sharedGeneralizations at: #State) regions: aRegion ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> stateInvariant [ ^ (sharedGeneralizations at: #State) stateInvariant ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> stateInvariant: aConstraint [ (sharedGeneralizations at: #State) stateInvariant: aConstraint ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> submachine [ ^ (sharedGeneralizations at: #State) submachine ] -{ #category : #'accessing - State' } +{ #category : 'accessing - State' } OPUMLFinalState >> submachine: aStateMachine [ (sharedGeneralizations at: #State) submachine: aStateMachine ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFinalState >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLFlowFinalNode.class.st b/repository/OP-UML-Metamodel/OPUMLFlowFinalNode.class.st index a07252d..4c1443f 100644 --- a/repository/OP-UML-Metamodel/OPUMLFlowFinalNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLFlowFinalNode.class.st @@ -2,89 +2,91 @@ A FlowFinalNode is a FinalNode that terminates a flow by consuming the tokens offered to it. " Class { - #name : #OPUMLFlowFinalNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLFlowFinalNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFlowFinalNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #FinalNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFlowFinalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -94,102 +96,102 @@ OPUMLFlowFinalNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #FlowFinalNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFlowFinalNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFlowFinalNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFlowFinalNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFlowFinalNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLFlowFinalNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFlowFinalNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFlowFinalNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFlowFinalNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLForkNode.class.st b/repository/OP-UML-Metamodel/OPUMLForkNode.class.st index b8e2369..c947cf8 100644 --- a/repository/OP-UML-Metamodel/OPUMLForkNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLForkNode.class.st @@ -2,89 +2,91 @@ A ForkNode is a ControlNode that splits a flow into multiple concurrent flows. " Class { - #name : #OPUMLForkNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLForkNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLForkNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ControlNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLForkNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -93,102 +95,102 @@ OPUMLForkNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ForkNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLForkNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLForkNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLForkNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLForkNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLForkNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLForkNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLForkNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLForkNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLFunctionBehavior.class.st b/repository/OP-UML-Metamodel/OPUMLFunctionBehavior.class.st index 9971a05..5eb72bd 100644 --- a/repository/OP-UML-Metamodel/OPUMLFunctionBehavior.class.st +++ b/repository/OP-UML-Metamodel/OPUMLFunctionBehavior.class.st @@ -2,137 +2,139 @@ A FunctionBehavior is an OpaqueBehavior that does not access or modify any objects or other external data. " Class { - #name : #OPUMLFunctionBehavior, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-CommonBehavior' + #name : 'OPUMLFunctionBehavior', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLFunctionBehavior >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLFunctionBehavior >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - OpaqueBehavior' } +{ #category : 'accessing - OpaqueBehavior' } OPUMLFunctionBehavior >> bodies [ ^ (sharedGeneralizations at: #OpaqueBehavior) bodies ] -{ #category : #'accessing - OpaqueBehavior' } +{ #category : 'accessing - OpaqueBehavior' } OPUMLFunctionBehavior >> bodies: aString [ (sharedGeneralizations at: #OpaqueBehavior) bodies: aString ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLFunctionBehavior >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLFunctionBehavior >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> context [ ^ (sharedGeneralizations at: #Behavior) context ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> context: aBehavioredClassifier [ (sharedGeneralizations at: #Behavior) context: aBehavioredClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLFunctionBehavior >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLFunctionBehavior >> hasAllDataTypeAttributesStub [ "The hasAllDataTypeAttributes query tests whether the types of the attributes of the given DataType are all DataTypes, and similarly for all those DataTypes." @@ -144,34 +146,34 @@ OPUMLFunctionBehavior >> hasAllDataTypeAttributesStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFunctionBehavior >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #OpaqueBehavior. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLFunctionBehavior >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -190,457 +192,457 @@ OPUMLFunctionBehavior >> initializeSharedGeneralizations [ sharedGeneralizations at: #FunctionBehavior put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLFunctionBehavior >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLFunctionBehavior >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFunctionBehavior >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFunctionBehavior >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> isReentrant [ ^ (sharedGeneralizations at: #Behavior) isReentrant ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> isReentrant: aBoolean [ (sharedGeneralizations at: #Behavior) isReentrant: aBoolean ] -{ #category : #'accessing - OpaqueBehavior' } +{ #category : 'accessing - OpaqueBehavior' } OPUMLFunctionBehavior >> languages [ ^ (sharedGeneralizations at: #OpaqueBehavior) languages ] -{ #category : #'accessing - OpaqueBehavior' } +{ #category : 'accessing - OpaqueBehavior' } OPUMLFunctionBehavior >> languages: aString [ (sharedGeneralizations at: #OpaqueBehavior) languages: aString ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLFunctionBehavior >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLFunctionBehavior >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLFunctionBehavior >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLFunctionBehavior >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> ownedParameterSets [ ^ (sharedGeneralizations at: #Behavior) ownedParameterSets ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #Behavior) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> ownedParameters [ ^ (sharedGeneralizations at: #Behavior) ownedParameters ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> ownedParameters: aParameter [ (sharedGeneralizations at: #Behavior) ownedParameters: aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLFunctionBehavior >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLFunctionBehavior >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLFunctionBehavior >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLFunctionBehavior >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLFunctionBehavior >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLFunctionBehavior >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLFunctionBehavior >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLFunctionBehavior >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLFunctionBehavior >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLFunctionBehavior >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> postconditions [ ^ (sharedGeneralizations at: #Behavior) postconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> postconditions: aConstraint [ (sharedGeneralizations at: #Behavior) postconditions: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> preconditions [ ^ (sharedGeneralizations at: #Behavior) preconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> preconditions: aConstraint [ (sharedGeneralizations at: #Behavior) preconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLFunctionBehavior >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> redefinedBehaviors [ ^ (sharedGeneralizations at: #Behavior) redefinedBehaviors ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> redefinedBehaviors: aBehavior [ (sharedGeneralizations at: #Behavior) redefinedBehaviors: aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFunctionBehavior >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFunctionBehavior >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFunctionBehavior >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLFunctionBehavior >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLFunctionBehavior >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLFunctionBehavior >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> specification [ ^ (sharedGeneralizations at: #Behavior) specification ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLFunctionBehavior >> specification: aBehavioralFeature [ (sharedGeneralizations at: #Behavior) specification: aBehavioralFeature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLFunctionBehavior >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLFunctionBehavior >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLFunctionBehavior >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLFunctionBehavior >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLFunctionBehavior >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLFunctionBehavior >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLGate.class.st b/repository/OP-UML-Metamodel/OPUMLGate.class.st index ad0578e..eae8f1f 100644 --- a/repository/OP-UML-Metamodel/OPUMLGate.class.st +++ b/repository/OP-UML-Metamodel/OPUMLGate.class.st @@ -2,22 +2,24 @@ A Gate is a MessageEnd which serves as a connection point for relating a Message which has a MessageEnd (sendEvent / receiveEvent) outside an InteractionFragment with another Message which has a MessageEnd (receiveEvent / sendEvent) inside that InteractionFragment. " Class { - #name : #OPUMLGate, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLGate', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> getNameStub [ "This query returns the name of the gate, either the explicit name (.name) or the constructed name ('out_"" or 'in_' concatenated in front of .message.name) if the explicit name is not present." @@ -38,7 +40,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> getOperandStub [ "If the Gate is an inside Combined Fragment Gate, this operation returns the InteractionOperand that the opposite end of this Gate is included within." @@ -57,21 +59,21 @@ endif)" ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGate >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MessageEnd. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGate >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #MessageEnd put: (OPUMLMessageEnd newOnShared: sharedGeneralizations). sharedGeneralizations at: #Gate put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> isActualStub [ "This query returns true value if this Gate is an actualGate of an InteractionUse." @@ -81,7 +83,7 @@ OPUMLGate >> isActualStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> isDistinguishableFromStub [ "The query isDistinguishableFrom() specifies that two Gates may coexist in the same Namespace, without an explicit name property. The association end formalGate subsets ownedElement, and since the Gate name attribute is optional, it is allowed to have two formal gates without an explicit name, but having derived names which are distinct." @@ -92,7 +94,7 @@ is optional, it is allowed to have two formal gates without an explicit name, bu ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> isFormalStub [ "This query returns true if this Gate is a formalGate of an Interaction." @@ -102,7 +104,7 @@ OPUMLGate >> isFormalStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> isInsideCFStub [ "This query returns true if this Gate is attached to the boundary of a CombinedFragment, and its other end (if present) is inside of an InteractionOperator of the same CombinedFragment." @@ -120,7 +122,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> isOutsideCFStub [ "This query returns true if this Gate is attached to the boundary of a CombinedFragment, and its other end (if present) is outside of the same CombinedFragment." @@ -143,7 +145,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLGate >> matchesStub [ "This query returns true if the name of this Gate matches the name of the in parameter Gate, and the messages for the two Gates correspond. The Message for one Gate (say A) corresponds to the Message for another Gate (say B) if (A and B have the same name value) and (if A is a sendEvent then B is a receiveEvent) and (if A is a receiveEvent then B is a sendEvent) and (A and B have the same messageSort value) and (A and B have the same signature value)." @@ -158,62 +160,62 @@ self.message.signature = gateToMatch.message.signature)" ] -{ #category : #'accessing - MessageEnd' } +{ #category : 'accessing - MessageEnd' } OPUMLGate >> message [ ^ (sharedGeneralizations at: #MessageEnd) message ] -{ #category : #'accessing - MessageEnd' } +{ #category : 'accessing - MessageEnd' } OPUMLGate >> message: aMessage [ (sharedGeneralizations at: #MessageEnd) message: aMessage ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGate >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLGeneralOrdering.class.st b/repository/OP-UML-Metamodel/OPUMLGeneralOrdering.class.st index 3632ab9..e465b16 100644 --- a/repository/OP-UML-Metamodel/OPUMLGeneralOrdering.class.st +++ b/repository/OP-UML-Metamodel/OPUMLGeneralOrdering.class.st @@ -2,22 +2,24 @@ A GeneralOrdering represents a binary relation between two OccurrenceSpecifications, to describe that one OccurrenceSpecification must occur before the other in a valid trace. This mechanism provides the ability to define partial orders of OccurrenceSpecifications that may otherwise not have a specified order. " Class { - #name : #OPUMLGeneralOrdering, - #superclass : #OPUMLElement, + #name : 'OPUMLGeneralOrdering', + #superclass : 'OPUMLElement', #instVars : [ 'before', 'after' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralOrdering >> after [ "The OccurrenceSpecification referenced comes after the OccurrenceSpecification referenced by before." ^ after ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralOrdering >> after: anOccurrenceSpecification [ "The OccurrenceSpecification referenced comes after the OccurrenceSpecification referenced by before." after := OPUMLToOneLink @@ -27,13 +29,13 @@ OPUMLGeneralOrdering >> after: anOccurrenceSpecification [ to: anOccurrenceSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralOrdering >> before [ "The OccurrenceSpecification referenced comes before the OccurrenceSpecification referenced by after." ^ before ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralOrdering >> before: anOccurrenceSpecification [ "The OccurrenceSpecification referenced comes before the OccurrenceSpecification referenced by after." before := OPUMLToOneLink @@ -43,75 +45,75 @@ OPUMLGeneralOrdering >> before: anOccurrenceSpecification [ to: anOccurrenceSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGeneralOrdering >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGeneralOrdering >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #GeneralOrdering put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralOrdering >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLGeneralization.class.st b/repository/OP-UML-Metamodel/OPUMLGeneralization.class.st index c44cc42..c5dc0f8 100644 --- a/repository/OP-UML-Metamodel/OPUMLGeneralization.class.st +++ b/repository/OP-UML-Metamodel/OPUMLGeneralization.class.st @@ -2,36 +2,38 @@ A Generalization is a taxonomic relationship between a more general Classifier and a more specific Classifier. Each instance of the specific Classifier is also an instance of the general Classifier. The specific Classifier inherits the features of the more general Classifier. A Generalization is owned by the specific Classifier. " Class { - #name : #OPUMLGeneralization, - #superclass : #OPUMLElement, + #name : 'OPUMLGeneralization', + #superclass : 'OPUMLElement', #instVars : [ 'generalizationSets', 'general', 'isSubstitutable', 'specific' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> general [ "The general classifier in the Generalization relationship." ^ general ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> general: aClassifier [ "The general classifier in the Generalization relationship." general := aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> generalizationSets [ "Represents a set of instances of Generalization. A Generalization may appear in many GeneralizationSets." ^ generalizationSets ifNil: [ generalizationSets := OPUMLManyToManyLinks on: self identity opposite: #generalizations ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> generalizationSets: aGeneralizationSet [ "Represents a set of instances of Generalization. A Generalization may appear in many GeneralizationSets." self generalizationSets @@ -39,59 +41,59 @@ OPUMLGeneralization >> generalizationSets: aGeneralizationSet [ addAll: aGeneralizationSet ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGeneralization >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGeneralization >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #Generalization put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> isSubstitutable [ "Indicates whether the specific Classifier can be used wherever the general Classifier can be used. If true, the execution traces of the specific Classifier shall be a superset of the execution traces of the general Classifier. If false, there is no such constraint on execution traces. If unset, the modeler has not stated whether there is such a constraint or not." ^ isSubstitutable ifNil: [ isSubstitutable := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> isSubstitutable: aBoolean [ "Indicates whether the specific Classifier can be used wherever the general Classifier can be used. If true, the execution traces of the specific Classifier shall be a superset of the execution traces of the general Classifier. If false, there is no such constraint on execution traces. If unset, the modeler has not stated whether there is such a constraint or not." isSubstitutable := aBoolean ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLGeneralization >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLGeneralization >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLGeneralization >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLGeneralization >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> specific [ "The specializing Classifier in the Generalization relationship." ^ specific ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralization >> specific: aClassifier [ "The specializing Classifier in the Generalization relationship." specific := OPUMLToOneLink @@ -101,12 +103,12 @@ OPUMLGeneralization >> specific: aClassifier [ to: aClassifier ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLGeneralization >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLGeneralization >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] diff --git a/repository/OP-UML-Metamodel/OPUMLGeneralizationSet.class.st b/repository/OP-UML-Metamodel/OPUMLGeneralizationSet.class.st index cd77e5c..0c16b9f 100644 --- a/repository/OP-UML-Metamodel/OPUMLGeneralizationSet.class.st +++ b/repository/OP-UML-Metamodel/OPUMLGeneralizationSet.class.st @@ -2,34 +2,36 @@ A GeneralizationSet is a PackageableElement whose instances represent sets of Generalization relationships. " Class { - #name : #OPUMLGeneralizationSet, - #superclass : #OPUMLElement, + #name : 'OPUMLGeneralizationSet', + #superclass : 'OPUMLElement', #instVars : [ 'powertype', 'isCovering', 'generalizations', 'isDisjoint' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> generalizations [ "Designates the instances of Generalization that are members of this GeneralizationSet." ^ generalizations ifNil: [ generalizations := OPUMLManyToManyLinks on: self identity opposite: #generalizationSets ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> generalizations: aGeneralization [ "Designates the instances of Generalization that are members of this GeneralizationSet." self generalizations @@ -37,14 +39,14 @@ OPUMLGeneralizationSet >> generalizations: aGeneralization [ addAll: aGeneralization ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGeneralizationSet >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #PackageableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLGeneralizationSet >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -52,77 +54,77 @@ OPUMLGeneralizationSet >> initializeSharedGeneralizations [ sharedGeneralizations at: #GeneralizationSet put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> isCovering [ "Indicates (via the associated Generalizations) whether or not the set of specific Classifiers are covering for a particular general classifier. When isCovering is true, every instance of a particular general Classifier is also an instance of at least one of its specific Classifiers for the GeneralizationSet. When isCovering is false, there are one or more instances of the particular general Classifier that are not instances of at least one of its specific Classifiers defined for the GeneralizationSet." ^ isCovering ifNil: [ isCovering := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> isCovering: aBoolean [ "Indicates (via the associated Generalizations) whether or not the set of specific Classifiers are covering for a particular general classifier. When isCovering is true, every instance of a particular general Classifier is also an instance of at least one of its specific Classifiers for the GeneralizationSet. When isCovering is false, there are one or more instances of the particular general Classifier that are not instances of at least one of its specific Classifiers defined for the GeneralizationSet." isCovering := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> isDisjoint [ "Indicates whether or not the set of specific Classifiers in a Generalization relationship have instance in common. If isDisjoint is true, the specific Classifiers for a particular GeneralizationSet have no members in common; that is, their intersection is empty. If isDisjoint is false, the specific Classifiers in a particular GeneralizationSet have one or more members in common; that is, their intersection is not empty." ^ isDisjoint ifNil: [ isDisjoint := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> isDisjoint: aBoolean [ "Indicates whether or not the set of specific Classifiers in a Generalization relationship have instance in common. If isDisjoint is true, the specific Classifiers for a particular GeneralizationSet have no members in common; that is, their intersection is empty. If isDisjoint is false, the specific Classifiers in a particular GeneralizationSet have one or more members in common; that is, their intersection is not empty." isDisjoint := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLGeneralizationSet >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLGeneralizationSet >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> powertype [ "Designates the Classifier that is defined as the power type for the associated GeneralizationSet, if there is one." ^ powertype ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLGeneralizationSet >> powertype: aClassifier [ "Designates the Classifier that is defined as the power type for the associated GeneralizationSet, if there is one." powertype := OPUMLToOneLink @@ -132,32 +134,32 @@ OPUMLGeneralizationSet >> powertype: aClassifier [ to: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLGeneralizationSet >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLGeneralizationSet >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLGeneralizationSet >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLGeneralizationSet >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLGeneralizationSet >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLImage.class.st b/repository/OP-UML-Metamodel/OPUMLImage.class.st index 8f008b4..af727a7 100644 --- a/repository/OP-UML-Metamodel/OPUMLImage.class.st +++ b/repository/OP-UML-Metamodel/OPUMLImage.class.st @@ -2,58 +2,60 @@ Physical definition of a graphical image. " Class { - #name : #OPUMLImage, - #superclass : #OPUMLElement, + #name : 'OPUMLImage', + #superclass : 'OPUMLElement', #instVars : [ 'content', 'location', 'format' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLImage >> content [ "This contains the serialization of the image according to the format. The value could represent a bitmap, image such as a GIF file, or drawing 'instructions' using a standard such as Scalable Vector Graphic (SVG) (which is XML based)." ^ content ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLImage >> content: aString [ "This contains the serialization of the image according to the format. The value could represent a bitmap, image such as a GIF file, or drawing 'instructions' using a standard such as Scalable Vector Graphic (SVG) (which is XML based)." content := aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLImage >> format [ "This indicates the format of the content, which is how the string content should be interpreted. The following values are reserved: SVG, GIF, PNG, JPG, WMF, EMF, BMP. In addition the prefix 'MIME: ' is also reserved. This option can be used as an alternative to express the reserved values above, for example ""SVG"" could instead be expressed as ""MIME: image/svg+xml""." ^ format ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLImage >> format: aString [ "This indicates the format of the content, which is how the string content should be interpreted. The following values are reserved: SVG, GIF, PNG, JPG, WMF, EMF, BMP. In addition the prefix 'MIME: ' is also reserved. This option can be used as an alternative to express the reserved values above, for example ""SVG"" could instead be expressed as ""MIME: image/svg+xml""." format := aString ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLImage >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLImage >> initializeSharedGeneralizations [ sharedGeneralizations at: #Image put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLImage >> location [ "This contains a location that can be used by a tool to locate the image as an alternative to embedding it in the stereotype." ^ location ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLImage >> location: aString [ "This contains a location that can be used by a tool to locate the image as an alternative to embedding it in the stereotype." location := aString diff --git a/repository/OP-UML-Metamodel/OPUMLInclude.class.st b/repository/OP-UML-Metamodel/OPUMLInclude.class.st index 298ea35..1009881 100644 --- a/repository/OP-UML-Metamodel/OPUMLInclude.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInclude.class.st @@ -2,44 +2,46 @@ An Include relationship specifies that a UseCase contains the behavior defined in another UseCase. " Class { - #name : #OPUMLInclude, - #superclass : #OPUMLElement, + #name : 'OPUMLInclude', + #superclass : 'OPUMLElement', #instVars : [ 'addition', 'includingCase' ], - #category : 'OP-UML-Metamodel-UseCases' + #category : 'OP-UML-Metamodel-UseCases', + #package : 'OP-UML-Metamodel', + #tag : 'UseCases' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInclude >> addition [ "The UseCase that is to be included." ^ addition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInclude >> addition: anUseCase [ "The UseCase that is to be included." addition := anUseCase ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInclude >> includingCase [ "The UseCase which includes the addition and owns the Include relationship." ^ includingCase ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInclude >> includingCase: anUseCase [ "The UseCase which includes the addition and owns the Include relationship." includingCase := OPUMLToOneLink @@ -49,7 +51,7 @@ OPUMLInclude >> includingCase: anUseCase [ to: anUseCase ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInclude >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. @@ -57,7 +59,7 @@ OPUMLInclude >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInclude >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). @@ -65,82 +67,82 @@ OPUMLInclude >> initializeSharedGeneralizations [ sharedGeneralizations at: #Include put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLInclude >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLInclude >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInclude >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInclude >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInclude >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInclude >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInclude >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInformationFlow.class.st b/repository/OP-UML-Metamodel/OPUMLInformationFlow.class.st index 1209312..5159899 100644 --- a/repository/OP-UML-Metamodel/OPUMLInformationFlow.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInformationFlow.class.st @@ -2,8 +2,8 @@ InformationFlows describe circulation of information through a system in a general manner. They do not specify the nature of the information, mechanisms by which it is conveyed, sequences of exchange or any control conditions. During more detailed modeling, representation and realization links may be added to specify which model elements implement an InformationFlow and to show how information is conveyed. InformationFlows require some kind of “information channel” for unidirectional transmission of information items from sources to targets.  They specify the information channel’s realizations, if any, and identify the information that flows along them.  Information moving along the information channel may be represented by abstract InformationItems and by concrete Classifiers. " Class { - #name : #OPUMLInformationFlow, - #superclass : #OPUMLElement, + #name : 'OPUMLInformationFlow', + #superclass : 'OPUMLElement', #instVars : [ 'realizingActivityEdges', 'realizations', @@ -13,56 +13,58 @@ Class { 'informationSources', 'realizingConnectors' ], - #category : 'OP-UML-Metamodel-InformationFlows' + #category : 'OP-UML-Metamodel-InformationFlows', + #package : 'OP-UML-Metamodel', + #tag : 'InformationFlows' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> conveyeds [ "Specifies the information items that may circulate on this information flow." ^ conveyeds ifNil: [ conveyeds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> conveyeds: aClassifier [ "Specifies the information items that may circulate on this information flow." conveyeds := aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> informationSources [ "Defines from which source the conveyed InformationItems are initiated." ^ informationSources ifNil: [ informationSources := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> informationSources: aNamedElement [ "Defines from which source the conveyed InformationItems are initiated." informationSources := aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> informationTargets [ "Defines to which target the conveyed InformationItems are directed." ^ informationTargets ifNil: [ informationTargets := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> informationTargets: aNamedElement [ "Defines to which target the conveyed InformationItems are directed." informationTargets := aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInformationFlow >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. @@ -70,7 +72,7 @@ OPUMLInformationFlow >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInformationFlow >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -80,150 +82,150 @@ OPUMLInformationFlow >> initializeSharedGeneralizations [ sharedGeneralizations at: #InformationFlow put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInformationFlow >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInformationFlow >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationFlow >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizations [ "Determines which Relationship will realize the specified flow." ^ realizations ifNil: [ realizations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizations: aRelationship [ "Determines which Relationship will realize the specified flow." realizations := aRelationship ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizingActivityEdges [ "Determines which ActivityEdges will realize the specified flow." ^ realizingActivityEdges ifNil: [ realizingActivityEdges := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizingActivityEdges: anActivityEdge [ "Determines which ActivityEdges will realize the specified flow." realizingActivityEdges := anActivityEdge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizingConnectors [ "Determines which Connectors will realize the specified flow." ^ realizingConnectors ifNil: [ realizingConnectors := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizingConnectors: aConnector [ "Determines which Connectors will realize the specified flow." realizingConnectors := aConnector ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizingMessages [ "Determines which Messages will realize the specified flow." ^ realizingMessages ifNil: [ realizingMessages := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationFlow >> realizingMessages: aMessage [ "Determines which Messages will realize the specified flow." realizingMessages := aMessage ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLInformationFlow >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLInformationFlow >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInformationFlow >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInformationFlow >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInformationFlow >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInformationFlow >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInformationFlow >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInformationFlow >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInformationFlow >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInformationFlow >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInformationItem.class.st b/repository/OP-UML-Metamodel/OPUMLInformationItem.class.st index 0de718c..fb15d09 100644 --- a/repository/OP-UML-Metamodel/OPUMLInformationItem.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInformationItem.class.st @@ -2,127 +2,129 @@ InformationItems represent many kinds of information that can flow from sources to targets in very abstract ways.  They represent the kinds of information that may move within a system, but do not elaborate details of the transferred information.  Details of transferred information are the province of other Classifiers that may ultimately define InformationItems.  Consequently, InformationItems cannot be instantiated and do not themselves have features, generalizations, or associations. An important use of InformationItems is to represent information during early design stages, possibly before the detailed modeling decisions that will ultimately define them have been made. Another purpose of InformationItems is to abstract portions of complex models in less precise, but perhaps more general and communicable, ways. " Class { - #name : #OPUMLInformationItem, - #superclass : #OPUMLElement, + #name : 'OPUMLInformationItem', + #superclass : 'OPUMLElement', #instVars : [ 'representeds' ], - #category : 'OP-UML-Metamodel-InformationFlows' + #category : 'OP-UML-Metamodel-InformationFlows', + #package : 'OP-UML-Metamodel', + #tag : 'InformationFlows' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInformationItem >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInformationItem >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInformationItem >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInformationItem >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInformationItem >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -135,269 +137,269 @@ OPUMLInformationItem >> initializeSharedGeneralizations [ sharedGeneralizations at: #InformationItem put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInformationItem >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInformationItem >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInformationItem >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInformationItem >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLInformationItem >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLInformationItem >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInformationItem >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInformationItem >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInformationItem >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInformationItem >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInformationItem >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInformationItem >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInformationItem >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationItem >> representeds [ "Determines the classifiers that will specify the structure and nature of the information. An information item represents all its represented classifiers." ^ representeds ifNil: [ representeds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInformationItem >> representeds: aClassifier [ "Determines the classifiers that will specify the structure and nature of the information. An information item represents all its represented classifiers." representeds := aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLInformationItem >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLInformationItem >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInformationItem >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInformationItem >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInformationItem >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInitialNode.class.st b/repository/OP-UML-Metamodel/OPUMLInitialNode.class.st index f703025..2d7f46b 100644 --- a/repository/OP-UML-Metamodel/OPUMLInitialNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInitialNode.class.st @@ -2,89 +2,91 @@ An InitialNode is a ControlNode that offers a single control token when initially enabled. " Class { - #name : #OPUMLInitialNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLInitialNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInitialNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ControlNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInitialNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -93,102 +95,102 @@ OPUMLInitialNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #InitialNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInitialNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInitialNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInitialNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInitialNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInitialNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInitialNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInitialNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInitialNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInputPin.class.st b/repository/OP-UML-Metamodel/OPUMLInputPin.class.st index 6ef6970..c80b7eb 100644 --- a/repository/OP-UML-Metamodel/OPUMLInputPin.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInputPin.class.st @@ -2,99 +2,101 @@ An InputPin is a Pin that holds input values to be consumed by an Action. " Class { - #name : #OPUMLInputPin, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Actions' + #name : 'OPUMLInputPin', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInputPin >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Pin. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInputPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -106,232 +108,232 @@ OPUMLInputPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #InputPin put: self. ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLInputPin >> isControl [ ^ (sharedGeneralizations at: #Pin) isControl ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLInputPin >> isControl: aBoolean [ (sharedGeneralizations at: #Pin) isControl: aBoolean ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInputPin >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInputPin >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLInputPin >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLInputPin >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLInputPin >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInputPin >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInputPin >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInputPin >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInputPin >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInputPin >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLInputPin >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLInputPin >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLInputPin >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLInputPin >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLInputPin >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLInputPin >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInputPin >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInstanceSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLInstanceSpecification.class.st index da8f1de..721925c 100644 --- a/repository/OP-UML-Metamodel/OPUMLInstanceSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInstanceSpecification.class.st @@ -2,59 +2,61 @@ An InstanceSpecification is a model element that represents an instance in a modeled system. An InstanceSpecification can act as a DeploymentTarget in a Deployment relationship, in the case that it represents an instance of a Node. It can also act as a DeployedArtifact, if it represents an instance of an Artifact. " Class { - #name : #OPUMLInstanceSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLInstanceSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'slots', 'classifiers', 'specification' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceSpecification >> classifiers [ "The Classifier or Classifiers of the represented instance. If multiple Classifiers are specified, the instance is classified by all of them." ^ classifiers ifNil: [ classifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceSpecification >> classifiers: aClassifier [ "The Classifier or Classifiers of the represented instance. If multiple Classifiers are specified, the instance is classified by all of them." classifiers := aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLInstanceSpecification >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLInstanceSpecification >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLInstanceSpecification >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLInstanceSpecification >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInstanceSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DeploymentTarget. @@ -63,7 +65,7 @@ OPUMLInstanceSpecification >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInstanceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -73,63 +75,63 @@ OPUMLInstanceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #InstanceSpecification put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceSpecification >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceSpecification >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceSpecification >> slots [ "A Slot giving the value or values of a StructuralFeature of the instance. An InstanceSpecification can have one Slot per StructuralFeature of its Classifiers, including inherited features. It is not necessary to model a Slot for every StructuralFeature, in which case the InstanceSpecification is a partial description." ^ slots ifNil: [ slots := OPUMLToManyLinks on: self identity opposite: #owningInstance: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceSpecification >> slots: aSlot [ "A Slot giving the value or values of a StructuralFeature of the instance. An InstanceSpecification can have one Slot per StructuralFeature of its Classifiers, including inherited features. It is not necessary to model a Slot for every StructuralFeature, in which case the InstanceSpecification is a partial description." self slots @@ -137,34 +139,34 @@ OPUMLInstanceSpecification >> slots: aSlot [ addAll: aSlot ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceSpecification >> specification [ "A specification of how to compute, derive, or construct the instance." ^ specification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceSpecification >> specification: aValueSpecification [ "A specification of how to compute, derive, or construct the instance." specification := aValueSpecification ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceSpecification >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceSpecification >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInstanceSpecification >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInstanceSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInstanceValue.class.st b/repository/OP-UML-Metamodel/OPUMLInstanceValue.class.st index 9c382bb..2ce4b4a 100644 --- a/repository/OP-UML-Metamodel/OPUMLInstanceValue.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInstanceValue.class.st @@ -2,37 +2,39 @@ An InstanceValue is a ValueSpecification that identifies an instance. " Class { - #name : #OPUMLInstanceValue, - #superclass : #OPUMLElement, + #name : 'OPUMLInstanceValue', + #superclass : 'OPUMLElement', #instVars : [ 'instance' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInstanceValue >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInstanceValue >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -42,124 +44,124 @@ OPUMLInstanceValue >> initializeSharedGeneralizations [ sharedGeneralizations at: #InstanceValue put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceValue >> instance [ "The InstanceSpecification that represents the specified value." ^ instance ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInstanceValue >> instance: anInstanceSpecification [ "The InstanceSpecification that represents the specified value." instance := anInstanceSpecification ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceValue >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceValue >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInstanceValue >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceValue >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInstanceValue >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLInstanceValue >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLInstanceValue >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInstanceValue >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInstanceValue >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInstanceValue >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInteraction.class.st b/repository/OP-UML-Metamodel/OPUMLInteraction.class.st index 74a7934..9b91e00 100644 --- a/repository/OP-UML-Metamodel/OPUMLInteraction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInteraction.class.st @@ -2,8 +2,8 @@ An Interaction is a unit of Behavior that focuses on the observable exchange of information between connectable elements. " Class { - #name : #OPUMLInteraction, - #superclass : #OPUMLElement, + #name : 'OPUMLInteraction', + #superclass : 'OPUMLElement', #instVars : [ 'messages', 'formalGates', @@ -11,160 +11,162 @@ Class { 'lifelines', 'fragments' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> actions [ "Actions owned by the Interaction." ^ actions ifNil: [ actions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> actions: anAction [ "Actions owned by the Interaction." actions := anAction ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInteraction >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInteraction >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLInteraction >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLInteraction >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> context [ ^ (sharedGeneralizations at: #Behavior) context ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> context: aBehavioredClassifier [ (sharedGeneralizations at: #Behavior) context: aBehavioredClassifier ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> formalGates [ "Specifies the gates that form the message interface between this Interaction and any InteractionUses which reference it." ^ formalGates ifNil: [ formalGates := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> formalGates: aGate [ "Specifies the gates that form the message interface between this Interaction and any InteractionUses which reference it." formalGates := aGate ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> fragments [ "The ordered set of fragments in the Interaction." ^ fragments ifNil: [ fragments := OPUMLToManyLinks on: self identity opposite: #enclosingInteraction: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> fragments: anInteractionFragment [ "The ordered set of fragments in the Interaction." self fragments @@ -172,62 +174,62 @@ OPUMLInteraction >> fragments: anInteractionFragment [ addAll: anInteractionFragment ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInteraction >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteraction >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteraction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. @@ -235,7 +237,7 @@ OPUMLInteraction >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteraction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -254,73 +256,73 @@ OPUMLInteraction >> initializeSharedGeneralizations [ sharedGeneralizations at: #Interaction put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLInteraction >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLInteraction >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInteraction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInteraction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> isReentrant [ ^ (sharedGeneralizations at: #Behavior) isReentrant ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> isReentrant: aBoolean [ (sharedGeneralizations at: #Behavior) isReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> lifelines [ "Specifies the participants in this Interaction." ^ lifelines ifNil: [ lifelines := OPUMLToManyLinks on: self identity opposite: #interaction: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> lifelines: aLifeline [ "Specifies the participants in this Interaction." self lifelines @@ -328,23 +330,23 @@ OPUMLInteraction >> lifelines: aLifeline [ addAll: aLifeline ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> messages [ "The Messages contained in this Interaction." ^ messages ifNil: [ messages := OPUMLToManyLinks on: self identity opposite: #interaction: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteraction >> messages: aMessage [ "The Messages contained in this Interaction." self messages @@ -352,377 +354,377 @@ OPUMLInteraction >> messages: aMessage [ addAll: aMessage ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLInteraction >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLInteraction >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLInteraction >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLInteraction >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> ownedParameterSets [ ^ (sharedGeneralizations at: #Behavior) ownedParameterSets ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #Behavior) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> ownedParameters [ ^ (sharedGeneralizations at: #Behavior) ownedParameters ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> ownedParameters: aParameter [ (sharedGeneralizations at: #Behavior) ownedParameters: aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLInteraction >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLInteraction >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInteraction >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInteraction >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLInteraction >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLInteraction >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteraction >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInteraction >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLInteraction >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLInteraction >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> postconditions [ ^ (sharedGeneralizations at: #Behavior) postconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> postconditions: aConstraint [ (sharedGeneralizations at: #Behavior) postconditions: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> preconditions [ ^ (sharedGeneralizations at: #Behavior) preconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> preconditions: aConstraint [ (sharedGeneralizations at: #Behavior) preconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteraction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> redefinedBehaviors [ ^ (sharedGeneralizations at: #Behavior) redefinedBehaviors ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> redefinedBehaviors: aBehavior [ (sharedGeneralizations at: #Behavior) redefinedBehaviors: aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInteraction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInteraction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInteraction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInteraction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLInteraction >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLInteraction >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> specification [ ^ (sharedGeneralizations at: #Behavior) specification ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLInteraction >> specification: aBehavioralFeature [ (sharedGeneralizations at: #Behavior) specification: aBehavioralFeature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLInteraction >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLInteraction >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLInteraction >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInteraction >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInteraction >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInteraction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInteractionConstraint.class.st b/repository/OP-UML-Metamodel/OPUMLInteractionConstraint.class.st index 2c04323..9a3c804 100644 --- a/repository/OP-UML-Metamodel/OPUMLInteractionConstraint.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInteractionConstraint.class.st @@ -2,53 +2,55 @@ An InteractionConstraint is a Boolean expression that guards an operand in a CombinedFragment. " Class { - #name : #OPUMLInteractionConstraint, - #superclass : #OPUMLElement, + #name : 'OPUMLInteractionConstraint', + #superclass : 'OPUMLElement', #instVars : [ 'minint', 'maxint' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLInteractionConstraint >> constrainedElements [ ^ (sharedGeneralizations at: #Constraint) constrainedElements ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLInteractionConstraint >> constrainedElements: anElement [ (sharedGeneralizations at: #Constraint) constrainedElements: anElement ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLInteractionConstraint >> context [ ^ (sharedGeneralizations at: #Constraint) context ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLInteractionConstraint >> context: aNamespace [ (sharedGeneralizations at: #Constraint) context: aNamespace ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionConstraint >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Constraint. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -57,106 +59,106 @@ OPUMLInteractionConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #InteractionConstraint put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionConstraint >> maxint [ "The maximum number of iterations of a loop" ^ maxint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionConstraint >> maxint: aValueSpecification [ "The maximum number of iterations of a loop" maxint := aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionConstraint >> minint [ "The minimum number of iterations of a loop" ^ minint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionConstraint >> minint: aValueSpecification [ "The minimum number of iterations of a loop" minint := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInteractionConstraint >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInteractionConstraint >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionConstraint >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLInteractionConstraint >> specification [ ^ (sharedGeneralizations at: #Constraint) specification ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLInteractionConstraint >> specification: aValueSpecification [ (sharedGeneralizations at: #Constraint) specification: aValueSpecification ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInteractionConstraint >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInteractionConstraint >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInteractionConstraint >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInteractionConstraint >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInteractionFragment.class.st b/repository/OP-UML-Metamodel/OPUMLInteractionFragment.class.st index bf2bfca..2e09b10 100644 --- a/repository/OP-UML-Metamodel/OPUMLInteractionFragment.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInteractionFragment.class.st @@ -2,34 +2,36 @@ InteractionFragment is an abstract notion of the most general interaction unit. An InteractionFragment is a piece of an Interaction. Each InteractionFragment is conceptually like an Interaction by itself. " Class { - #name : #OPUMLInteractionFragment, - #superclass : #OPUMLElement, + #name : 'OPUMLInteractionFragment', + #superclass : 'OPUMLElement', #instVars : [ 'enclosingOperand', 'enclosingInteraction', 'covereds', 'generalOrderings' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> covereds [ "References the Lifelines that the InteractionFragment involves." ^ covereds ifNil: [ covereds := OPUMLManyToManyLinks on: self identity opposite: #coveredBies ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> covereds: aLifeline [ "References the Lifelines that the InteractionFragment involves." self covereds @@ -37,13 +39,13 @@ OPUMLInteractionFragment >> covereds: aLifeline [ addAll: aLifeline ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> enclosingInteraction [ "The Interaction enclosing this InteractionFragment." ^ enclosingInteraction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> enclosingInteraction: anInteraction [ "The Interaction enclosing this InteractionFragment." enclosingInteraction := OPUMLToOneLink @@ -53,13 +55,13 @@ OPUMLInteractionFragment >> enclosingInteraction: anInteraction [ to: anInteraction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> enclosingOperand [ "The operand enclosing this InteractionFragment (they may nest recursively)." ^ enclosingOperand ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> enclosingOperand: anInteractionOperand [ "The operand enclosing this InteractionFragment (they may nest recursively)." enclosingOperand := OPUMLToOneLink @@ -69,77 +71,77 @@ OPUMLInteractionFragment >> enclosingOperand: anInteractionOperand [ to: anInteractionOperand ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> generalOrderings [ "The general ordering relationships contained in this fragment." ^ generalOrderings ifNil: [ generalOrderings := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionFragment >> generalOrderings: aGeneralOrdering [ "The general ordering relationships contained in this fragment." generalOrderings := aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionFragment >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionFragment >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionFragment >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInteractionOperand.class.st b/repository/OP-UML-Metamodel/OPUMLInteractionOperand.class.st index 1d96096..2dc6a6f 100644 --- a/repository/OP-UML-Metamodel/OPUMLInteractionOperand.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInteractionOperand.class.st @@ -2,72 +2,74 @@ An InteractionOperand is contained in a CombinedFragment. An InteractionOperand represents one operand of the expression given by the enclosing CombinedFragment. " Class { - #name : #OPUMLInteractionOperand, - #superclass : #OPUMLElement, + #name : 'OPUMLInteractionOperand', + #superclass : 'OPUMLElement', #instVars : [ 'fragments', 'guard' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperand >> fragments [ "The fragments of the operand." ^ fragments ifNil: [ fragments := OPUMLToManyLinks on: self identity opposite: #enclosingOperand: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperand >> fragments: anInteractionFragment [ "The fragments of the operand." self fragments @@ -75,39 +77,39 @@ OPUMLInteractionOperand >> fragments: anInteractionFragment [ addAll: anInteractionFragment ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionOperand >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperand >> guard [ "Constraint of the operand." ^ guard ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperand >> guard: anInteractionConstraint [ "Constraint of the operand." guard := anInteractionConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionOperand >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. @@ -115,7 +117,7 @@ OPUMLInteractionOperand >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionOperand >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -123,92 +125,92 @@ OPUMLInteractionOperand >> initializeSharedGeneralizations [ sharedGeneralizations at: #InteractionOperand put: self. ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInteractionOperand >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionOperand >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInteractionOperatorKind.class.st b/repository/OP-UML-Metamodel/OPUMLInteractionOperatorKind.class.st index 2d7f230..f925136 100644 --- a/repository/OP-UML-Metamodel/OPUMLInteractionOperatorKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInteractionOperatorKind.class.st @@ -2,173 +2,175 @@ InteractionOperatorKind is an enumeration designating the different kinds of operators of CombinedFragments. The InteractionOperand defines the type of operator of a CombinedFragment. " Class { - #name : #OPUMLInteractionOperatorKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLInteractionOperatorKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> alt [ "The InteractionOperatorKind alt designates that the CombinedFragment represents a choice of behavior. At most one of the operands will be chosen. The chosen operand must have an explicit or implicit guard expression that evaluates to true at this point in the interaction. An implicit true guard is implied if the operand has no guard." ^ #alt ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> assert [ "The InteractionOperatorKind assert designates that the CombinedFragment represents an assertion. The sequences of the operand of the assertion are the only valid continuations. All other continuations result in an invalid trace." ^ #assert ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> break [ "The InteractionOperatorKind break designates that the CombinedFragment represents a breaking scenario in the sense that the operand is a scenario that is performed instead of the remainder of the enclosing InteractionFragment. A break operator with a guard is chosen when the guard is true and the rest of the enclosing Interaction Fragment is ignored. When the guard of the break operand is false, the break operand is ignored and the rest of the enclosing InteractionFragment is chosen. The choice between a break operand without a guard and the rest of the enclosing InteractionFragment is done non-deterministically." ^ #break ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> consider [ "The InteractionOperatorKind consider designates which messages should be considered within this combined fragment. This is equivalent to defining every other message to be ignored." ^ #consider ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> critical [ "The InteractionOperatorKind critical designates that the CombinedFragment represents a critical region. A critical region means that the traces of the region cannot be interleaved by other OccurrenceSpecifications (on those Lifelines covered by the region). This means that the region is treated atomically by the enclosing fragment when determining the set of valid traces. Even though enclosing CombinedFragments may imply that some OccurrenceSpecifications may interleave into the region, such as with par-operator, this is prevented by defining a region." ^ #critical ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> ignore [ "The InteractionOperatorKind ignore designates that there are some message types that are not shown within this combined fragment. These message types can be considered insignificant and are implicitly ignored if they appear in a corresponding execution. Alternatively, one can understand ignore to mean that the message types that are ignored can appear anywhere in the traces." ^ #ignore ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> loop [ "The InteractionOperatorKind loop designates that the CombinedFragment represents a loop. The loop operand will be repeated a number of times." ^ #loop ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> neg [ "The InteractionOperatorKind neg designates that the CombinedFragment represents traces that are defined to be invalid." ^ #neg ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> opt [ "The InteractionOperatorKind opt designates that the CombinedFragment represents a choice of behavior where either the (sole) operand happens or nothing happens. An option is semantically equivalent to an alternative CombinedFragment where there is one operand with non-empty content and the second operand is empty." ^ #opt ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> par [ "The InteractionOperatorKind par designates that the CombinedFragment represents a parallel merge between the behaviors of the operands. The OccurrenceSpecifications of the different operands can be interleaved in any way as long as the ordering imposed by each operand as such is preserved." ^ #par ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> seq [ "The InteractionOperatorKind seq designates that the CombinedFragment represents a weak sequencing between the behaviors of the operands." ^ #seq ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLInteractionOperatorKind class >> strict [ "The InteractionOperatorKind strict designates that the CombinedFragment represents a strict sequencing between the behaviors of the operands. The semantics of strict sequencing defines a strict ordering of the operands on the first level within the CombinedFragment with interactionOperator strict. Therefore OccurrenceSpecifications within contained CombinedFragment will not directly be compared with other OccurrenceSpecifications of the enclosing CombinedFragment." ^ #strict ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> alt [ "The InteractionOperatorKind alt designates that the CombinedFragment represents a choice of behavior. At most one of the operands will be chosen. The chosen operand must have an explicit or implicit guard expression that evaluates to true at this point in the interaction. An implicit true guard is implied if the operand has no guard." ^ #alt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> assert [ "The InteractionOperatorKind assert designates that the CombinedFragment represents an assertion. The sequences of the operand of the assertion are the only valid continuations. All other continuations result in an invalid trace." ^ #assert ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> break [ "The InteractionOperatorKind break designates that the CombinedFragment represents a breaking scenario in the sense that the operand is a scenario that is performed instead of the remainder of the enclosing InteractionFragment. A break operator with a guard is chosen when the guard is true and the rest of the enclosing Interaction Fragment is ignored. When the guard of the break operand is false, the break operand is ignored and the rest of the enclosing InteractionFragment is chosen. The choice between a break operand without a guard and the rest of the enclosing InteractionFragment is done non-deterministically." ^ #break ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> consider [ "The InteractionOperatorKind consider designates which messages should be considered within this combined fragment. This is equivalent to defining every other message to be ignored." ^ #consider ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> critical [ "The InteractionOperatorKind critical designates that the CombinedFragment represents a critical region. A critical region means that the traces of the region cannot be interleaved by other OccurrenceSpecifications (on those Lifelines covered by the region). This means that the region is treated atomically by the enclosing fragment when determining the set of valid traces. Even though enclosing CombinedFragments may imply that some OccurrenceSpecifications may interleave into the region, such as with par-operator, this is prevented by defining a region." ^ #critical ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> ignore [ "The InteractionOperatorKind ignore designates that there are some message types that are not shown within this combined fragment. These message types can be considered insignificant and are implicitly ignored if they appear in a corresponding execution. Alternatively, one can understand ignore to mean that the message types that are ignored can appear anywhere in the traces." ^ #ignore ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> loop [ "The InteractionOperatorKind loop designates that the CombinedFragment represents a loop. The loop operand will be repeated a number of times." ^ #loop ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> neg [ "The InteractionOperatorKind neg designates that the CombinedFragment represents traces that are defined to be invalid." ^ #neg ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> opt [ "The InteractionOperatorKind opt designates that the CombinedFragment represents a choice of behavior where either the (sole) operand happens or nothing happens. An option is semantically equivalent to an alternative CombinedFragment where there is one operand with non-empty content and the second operand is empty." ^ #opt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> par [ "The InteractionOperatorKind par designates that the CombinedFragment represents a parallel merge between the behaviors of the operands. The OccurrenceSpecifications of the different operands can be interleaved in any way as long as the ordering imposed by each operand as such is preserved." ^ #par ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> seq [ "The InteractionOperatorKind seq designates that the CombinedFragment represents a weak sequencing between the behaviors of the operands." ^ #seq ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionOperatorKind >> strict [ "The InteractionOperatorKind strict designates that the CombinedFragment represents a strict sequencing between the behaviors of the operands. The semantics of strict sequencing defines a strict ordering of the operands on the first level within the CombinedFragment with interactionOperator strict. Therefore OccurrenceSpecifications within contained CombinedFragment will not directly be compared with other OccurrenceSpecifications of the enclosing CombinedFragment." ^ #strict diff --git a/repository/OP-UML-Metamodel/OPUMLInteractionUse.class.st b/repository/OP-UML-Metamodel/OPUMLInteractionUse.class.st index aa51dd4..d0bf735 100644 --- a/repository/OP-UML-Metamodel/OPUMLInteractionUse.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInteractionUse.class.st @@ -2,8 +2,8 @@ An InteractionUse refers to an Interaction. The InteractionUse is a shorthand for copying the contents of the referenced Interaction where the InteractionUse is. To be accurate the copying must take into account substituting parameters with arguments and connect the formal Gates with the actual ones. " Class { - #name : #OPUMLInteractionUse, - #superclass : #OPUMLElement, + #name : 'OPUMLInteractionUse', + #superclass : 'OPUMLElement', #instVars : [ 'refersTo', 'arguments', @@ -11,179 +11,181 @@ Class { 'returnValueRecipient', 'returnValue' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> actualGates [ "The actual gates of the InteractionUse." ^ actualGates ifNil: [ actualGates := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> actualGates: aGate [ "The actual gates of the InteractionUse." actualGates := aGate ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> arguments [ "The actual arguments of the Interaction." ^ arguments ifNil: [ arguments := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> arguments: aValueSpecification [ "The actual arguments of the Interaction." arguments := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLInteractionUse >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionUse >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInteractionUse >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionUse put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> refersTo [ "Refers to the Interaction that defines its meaning." ^ refersTo ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> refersTo: anInteraction [ "Refers to the Interaction that defines its meaning." refersTo := anInteraction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> returnValue [ "The value of the executed Interaction." ^ returnValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> returnValue: aValueSpecification [ "The value of the executed Interaction." returnValue := aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> returnValueRecipient [ "The recipient of the return value." ^ returnValueRecipient ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInteractionUse >> returnValueRecipient: aProperty [ "The recipient of the return value." returnValueRecipient := aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInteractionUse >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInterface.class.st b/repository/OP-UML-Metamodel/OPUMLInterface.class.st index 202df3c..db8d8e3 100644 --- a/repository/OP-UML-Metamodel/OPUMLInterface.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInterface.class.st @@ -2,8 +2,8 @@ Interfaces declare coherent services that are implemented by BehavioredClassifiers that implement the Interfaces via InterfaceRealizations. " Class { - #name : #OPUMLInterface, - #superclass : #OPUMLElement, + #name : 'OPUMLInterface', + #superclass : 'OPUMLElement', #instVars : [ 'redefinedInterfaces', 'nestedClassifiers', @@ -12,122 +12,124 @@ Class { 'ownedOperations', 'ownedReceptions' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInterface >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInterface >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInterface >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterface >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterface >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -140,95 +142,95 @@ OPUMLInterface >> initializeSharedGeneralizations [ sharedGeneralizations at: #Interface put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInterface >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInterface >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> nestedClassifiers [ "References all the Classifiers that are defined (nested) within the Interface." ^ nestedClassifiers ifNil: [ nestedClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> nestedClassifiers: aClassifier [ "References all the Classifiers that are defined (nested) within the Interface." nestedClassifiers := aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> ownedAttributes [ "The attributes (i.e., the Properties) owned by the Interface." ^ ownedAttributes ifNil: [ ownedAttributes := OPUMLToManyLinks on: self identity opposite: #interface: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> ownedAttributes: aProperty [ "The attributes (i.e., the Properties) owned by the Interface." self ownedAttributes @@ -236,23 +238,23 @@ OPUMLInterface >> ownedAttributes: aProperty [ addAll: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> ownedOperations [ "The Operations owned by the Interface." ^ ownedOperations ifNil: [ ownedOperations := OPUMLToManyLinks on: self identity opposite: #interface: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> ownedOperations: anOperation [ "The Operations owned by the Interface." self ownedOperations @@ -260,213 +262,213 @@ OPUMLInterface >> ownedOperations: anOperation [ addAll: anOperation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> ownedReceptions [ "Receptions that objects providing this Interface are willing to accept." ^ ownedReceptions ifNil: [ ownedReceptions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> ownedReceptions: aReception [ "Receptions that objects providing this Interface are willing to accept." ownedReceptions := aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterface >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterface >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLInterface >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLInterface >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLInterface >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLInterface >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> protocol [ "References a ProtocolStateMachine specifying the legal sequences of the invocation of the BehavioralFeatures described in the Interface." ^ protocol ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> protocol: aProtocolStateMachine [ "References a ProtocolStateMachine specifying the legal sequences of the invocation of the BehavioralFeatures described in the Interface." protocol := aProtocolStateMachine ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterface >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInterface >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInterface >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> redefinedInterfaces [ "References all the Interfaces redefined by this Interface." ^ redefinedInterfaces ifNil: [ redefinedInterfaces := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterface >> redefinedInterfaces: anInterface [ "References all the Interfaces redefined by this Interface." redefinedInterfaces := anInterface ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInterface >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInterface >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLInterface >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLInterface >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLInterface >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInterface >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInterface >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInterfaceRealization.class.st b/repository/OP-UML-Metamodel/OPUMLInterfaceRealization.class.st index 86e7c19..bae3b5b 100644 --- a/repository/OP-UML-Metamodel/OPUMLInterfaceRealization.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInterfaceRealization.class.st @@ -2,54 +2,56 @@ An InterfaceRealization is a specialized realization relationship between a BehavioredClassifier and an Interface. This relationship signifies that the realizing BehavioredClassifier conforms to the contract specified by the Interface. " Class { - #name : #OPUMLInterfaceRealization, - #superclass : #OPUMLElement, + #name : 'OPUMLInterfaceRealization', + #superclass : 'OPUMLElement', #instVars : [ 'implementingClassifier', 'contract' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLInterfaceRealization >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLInterfaceRealization >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterfaceRealization >> contract [ "References the Interface specifying the conformance contract." ^ contract ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterfaceRealization >> contract: anInterface [ "References the Interface specifying the conformance contract." contract := anInterface ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterfaceRealization >> implementingClassifier [ "References the BehavioredClassifier that owns this InterfaceRealization, i.e., the BehavioredClassifier that realizes the Interface to which it refers." ^ implementingClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterfaceRealization >> implementingClassifier: aBehavioredClassifier [ "References the BehavioredClassifier that owns this InterfaceRealization, i.e., the BehavioredClassifier that realizes the Interface to which it refers." implementingClassifier := OPUMLToOneLink @@ -59,14 +61,14 @@ OPUMLInterfaceRealization >> implementingClassifier: aBehavioredClassifier [ to: aBehavioredClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterfaceRealization >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Realization. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterfaceRealization >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -79,122 +81,122 @@ OPUMLInterfaceRealization >> initializeSharedGeneralizations [ sharedGeneralizations at: #InterfaceRealization put: self. ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLInterfaceRealization >> mapping [ ^ (sharedGeneralizations at: #Abstraction) mapping ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLInterfaceRealization >> mapping: anOpaqueExpression [ (sharedGeneralizations at: #Abstraction) mapping: anOpaqueExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterfaceRealization >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterfaceRealization >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterfaceRealization >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLInterfaceRealization >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLInterfaceRealization >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInterfaceRealization >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInterfaceRealization >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLInterfaceRealization >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLInterfaceRealization >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInterfaceRealization >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLInterfaceRealization >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterfaceRealization >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterfaceRealization >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInterfaceRealization >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInterfaceRealization >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInterruptibleActivityRegion.class.st b/repository/OP-UML-Metamodel/OPUMLInterruptibleActivityRegion.class.st index eb43197..f06730f 100644 --- a/repository/OP-UML-Metamodel/OPUMLInterruptibleActivityRegion.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInterruptibleActivityRegion.class.st @@ -2,76 +2,78 @@ An InterruptibleActivityRegion is an ActivityGroup that supports the termination of tokens flowing in the portions of an activity within it. " Class { - #name : #OPUMLInterruptibleActivityRegion, - #superclass : #OPUMLElement, + #name : 'OPUMLInterruptibleActivityRegion', + #superclass : 'OPUMLElement', #instVars : [ 'nodes', 'interruptingEdges' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterruptibleActivityRegion >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ActivityGroup. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterruptibleActivityRegion >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ActivityGroup put: (OPUMLActivityGroup newOnShared: sharedGeneralizations). sharedGeneralizations at: #InterruptibleActivityRegion put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterruptibleActivityRegion >> interruptingEdges [ "The ActivityEdges leaving the InterruptibleActivityRegion on which a traversing token will result in the termination of other tokens flowing in the InterruptibleActivityRegion." ^ interruptingEdges ifNil: [ interruptingEdges := OPUMLToManyLinks on: self identity opposite: #interrupts: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterruptibleActivityRegion >> interruptingEdges: anActivityEdge [ "The ActivityEdges leaving the InterruptibleActivityRegion on which a traversing token will result in the termination of other tokens flowing in the InterruptibleActivityRegion." self interruptingEdges @@ -79,43 +81,43 @@ OPUMLInterruptibleActivityRegion >> interruptingEdges: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterruptibleActivityRegion >> nodes [ "ActivityNodes immediately contained in the InterruptibleActivityRegion." ^ nodes ifNil: [ nodes := OPUMLManyToManyLinks on: self identity opposite: #inInterruptibleRegions ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterruptibleActivityRegion >> nodes: anActivityNode [ "ActivityNodes immediately contained in the InterruptibleActivityRegion." self nodes @@ -123,42 +125,42 @@ OPUMLInterruptibleActivityRegion >> nodes: anActivityNode [ addAll: anActivityNode ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLInterruptibleActivityRegion >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterruptibleActivityRegion >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInterval.class.st b/repository/OP-UML-Metamodel/OPUMLInterval.class.st index 7e75974..8575f13 100644 --- a/repository/OP-UML-Metamodel/OPUMLInterval.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInterval.class.st @@ -2,38 +2,40 @@ An Interval defines the range between two ValueSpecifications. " Class { - #name : #OPUMLInterval, - #superclass : #OPUMLElement, + #name : 'OPUMLInterval', + #superclass : 'OPUMLElement', #instVars : [ 'min', 'max' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterval >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInterval >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -43,136 +45,136 @@ OPUMLInterval >> initializeSharedGeneralizations [ sharedGeneralizations at: #Interval put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterval >> max [ "Refers to the ValueSpecification denoting the maximum value of the range." ^ max ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterval >> max: aValueSpecification [ "Refers to the ValueSpecification denoting the maximum value of the range." max := aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterval >> min [ "Refers to the ValueSpecification denoting the minimum value of the range." ^ min ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInterval >> min: aValueSpecification [ "Refers to the ValueSpecification denoting the minimum value of the range." min := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterval >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterval >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInterval >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterval >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLInterval >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLInterval >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLInterval >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLInterval >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInterval >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLInterval >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLIntervalConstraint.class.st b/repository/OP-UML-Metamodel/OPUMLIntervalConstraint.class.st index 4093930..7546ed9 100644 --- a/repository/OP-UML-Metamodel/OPUMLIntervalConstraint.class.st +++ b/repository/OP-UML-Metamodel/OPUMLIntervalConstraint.class.st @@ -2,52 +2,54 @@ An IntervalConstraint is a Constraint that is specified by an Interval. " Class { - #name : #OPUMLIntervalConstraint, - #superclass : #OPUMLElement, + #name : 'OPUMLIntervalConstraint', + #superclass : 'OPUMLElement', #instVars : [ 'specification' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLIntervalConstraint >> constrainedElements [ ^ (sharedGeneralizations at: #Constraint) constrainedElements ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLIntervalConstraint >> constrainedElements: anElement [ (sharedGeneralizations at: #Constraint) constrainedElements: anElement ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLIntervalConstraint >> context [ ^ (sharedGeneralizations at: #Constraint) context ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLIntervalConstraint >> context: aNamespace [ (sharedGeneralizations at: #Constraint) context: aNamespace ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLIntervalConstraint >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Constraint. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLIntervalConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -56,84 +58,84 @@ OPUMLIntervalConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #IntervalConstraint put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLIntervalConstraint >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLIntervalConstraint >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLIntervalConstraint >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLIntervalConstraint >> specification [ "The Interval that specifies the condition of the IntervalConstraint." ^ specification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLIntervalConstraint >> specification: anInterval [ "The Interval that specifies the condition of the IntervalConstraint." specification := anInterval ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLIntervalConstraint >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLIntervalConstraint >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLIntervalConstraint >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLIntervalConstraint >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLInvocationAction.class.st b/repository/OP-UML-Metamodel/OPUMLInvocationAction.class.st index 2590ab9..df76f8c 100644 --- a/repository/OP-UML-Metamodel/OPUMLInvocationAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLInvocationAction.class.st @@ -3,125 +3,127 @@ InvocationAction is an abstract class for the various actions that request Behav " Class { - #name : #OPUMLInvocationAction, - #superclass : #OPUMLElement, + #name : 'OPUMLInvocationAction', + #superclass : 'OPUMLElement', #instVars : [ 'onPort', 'arguments' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInvocationAction >> arguments [ "The InputPins that provide the argument values passed in the invocation request." ^ arguments ifNil: [ arguments := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInvocationAction >> arguments: anInputPin [ "The InputPins that provide the argument values passed in the invocation request." arguments := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLInvocationAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLInvocationAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInvocationAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLInvocationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -131,164 +133,164 @@ OPUMLInvocationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #InvocationAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInvocationAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInvocationAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInvocationAction >> onPort [ "For CallOperationActions, SendSignalActions, and SendObjectActions, an optional Port of the target object through which the invocation request is sent." ^ onPort ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLInvocationAction >> onPort: aPort [ "For CallOperationActions, SendSignalActions, and SendObjectActions, an optional Port of the target object through which the invocation request is sent." onPort := aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLInvocationAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInvocationAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInvocationAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLInvocationAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInvocationAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLInvocationAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLInvocationAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLJoinNode.class.st b/repository/OP-UML-Metamodel/OPUMLJoinNode.class.st index c57005c..2bf8093 100644 --- a/repository/OP-UML-Metamodel/OPUMLJoinNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLJoinNode.class.st @@ -2,93 +2,95 @@ A JoinNode is a ControlNode that synchronizes multiple flows. " Class { - #name : #OPUMLJoinNode, - #superclass : #OPUMLElement, + #name : 'OPUMLJoinNode', + #superclass : 'OPUMLElement', #instVars : [ 'isCombineDuplicate', 'joinSpec' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLJoinNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ControlNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLJoinNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -97,126 +99,126 @@ OPUMLJoinNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #JoinNode put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLJoinNode >> isCombineDuplicate [ "Indicates whether incoming tokens having objects with the same identity are combined into one by the JoinNode." ^ isCombineDuplicate ifNil: [ isCombineDuplicate := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLJoinNode >> isCombineDuplicate: aBoolean [ "Indicates whether incoming tokens having objects with the same identity are combined into one by the JoinNode." isCombineDuplicate := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLJoinNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLJoinNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLJoinNode >> joinSpec [ "A ValueSpecification giving the condition under which the JoinNode will offer a token on its outgoing ActivityEdge. If no joinSpec is specified, then the JoinNode will offer an outgoing token if tokens are offered on all of its incoming ActivityEdges (an ""and"" condition)." ^ joinSpec ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLJoinNode >> joinSpec: aValueSpecification [ "A ValueSpecification giving the condition under which the JoinNode will offer a token on its outgoing ActivityEdge. If no joinSpec is specified, then the JoinNode will offer an outgoing token if tokens are offered on all of its incoming ActivityEdges (an ""and"" condition)." joinSpec := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLJoinNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLJoinNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLJoinNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLJoinNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLJoinNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLJoinNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLifeline.class.st b/repository/OP-UML-Metamodel/OPUMLLifeline.class.st index a0814ee..2d36816 100644 --- a/repository/OP-UML-Metamodel/OPUMLLifeline.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLifeline.class.st @@ -2,8 +2,8 @@ A Lifeline represents an individual participant in the Interaction. While parts and structural features may have multiplicity greater than 1, Lifelines represent only one interacting entity. " Class { - #name : #OPUMLLifeline, - #superclass : #OPUMLElement, + #name : 'OPUMLLifeline', + #superclass : 'OPUMLElement', #instVars : [ 'represents', 'decomposedAs', @@ -11,26 +11,28 @@ Class { 'interaction', 'selector' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> coveredBies [ "References the InteractionFragments in which this Lifeline takes part." ^ coveredBies ifNil: [ coveredBies := OPUMLManyToManyLinks on: self identity opposite: #covereds ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> coveredBies: anInteractionFragment [ "References the InteractionFragments in which this Lifeline takes part." self coveredBies @@ -38,38 +40,38 @@ OPUMLLifeline >> coveredBies: anInteractionFragment [ addAll: anInteractionFragment ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> decomposedAs [ "References the Interaction that represents the decomposition." ^ decomposedAs ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> decomposedAs: aPartDecomposition [ "References the Interaction that represents the decomposition." decomposedAs := aPartDecomposition ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLifeline >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLifeline >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Lifeline put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> interaction [ "References the Interaction enclosing this Lifeline." ^ interaction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> interaction: anInteraction [ "References the Interaction enclosing this Lifeline." interaction := OPUMLToOneLink @@ -79,76 +81,76 @@ OPUMLLifeline >> interaction: anInteraction [ to: anInteraction ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> represents [ "References the ConnectableElement within the classifier that contains the enclosing interaction." ^ represents ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> represents: aConnectableElement [ "References the ConnectableElement within the classifier that contains the enclosing interaction." represents := aConnectableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> selector [ "If the referenced ConnectableElement is multivalued, then this specifies the specific individual part within that set." ^ selector ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLifeline >> selector: aValueSpecification [ "If the referenced ConnectableElement is multivalued, then this specifies the specific individual part within that set." selector := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLifeline >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLinkAction.class.st b/repository/OP-UML-Metamodel/OPUMLLinkAction.class.st index 64acac3..54880c9 100644 --- a/repository/OP-UML-Metamodel/OPUMLLinkAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLinkAction.class.st @@ -2,26 +2,28 @@ LinkAction is an abstract class for all Actions that identify the links to be acted on using LinkEndData. " Class { - #name : #OPUMLLinkAction, - #superclass : #OPUMLElement, + #name : 'OPUMLLinkAction', + #superclass : 'OPUMLElement', #instVars : [ 'endDatas', 'inputValues' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLinkAction >> associationStub [ "Returns the Association acted on by this LinkAction." @@ -31,106 +33,106 @@ OPUMLLinkAction >> associationStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkAction >> endDatas [ "The LinkEndData identifying the values on the ends of the links acting on by this LinkAction." ^ endDatas ifNil: [ endDatas := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkAction >> endDatas: aLinkEndData [ "The LinkEndData identifying the values on the ends of the links acting on by this LinkAction." endDatas := aLinkEndData ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLLinkAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLLinkAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -140,164 +142,164 @@ OPUMLLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #LinkAction put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkAction >> inputValues [ "InputPins used by the LinkEndData of the LinkAction." ^ inputValues ifNil: [ inputValues := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkAction >> inputValues: anInputPin [ "InputPins used by the LinkEndData of the LinkAction." inputValues := anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLinkAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLinkAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLinkAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLinkAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLinkAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLinkAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLinkAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLinkAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLinkAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLinkEndCreationData.class.st b/repository/OP-UML-Metamodel/OPUMLLinkEndCreationData.class.st index 7d1c77c..961edde 100644 --- a/repository/OP-UML-Metamodel/OPUMLLinkEndCreationData.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLinkEndCreationData.class.st @@ -2,16 +2,18 @@ LinkEndCreationData is LinkEndData used to provide values for one end of a link to be created by a CreateLinkAction. " Class { - #name : #OPUMLLinkEndCreationData, - #superclass : #OPUMLElement, + #name : 'OPUMLLinkEndCreationData', + #superclass : 'OPUMLElement', #instVars : [ 'isReplaceAll', 'insertAt' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLinkEndCreationData >> allPinsStub [ "Adds the insertAt InputPin (if any) to the set of all Pins." @@ -21,69 +23,69 @@ OPUMLLinkEndCreationData >> allPinsStub [ ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndCreationData >> end [ ^ (sharedGeneralizations at: #LinkEndData) end ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndCreationData >> end: aProperty [ (sharedGeneralizations at: #LinkEndData) end: aProperty ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkEndCreationData >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LinkEndData. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkEndCreationData >> initializeSharedGeneralizations [ sharedGeneralizations at: #LinkEndData put: (OPUMLLinkEndData newOnShared: sharedGeneralizations). sharedGeneralizations at: #LinkEndCreationData put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndCreationData >> insertAt [ "For ordered Association ends, the InputPin that provides the position where the new link should be inserted or where an existing link should be moved to. The type of the insertAt InputPin is UnlimitedNatural, but the input cannot be zero. It is omitted for Association ends that are not ordered." ^ insertAt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndCreationData >> insertAt: anInputPin [ "For ordered Association ends, the InputPin that provides the position where the new link should be inserted or where an existing link should be moved to. The type of the insertAt InputPin is UnlimitedNatural, but the input cannot be zero. It is omitted for Association ends that are not ordered." insertAt := anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndCreationData >> isReplaceAll [ "Specifies whether the existing links emanating from the object on this end should be destroyed before creating a new link." ^ isReplaceAll ifNil: [ isReplaceAll := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndCreationData >> isReplaceAll: aBoolean [ "Specifies whether the existing links emanating from the object on this end should be destroyed before creating a new link." isReplaceAll := aBoolean ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndCreationData >> qualifiers [ ^ (sharedGeneralizations at: #LinkEndData) qualifiers ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndCreationData >> qualifiers: aQualifierValue [ (sharedGeneralizations at: #LinkEndData) qualifiers: aQualifierValue ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndCreationData >> value [ ^ (sharedGeneralizations at: #LinkEndData) value ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndCreationData >> value: anInputPin [ (sharedGeneralizations at: #LinkEndData) value: anInputPin ] diff --git a/repository/OP-UML-Metamodel/OPUMLLinkEndData.class.st b/repository/OP-UML-Metamodel/OPUMLLinkEndData.class.st index b44c874..800e5b5 100644 --- a/repository/OP-UML-Metamodel/OPUMLLinkEndData.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLinkEndData.class.st @@ -2,17 +2,19 @@ LinkEndData is an Element that identifies on end of a link to be read or written by a LinkAction. As a link (that is not a link object) cannot be passed as a runtime value to or from an Action, it is instead identified by its end objects and qualifier values, if any. A LinkEndData instance provides these values for a single Association end. " Class { - #name : #OPUMLLinkEndData, - #superclass : #OPUMLElement, + #name : 'OPUMLLinkEndData', + #superclass : 'OPUMLElement', #instVars : [ 'end', 'qualifiers', 'value' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLinkEndData >> allPinsStub [ "Returns all the InputPins referenced by this LinkEndData. By default this includes the value and qualifier InputPins, but subclasses may override the operation to add other InputPins." @@ -22,48 +24,48 @@ OPUMLLinkEndData >> allPinsStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndData >> end [ "The Association end for which this LinkEndData specifies values." ^ end ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndData >> end: aProperty [ "The Association end for which this LinkEndData specifies values." end := aProperty ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkEndData >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkEndData >> initializeSharedGeneralizations [ sharedGeneralizations at: #LinkEndData put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndData >> qualifiers [ "A set of QualifierValues used to provide values for the qualifiers of the end." ^ qualifiers ifNil: [ qualifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndData >> qualifiers: aQualifierValue [ "A set of QualifierValues used to provide values for the qualifiers of the end." qualifiers := aQualifierValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndData >> value [ "The InputPin that provides the specified value for the given end. This InputPin is omitted if the LinkEndData specifies the ""open"" end for a ReadLinkAction." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndData >> value: anInputPin [ "The InputPin that provides the specified value for the given end. This InputPin is omitted if the LinkEndData specifies the ""open"" end for a ReadLinkAction." value := anInputPin diff --git a/repository/OP-UML-Metamodel/OPUMLLinkEndDestructionData.class.st b/repository/OP-UML-Metamodel/OPUMLLinkEndDestructionData.class.st index 8bb00b8..1730dc5 100644 --- a/repository/OP-UML-Metamodel/OPUMLLinkEndDestructionData.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLinkEndDestructionData.class.st @@ -2,16 +2,18 @@ LinkEndDestructionData is LinkEndData used to provide values for one end of a link to be destroyed by a DestroyLinkAction. " Class { - #name : #OPUMLLinkEndDestructionData, - #superclass : #OPUMLElement, + #name : 'OPUMLLinkEndDestructionData', + #superclass : 'OPUMLElement', #instVars : [ 'destroyAt', 'isDestroyDuplicates' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLinkEndDestructionData >> allPinsStub [ "Adds the destroyAt InputPin (if any) to the set of all Pins." @@ -21,69 +23,69 @@ OPUMLLinkEndDestructionData >> allPinsStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndDestructionData >> destroyAt [ "The InputPin that provides the position of an existing link to be destroyed in an ordered, nonunique Association end. The type of the destroyAt InputPin is UnlimitedNatural, but the value cannot be zero or unlimited." ^ destroyAt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndDestructionData >> destroyAt: anInputPin [ "The InputPin that provides the position of an existing link to be destroyed in an ordered, nonunique Association end. The type of the destroyAt InputPin is UnlimitedNatural, but the value cannot be zero or unlimited." destroyAt := anInputPin ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndDestructionData >> end [ ^ (sharedGeneralizations at: #LinkEndData) end ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndDestructionData >> end: aProperty [ (sharedGeneralizations at: #LinkEndData) end: aProperty ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkEndDestructionData >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LinkEndData. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLinkEndDestructionData >> initializeSharedGeneralizations [ sharedGeneralizations at: #LinkEndData put: (OPUMLLinkEndData newOnShared: sharedGeneralizations). sharedGeneralizations at: #LinkEndDestructionData put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndDestructionData >> isDestroyDuplicates [ "Specifies whether to destroy duplicates of the value in nonunique Association ends." ^ isDestroyDuplicates ifNil: [ isDestroyDuplicates := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLinkEndDestructionData >> isDestroyDuplicates: aBoolean [ "Specifies whether to destroy duplicates of the value in nonunique Association ends." isDestroyDuplicates := aBoolean ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndDestructionData >> qualifiers [ ^ (sharedGeneralizations at: #LinkEndData) qualifiers ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndDestructionData >> qualifiers: aQualifierValue [ (sharedGeneralizations at: #LinkEndData) qualifiers: aQualifierValue ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndDestructionData >> value [ ^ (sharedGeneralizations at: #LinkEndData) value ] -{ #category : #'accessing - LinkEndData' } +{ #category : 'accessing - LinkEndData' } OPUMLLinkEndDestructionData >> value: anInputPin [ (sharedGeneralizations at: #LinkEndData) value: anInputPin ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralBoolean.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralBoolean.class.st index 9f3043d..f9536b0 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralBoolean.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralBoolean.class.st @@ -2,15 +2,17 @@ A LiteralBoolean is a specification of a Boolean value. " Class { - #name : #OPUMLLiteralBoolean, - #superclass : #OPUMLElement, + #name : 'OPUMLLiteralBoolean', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralBoolean >> booleanValue [ "The query booleanValue() gives the value." @@ -20,7 +22,7 @@ OPUMLLiteralBoolean >> booleanValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralBoolean >> booleanValueStub [ "The query booleanValue() gives the value." @@ -30,24 +32,24 @@ OPUMLLiteralBoolean >> booleanValueStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralBoolean >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LiteralSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralBoolean >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -58,12 +60,12 @@ OPUMLLiteralBoolean >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralBoolean put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralBoolean >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralBoolean >> isComputable [ "The query isComputable() is redefined to be true." @@ -73,7 +75,7 @@ OPUMLLiteralBoolean >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralBoolean >> isComputableStub [ "The query isComputable() is redefined to be true." @@ -83,114 +85,114 @@ OPUMLLiteralBoolean >> isComputableStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralBoolean >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralBoolean >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralBoolean >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralBoolean >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralBoolean >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralBoolean >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralBoolean >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralBoolean >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralBoolean >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralBoolean >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralBoolean >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralBoolean >> value [ "The specified Boolean value." ^ value ifNil: [ value := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralBoolean >> value: aBoolean [ "The specified Boolean value." value := aBoolean ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralBoolean >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralBoolean >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralInteger.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralInteger.class.st index eb69807..0331cb9 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralInteger.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralInteger.class.st @@ -2,37 +2,39 @@ A LiteralInteger is a specification of an Integer value. " Class { - #name : #OPUMLLiteralInteger, - #superclass : #OPUMLElement, + #name : 'OPUMLLiteralInteger', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : #'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralInteger >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralInteger >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LiteralSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralInteger >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -43,7 +45,7 @@ OPUMLLiteralInteger >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralInteger put: self. ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralInteger >> integerValue [ "The query integerValue() gives the value." @@ -53,7 +55,7 @@ OPUMLLiteralInteger >> integerValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralInteger >> integerValueStub [ "The query integerValue() gives the value." @@ -63,7 +65,7 @@ OPUMLLiteralInteger >> integerValueStub [ ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralInteger >> isComputable [ "The query isComputable() is redefined to be true." @@ -73,7 +75,7 @@ OPUMLLiteralInteger >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralInteger >> isComputableStub [ "The query isComputable() is redefined to be true." @@ -83,114 +85,114 @@ OPUMLLiteralInteger >> isComputableStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralInteger >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralInteger >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralInteger >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralInteger >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralInteger >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralInteger >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralInteger >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralInteger >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralInteger >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralInteger >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralInteger >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralInteger >> value [ "The specified Integer value." ^ value ifNil: [ value := 0 ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralInteger >> value: anInteger [ "The specified Integer value." value := anInteger ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralInteger >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralInteger >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralNull.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralNull.class.st index 13f3613..7aed8ad 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralNull.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralNull.class.st @@ -2,34 +2,36 @@ A LiteralNull specifies the lack of a value. " Class { - #name : #OPUMLLiteralNull, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Values' + #name : 'OPUMLLiteralNull', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralNull >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralNull >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LiteralSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralNull >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -40,12 +42,12 @@ OPUMLLiteralNull >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralNull put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralNull >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralNull >> isComputable [ "The query isComputable() is redefined to be true." @@ -55,7 +57,7 @@ OPUMLLiteralNull >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralNull >> isComputableStub [ "The query isComputable() is redefined to be true." @@ -65,7 +67,7 @@ OPUMLLiteralNull >> isComputableStub [ ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralNull >> isNull [ "The query isNull() returns true." @@ -75,7 +77,7 @@ OPUMLLiteralNull >> isNull [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralNull >> isNullStub [ "The query isNull() returns true." @@ -85,97 +87,97 @@ OPUMLLiteralNull >> isNullStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralNull >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralNull >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralNull >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralNull >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralNull >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralNull >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralNull >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralNull >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralNull >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralNull >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralNull >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralNull >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralReal.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralReal.class.st index db5d33f..f523ac7 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralReal.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralReal.class.st @@ -2,37 +2,39 @@ A LiteralReal is a specification of a Real value. " Class { - #name : #OPUMLLiteralReal, - #superclass : #OPUMLElement, + #name : 'OPUMLLiteralReal', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralReal >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralReal >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LiteralSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralReal >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -43,12 +45,12 @@ OPUMLLiteralReal >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralReal put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralReal >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralReal >> isComputable [ "The query isComputable() is redefined to be true." @@ -58,7 +60,7 @@ OPUMLLiteralReal >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralReal >> isComputableStub [ "The query isComputable() is redefined to be true." @@ -68,62 +70,62 @@ OPUMLLiteralReal >> isComputableStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralReal >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralReal >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralReal >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralReal >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralReal >> realValue [ "The query realValue() gives the value." @@ -133,7 +135,7 @@ OPUMLLiteralReal >> realValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralReal >> realValueStub [ "The query realValue() gives the value." @@ -143,54 +145,54 @@ OPUMLLiteralReal >> realValueStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralReal >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralReal >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralReal >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralReal >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralReal >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralReal >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralReal >> value [ "The specified Real value." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralReal >> value: aReal [ "The specified Real value." value := aReal ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralReal >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralReal >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralSpecification.class.st index 18166b9..96d4442 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralSpecification.class.st @@ -2,34 +2,36 @@ A LiteralSpecification identifies a literal constant being modeled. " Class { - #name : #OPUMLLiteralSpecification, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Values' + #name : 'OPUMLLiteralSpecification', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -39,112 +41,112 @@ OPUMLLiteralSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralSpecification put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralSpecification >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralSpecification >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralSpecification >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralSpecification >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralSpecification >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralSpecification >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralSpecification >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralSpecification >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralString.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralString.class.st index 5bafa68..d2b88cf 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralString.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralString.class.st @@ -2,37 +2,39 @@ A LiteralString is a specification of a String value. " Class { - #name : #OPUMLLiteralString, - #superclass : #OPUMLElement, + #name : 'OPUMLLiteralString', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralString >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralString >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LiteralSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralString >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -43,12 +45,12 @@ OPUMLLiteralString >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralString put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralString >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralString >> isComputable [ "The query isComputable() is redefined to be true." @@ -58,7 +60,7 @@ OPUMLLiteralString >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralString >> isComputableStub [ "The query isComputable() is redefined to be true." @@ -68,67 +70,67 @@ OPUMLLiteralString >> isComputableStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralString >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralString >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralString >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralString >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralString >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralString >> stringValue [ "The query stringValue() gives the value." @@ -138,7 +140,7 @@ OPUMLLiteralString >> stringValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralString >> stringValueStub [ "The query stringValue() gives the value." @@ -148,49 +150,49 @@ OPUMLLiteralString >> stringValueStub [ ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralString >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralString >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralString >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralString >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralString >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralString >> value [ "The specified String value." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralString >> value: aString [ "The specified String value." value := aString ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralString >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralString >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLiteralUnlimitedNatural.class.st b/repository/OP-UML-Metamodel/OPUMLLiteralUnlimitedNatural.class.st index 84e2d59..bc4a143 100644 --- a/repository/OP-UML-Metamodel/OPUMLLiteralUnlimitedNatural.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLiteralUnlimitedNatural.class.st @@ -2,37 +2,39 @@ A LiteralUnlimitedNatural is a specification of an UnlimitedNatural number. " Class { - #name : #OPUMLLiteralUnlimitedNatural, - #superclass : #OPUMLElement, + #name : 'OPUMLLiteralUnlimitedNatural', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralUnlimitedNatural >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralUnlimitedNatural >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LiteralSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLiteralUnlimitedNatural >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -43,12 +45,12 @@ OPUMLLiteralUnlimitedNatural >> initializeSharedGeneralizations [ sharedGeneralizations at: #LiteralUnlimitedNatural put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralUnlimitedNatural >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralUnlimitedNatural >> isComputable [ "The query isComputable() is redefined to be true." @@ -58,7 +60,7 @@ OPUMLLiteralUnlimitedNatural >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralUnlimitedNatural >> isComputableStub [ "The query isComputable() is redefined to be true." @@ -68,92 +70,92 @@ OPUMLLiteralUnlimitedNatural >> isComputableStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralUnlimitedNatural >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralUnlimitedNatural >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralUnlimitedNatural >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLiteralUnlimitedNatural >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralUnlimitedNatural >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLLiteralUnlimitedNatural >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralUnlimitedNatural >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLLiteralUnlimitedNatural >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralUnlimitedNatural >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLLiteralUnlimitedNatural >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #operations } +{ #category : 'operations' } OPUMLLiteralUnlimitedNatural >> unlimitedValue [ "The query unlimitedValue() gives the value." @@ -163,7 +165,7 @@ OPUMLLiteralUnlimitedNatural >> unlimitedValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLiteralUnlimitedNatural >> unlimitedValueStub [ "The query unlimitedValue() gives the value." @@ -173,24 +175,24 @@ OPUMLLiteralUnlimitedNatural >> unlimitedValueStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralUnlimitedNatural >> value [ "The specified UnlimitedNatural value." ^ value ifNil: [ value := 0 ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLiteralUnlimitedNatural >> value: anUnlimitedNatural [ "The specified UnlimitedNatural value." value := anUnlimitedNatural ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralUnlimitedNatural >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLLiteralUnlimitedNatural >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLLoopNode.class.st b/repository/OP-UML-Metamodel/OPUMLLoopNode.class.st index 58d0f01..0245b72 100644 --- a/repository/OP-UML-Metamodel/OPUMLLoopNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLLoopNode.class.st @@ -2,8 +2,8 @@ A LoopNode is a StructuredActivityNode that represents an iterative loop with setup, test, and body sections. " Class { - #name : #OPUMLLoopNode, - #superclass : #OPUMLElement, + #name : 'OPUMLLoopNode', + #superclass : 'OPUMLElement', #instVars : [ 'results', 'decider', @@ -15,20 +15,22 @@ Class { 'loopVariableInputs', 'setupParts' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> activity [ ^ (sharedGeneralizations at: #StructuredActivityNode) activity ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> activity: anActivity [ (sharedGeneralizations at: #StructuredActivityNode) activity: anActivity ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLoopNode >> allActionsStub [ "Return only this LoopNode. This prevents Actions within the LoopNode from having their OutputPins used as bodyOutputs or decider Pins in containing LoopNodes or ConditionalNodes." @@ -38,190 +40,190 @@ OPUMLLoopNode >> allActionsStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> bodyOutputs [ "The OutputPins on Actions within the bodyPart, the values of which are moved to the loopVariable OutputPins after the completion of each execution of the bodyPart, before the next iteration of the loop begins or before the loop exits." ^ bodyOutputs ifNil: [ bodyOutputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> bodyOutputs: anOutputPin [ "The OutputPins on Actions within the bodyPart, the values of which are moved to the loopVariable OutputPins after the completion of each execution of the bodyPart, before the next iteration of the loop begins or before the loop exits." bodyOutputs := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> bodyParts [ "The set of ExecutableNodes that perform the repetitive computations of the loop. The bodyPart is executed as long as the test section produces a true value." ^ bodyParts ifNil: [ bodyParts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> bodyParts: anExecutableNode [ "The set of ExecutableNodes that perform the repetitive computations of the loop. The bodyPart is executed as long as the test section produces a true value." bodyParts := anExecutableNode ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> decider [ "An OutputPin on an Action in the test section whose Boolean value determines whether to continue executing the loop bodyPart." ^ decider ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> decider: anOutputPin [ "An OutputPin on an Action in the test section whose Boolean value determines whether to continue executing the loop bodyPart." decider := anOutputPin ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> edges [ ^ (sharedGeneralizations at: #StructuredActivityNode) edges ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> edges: anActivityEdge [ (sharedGeneralizations at: #StructuredActivityNode) edges: anActivityEdge ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLLoopNode >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLLoopNode >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLoopNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuredActivityNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLLoopNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -234,267 +236,267 @@ OPUMLLoopNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #LoopNode put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLoopNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLoopNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> isTestedFirst [ "If true, the test is performed before the first execution of the bodyPart. If false, the bodyPart is executed once before the test is performed." ^ isTestedFirst ifNil: [ isTestedFirst := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> isTestedFirst: aBoolean [ "If true, the test is performed before the first execution of the bodyPart. If false, the bodyPart is executed once before the test is performed." isTestedFirst := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> loopVariableInputs [ "A list of InputPins whose values are moved into the loopVariable Pins before the first iteration of the loop." ^ loopVariableInputs ifNil: [ loopVariableInputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> loopVariableInputs: anInputPin [ "A list of InputPins whose values are moved into the loopVariable Pins before the first iteration of the loop." loopVariableInputs := anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> loopVariables [ "A list of OutputPins that hold the values of the loop variables during an execution of the loop. When the test fails, the values are moved to the result OutputPins of the loop." ^ loopVariables ifNil: [ loopVariables := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> loopVariables: anOutputPin [ "A list of OutputPins that hold the values of the loop variables during an execution of the loop. When the test fails, the values are moved to the result OutputPins of the loop." loopVariables := anOutputPin ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> mustIsolate [ ^ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> mustIsolate: aBoolean [ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> nodes [ ^ (sharedGeneralizations at: #StructuredActivityNode) nodes ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> nodes: anActivityNode [ (sharedGeneralizations at: #StructuredActivityNode) nodes: anActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLLoopNode >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLLoopNode >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLoopNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLoopNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLLoopNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLoopNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLLoopNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> results [ "A list of OutputPins that receive the loopVariable values after the last iteration of the loop and constitute the output of the LoopNode." ^ results ifNil: [ results := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> results: anOutputPin [ "A list of OutputPins that receive the loopVariable values after the last iteration of the loop and constitute the output of the LoopNode." results := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> setupParts [ "The set of ExecutableNodes executed before the first iteration of the loop, in order to initialize values or perform other setup computations." ^ setupParts ifNil: [ setupParts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> setupParts: anExecutableNode [ "The set of ExecutableNodes executed before the first iteration of the loop, in order to initialize values or perform other setup computations." setupParts := anExecutableNode ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLLoopNode >> sourceNodesStub [ "Return the loopVariable OutputPins in addition to other source nodes for the LoopNode as a StructuredActivityNode." @@ -504,74 +506,74 @@ OPUMLLoopNode >> sourceNodesStub [ ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> structuredNodeInputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> structuredNodeInputs: anInputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs: anInputPin ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> structuredNodeOutputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> structuredNodeOutputs: anOutputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs: anOutputPin ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLLoopNode >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> tests [ "The set of ExecutableNodes executed in order to provide the test result for the loop." ^ tests ifNil: [ tests := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLLoopNode >> tests: anExecutableNode [ "The set of ExecutableNodes executed in order to provide the test result for the loop." tests := anExecutableNode ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> variables [ ^ (sharedGeneralizations at: #StructuredActivityNode) variables ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLLoopNode >> variables: aVariable [ (sharedGeneralizations at: #StructuredActivityNode) variables: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLLoopNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLManifestation.class.st b/repository/OP-UML-Metamodel/OPUMLManifestation.class.st index dab0e57..03e4144 100644 --- a/repository/OP-UML-Metamodel/OPUMLManifestation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLManifestation.class.st @@ -2,42 +2,44 @@ A manifestation is the concrete physical rendering of one or more model elements by an artifact. " Class { - #name : #OPUMLManifestation, - #superclass : #OPUMLElement, + #name : 'OPUMLManifestation', + #superclass : 'OPUMLElement', #instVars : [ 'utilizedElement' ], - #category : 'OP-UML-Metamodel-Deployments' + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLManifestation >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLManifestation >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLManifestation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Abstraction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLManifestation >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -49,134 +51,134 @@ OPUMLManifestation >> initializeSharedGeneralizations [ sharedGeneralizations at: #Manifestation put: self. ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLManifestation >> mapping [ ^ (sharedGeneralizations at: #Abstraction) mapping ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLManifestation >> mapping: anOpaqueExpression [ (sharedGeneralizations at: #Abstraction) mapping: anOpaqueExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLManifestation >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLManifestation >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLManifestation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLManifestation >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLManifestation >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLManifestation >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLManifestation >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLManifestation >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLManifestation >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLManifestation >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLManifestation >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLManifestation >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLManifestation >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLManifestation >> utilizedElement [ "The model element that is utilized in the manifestation in an Artifact." ^ utilizedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLManifestation >> utilizedElement: aPackageableElement [ "The model element that is utilized in the manifestation in an Artifact." utilizedElement := aPackageableElement ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLManifestation >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLManifestation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLMergeNode.class.st b/repository/OP-UML-Metamodel/OPUMLMergeNode.class.st index c91b01e..6e268e9 100644 --- a/repository/OP-UML-Metamodel/OPUMLMergeNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMergeNode.class.st @@ -2,89 +2,91 @@ A merge node is a control node that brings together multiple alternate flows. It is not used to synchronize concurrent flows but to accept one among several alternate flows. " Class { - #name : #OPUMLMergeNode, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLMergeNode', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMergeNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ControlNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMergeNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -93,102 +95,102 @@ OPUMLMergeNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #MergeNode put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLMergeNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLMergeNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLMergeNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLMergeNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLMergeNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLMergeNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLMergeNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMergeNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLMessage.class.st b/repository/OP-UML-Metamodel/OPUMLMessage.class.st index db2c17b..c8e8412 100644 --- a/repository/OP-UML-Metamodel/OPUMLMessage.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMessage.class.st @@ -2,8 +2,8 @@ A Message defines a particular communication between Lifelines of an Interaction. " Class { - #name : #OPUMLMessage, - #superclass : #OPUMLElement, + #name : 'OPUMLMessage', + #superclass : 'OPUMLElement', #instVars : [ 'receiveEvent', 'messageSort', @@ -14,63 +14,65 @@ Class { 'signature', 'connector' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> arguments [ "The arguments of the Message." ^ arguments ifNil: [ arguments := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> arguments: aValueSpecification [ "The arguments of the Message." arguments := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> connector [ "The Connector on which this Message is sent." ^ connector ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> connector: aConnector [ "The Connector on which this Message is sent." connector := aConnector ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessage >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessage >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Message put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> interaction [ "The enclosing Interaction owning the Message." ^ interaction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> interaction: anInteraction [ "The enclosing Interaction owning the Message." interaction := OPUMLToOneLink @@ -80,7 +82,7 @@ OPUMLMessage >> interaction: anInteraction [ to: anInteraction ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMessage >> isDistinguishableFromStub [ "The query isDistinguishableFrom() specifies that any two Messages may coexist in the same Namespace, regardless of their names." @@ -90,19 +92,19 @@ OPUMLMessage >> isDistinguishableFromStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> messageKind [ "The derived kind of the Message (complete, lost, found, or unknown)." ^ messageKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> messageKind: aMessageKind [ "The derived kind of the Message (complete, lost, found, or unknown)." messageKind := aMessageKind ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMessage >> messageKindStub [ "This query returns the MessageKind value for this Message." @@ -112,100 +114,100 @@ OPUMLMessage >> messageKindStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> messageSort [ "The sort of communication reflected by the Message." ^ messageSort ifNil: [ messageSort := OPUMLMessageSort new synchCall ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> messageSort: aMessageSort [ "The sort of communication reflected by the Message." messageSort := aMessageSort ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> receiveEvent [ "References the Receiving of the Message." ^ receiveEvent ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> receiveEvent: aMessageEnd [ "References the Receiving of the Message." receiveEvent := aMessageEnd ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> sendEvent [ "References the Sending of the Message." ^ sendEvent ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> sendEvent: aMessageEnd [ "References the Sending of the Message." sendEvent := aMessageEnd ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> signature [ "The signature of the Message is the specification of its content. It refers either an Operation or a Signal." ^ signature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessage >> signature: aNamedElement [ "The signature of the Message is the specification of its content. It refers either an Operation or a Signal." signature := aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessage >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLMessageEnd.class.st b/repository/OP-UML-Metamodel/OPUMLMessageEnd.class.st index 9363e85..c8c70e6 100644 --- a/repository/OP-UML-Metamodel/OPUMLMessageEnd.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMessageEnd.class.st @@ -2,25 +2,27 @@ MessageEnd is an abstract specialization of NamedElement that represents what can occur at the end of a Message. " Class { - #name : #OPUMLMessageEnd, - #superclass : #OPUMLElement, + #name : 'OPUMLMessageEnd', + #superclass : 'OPUMLElement', #instVars : [ 'message' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMessageEnd >> enclosingFragmentStub [ "This query returns a set including the enclosing InteractionFragment this MessageEnd is enclosed within." @@ -58,20 +60,20 @@ endif)" ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessageEnd >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessageEnd >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #MessageEnd put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMessageEnd >> isReceiveStub [ "This query returns value true if this MessageEnd is a receiveEvent." @@ -83,7 +85,7 @@ OPUMLMessageEnd >> isReceiveStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMessageEnd >> isSendStub [ "This query returns value true if this MessageEnd is a sendEvent." @@ -95,49 +97,49 @@ OPUMLMessageEnd >> isSendStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageEnd >> message [ "References a Message." ^ message ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageEnd >> message: aMessage [ "References a Message." message := aMessage ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMessageEnd >> oppositeEndStub [ "This query returns a set including the MessageEnd (if exists) at the opposite end of the Message for this MessageEnd." @@ -149,22 +151,22 @@ OPUMLMessageEnd >> oppositeEndStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEnd >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLMessageEvent.class.st b/repository/OP-UML-Metamodel/OPUMLMessageEvent.class.st index 1711ed5..1710e44 100644 --- a/repository/OP-UML-Metamodel/OPUMLMessageEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMessageEvent.class.st @@ -2,29 +2,31 @@ A MessageEvent specifies the receipt by an object of either an Operation call or a Signal instance. " Class { - #name : #OPUMLMessageEvent, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-CommonBehavior' + #name : 'OPUMLMessageEvent', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessageEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Event. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessageEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -33,72 +35,72 @@ OPUMLMessageEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #MessageEvent put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLMessageEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLMessageEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLMessageEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLMessageEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLMessageEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLMessageEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLMessageKind.class.st b/repository/OP-UML-Metamodel/OPUMLMessageKind.class.st index e8e6a96..8ade18a 100644 --- a/repository/OP-UML-Metamodel/OPUMLMessageKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMessageKind.class.st @@ -2,61 +2,63 @@ This is an enumerated type that identifies the type of Message. " Class { - #name : #OPUMLMessageKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLMessageKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageKind class >> complete [ "sendEvent and receiveEvent are present" ^ #complete ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageKind class >> found [ "sendEvent absent and receiveEvent present" ^ #found ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageKind class >> lost [ "sendEvent present and receiveEvent absent" ^ #lost ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageKind class >> unknown [ "sendEvent and receiveEvent absent (should not appear)" ^ #unknown ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageKind >> complete [ "sendEvent and receiveEvent are present" ^ #complete ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageKind >> found [ "sendEvent absent and receiveEvent present" ^ #found ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageKind >> lost [ "sendEvent present and receiveEvent absent" ^ #lost ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageKind >> unknown [ "sendEvent and receiveEvent absent (should not appear)" ^ #unknown diff --git a/repository/OP-UML-Metamodel/OPUMLMessageOccurrenceSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLMessageOccurrenceSpecification.class.st index 20c4c2a..a2a2d6a 100644 --- a/repository/OP-UML-Metamodel/OPUMLMessageOccurrenceSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMessageOccurrenceSpecification.class.st @@ -2,72 +2,74 @@ A MessageOccurrenceSpecification specifies the occurrence of Message events, such as sending and receiving of Signals or invoking or receiving of Operation calls. A MessageOccurrenceSpecification is a kind of MessageEnd. Messages are generated either by synchronous Operation calls or asynchronous Signal sends. They are received by the execution of corresponding AcceptEventActions. " Class { - #name : #OPUMLMessageOccurrenceSpecification, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLMessageOccurrenceSpecification', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLMessageOccurrenceSpecification >> covered [ ^ (sharedGeneralizations at: #OccurrenceSpecification) covered ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLMessageOccurrenceSpecification >> covered: aLifeline [ (sharedGeneralizations at: #OccurrenceSpecification) covered: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLMessageOccurrenceSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessageOccurrenceSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MessageEnd. @@ -75,7 +77,7 @@ OPUMLMessageOccurrenceSpecification >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMessageOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -84,82 +86,82 @@ OPUMLMessageOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #MessageOccurrenceSpecification put: self. ] -{ #category : #'accessing - MessageEnd' } +{ #category : 'accessing - MessageEnd' } OPUMLMessageOccurrenceSpecification >> message [ ^ (sharedGeneralizations at: #MessageEnd) message ] -{ #category : #'accessing - MessageEnd' } +{ #category : 'accessing - MessageEnd' } OPUMLMessageOccurrenceSpecification >> message: aMessage [ (sharedGeneralizations at: #MessageEnd) message: aMessage ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLMessageOccurrenceSpecification >> toAfters [ ^ (sharedGeneralizations at: #OccurrenceSpecification) toAfters ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLMessageOccurrenceSpecification >> toAfters: aGeneralOrdering [ (sharedGeneralizations at: #OccurrenceSpecification) toAfters: aGeneralOrdering ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLMessageOccurrenceSpecification >> toBefores [ ^ (sharedGeneralizations at: #OccurrenceSpecification) toBefores ] -{ #category : #'accessing - OccurrenceSpecification' } +{ #category : 'accessing - OccurrenceSpecification' } OPUMLMessageOccurrenceSpecification >> toBefores: aGeneralOrdering [ (sharedGeneralizations at: #OccurrenceSpecification) toBefores: aGeneralOrdering ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLMessageOccurrenceSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLMessageSort.class.st b/repository/OP-UML-Metamodel/OPUMLMessageSort.class.st index abbe292..99de08a 100644 --- a/repository/OP-UML-Metamodel/OPUMLMessageSort.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMessageSort.class.st @@ -2,89 +2,91 @@ This is an enumerated type that identifies the type of communication action that was used to generate the Message. " Class { - #name : #OPUMLMessageSort, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLMessageSort', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageSort class >> asynchCall [ "The message was generated by an asynchronous call to an operation; i.e., a CallAction with isSynchronous = false." ^ #asynchCall ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageSort class >> asynchSignal [ "The message was generated by an asynchronous send action." ^ #asynchSignal ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageSort class >> createMessage [ "The message designating the creation of another lifeline object." ^ #createMessage ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageSort class >> deleteMessage [ "The message designating the termination of another lifeline." ^ #deleteMessage ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageSort class >> reply [ "The message is a reply message to an operation call." ^ #reply ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLMessageSort class >> synchCall [ "The message was generated by a synchronous call to an operation." ^ #synchCall ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageSort >> asynchCall [ "The message was generated by an asynchronous call to an operation; i.e., a CallAction with isSynchronous = false." ^ #asynchCall ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageSort >> asynchSignal [ "The message was generated by an asynchronous send action." ^ #asynchSignal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageSort >> createMessage [ "The message designating the creation of another lifeline object." ^ #createMessage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageSort >> deleteMessage [ "The message designating the termination of another lifeline." ^ #deleteMessage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageSort >> reply [ "The message is a reply message to an operation call." ^ #reply ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMessageSort >> synchCall [ "The message was generated by a synchronous call to an operation." ^ #synchCall diff --git a/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st b/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st index 1bd29ab..beb8dcf 100644 --- a/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMetaElement.class.st @@ -2,8 +2,8 @@ I am a metaclass for UML classes implementing some behavior for managing the classes and other stuff (like an announcer). " Class { - #name : #OPUMLMetaElement, - #superclass : #Object, + #name : 'OPUMLMetaElement', + #superclass : 'Object', #instVars : [ 'announcer', 'directGeneralizations', @@ -14,42 +14,44 @@ Class { #classInstVars : [ 'metaModels' ], - #category : #'OP-UML-Metamodel-Meta' + #category : 'OP-UML-Metamodel-Meta', + #package : 'OP-UML-Metamodel', + #tag : 'Meta' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLMetaElement class >> newOnShared: aDictionary [ ^ self basicNew initializeWithShared: aDictionary; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> addTag: anAssociation [ tags add: anAssociation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> addTagNamed: aKey value: aValue [ tags at: aKey put: aValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> announcer [ ^ announcer ifNil: [ announcer := Announcer new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> announcer: anAnnouncer [ announcer := anAnnouncer ] -{ #category : #'accessing - stereotypes' } +{ #category : 'accessing - stereotypes' } OPUMLMetaElement >> appliedStereotypes [ ^ self tags at: #appliedStereotypes ifAbsentPut: [ OrderedCollection new ] ] -{ #category : #'accessing - stereotypes' } +{ #category : 'accessing - stereotypes' } OPUMLMetaElement >> applyStereotype: aStereotype [ | meta attribute | @@ -65,17 +67,17 @@ OPUMLMetaElement >> applyStereotype: aStereotype [ with: aStereotype ] -{ #category : #'accessing - tags' } +{ #category : 'accessing - tags' } OPUMLMetaElement >> hasTagAt: aKey [ ^ tags includesKey: aKey ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> identity [ ^ sharedGeneralizations values last ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMetaElement >> initialize [ super initialize. sharedGeneralizations := OrderedDictionary new. @@ -84,24 +86,24 @@ OPUMLMetaElement >> initialize [ self initializeDirectGeneralizations ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMetaElement >> initializeDirectGeneralizations [ ^ self subclassResponsibility ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMetaElement >> initializeSharedGeneralizations [ ^ self subclassResponsibility ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMetaElement >> initializeWithShared: aDictionary [ super initialize. sharedGeneralizations := aDictionary. self initializeDirectGeneralizations ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectionAllProperties [ @@ -120,7 +122,7 @@ OPUMLMetaElement >> inspectionAllProperties [ yourself ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectionGeneralizations [ @@ -139,7 +141,7 @@ OPUMLMetaElement >> inspectionGeneralizations [ yourself ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectionProperties [ @@ -158,7 +160,7 @@ OPUMLMetaElement >> inspectionProperties [ yourself ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectionStereotypeProperties [ @@ -181,7 +183,7 @@ OPUMLMetaElement >> inspectionStereotypeProperties [ yourself ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectionStereotypes [ @@ -191,7 +193,7 @@ OPUMLMetaElement >> inspectionStereotypes [ yourself ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectionTags [ @@ -210,12 +212,12 @@ OPUMLMetaElement >> inspectionTags [ yourself ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectorProperties [ ^ self inspectorPropertiesSelectors collect: [ :each | each -> (self perform: each) ] ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> inspectorPropertiesSelectors [ | classes class | classes := Set new. @@ -227,18 +229,18 @@ OPUMLMetaElement >> inspectorPropertiesSelectors [ select: [ :each | each protocol beginsWith: 'accessing' ]) collect: #selector) sorted ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> nonEmptyinspectorProperties [ ^ self inspectorProperties reject: [ :pair | pair value isNil or: [ pair value isCollection and: [ pair value isEmpty ] ] ] ] -{ #category : #'ocl-experimental' } +{ #category : 'ocl-experimental' } OPUMLMetaElement >> oclAsType: aClassifier [ ^ sharedGeneralizations at: (self oclClassifierNameFrom: aClassifier) ] -{ #category : #'ocl-experimental' } +{ #category : 'ocl-experimental' } OPUMLMetaElement >> oclClassifierNameFrom: anObject [ (anObject isKindOf: OPUMLMetaElement class) ifTrue: [ ^ anObject name withoutPrefix: 'OPUML' ]. @@ -249,7 +251,7 @@ OPUMLMetaElement >> oclClassifierNameFrom: anObject [ self error: 'Unknown classifier ' , anObject asString ] -{ #category : #'ocl-experimental' } +{ #category : 'ocl-experimental' } OPUMLMetaElement >> oclIsKindOf: aClassifier [ "Element is not part of the shared generalization, so extra check is needed." aClassifier = #Element @@ -257,13 +259,13 @@ OPUMLMetaElement >> oclIsKindOf: aClassifier [ ^ sharedGeneralizations includesKey: (self oclClassifierNameFrom: aClassifier) ] -{ #category : #'ocl-experimental' } +{ #category : 'ocl-experimental' } OPUMLMetaElement >> oclIsTypeOf: aClassifier [ ^ sharedGeneralizations keys last = (self oclClassifierNameFrom: aClassifier) ] -{ #category : #printing } +{ #category : 'printing' } OPUMLMetaElement >> printOn: aStream [ super printOn: aStream. (self class selectors includes: #name) @@ -273,17 +275,17 @@ OPUMLMetaElement >> printOn: aStream [ << ')' ] ] -{ #category : #'accessing - tags' } +{ #category : 'accessing - tags' } OPUMLMetaElement >> removeTagAt: aKey [ tags removeKey: aKey ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> removeTagNamed: aKey [ tags removeKey: aKey ] -{ #category : #'GTInspector - extensions' } +{ #category : 'GTInspector - extensions' } OPUMLMetaElement >> stereotypeProperties [ | props | props := OrderedCollection new. @@ -298,37 +300,37 @@ OPUMLMetaElement >> stereotypeProperties [ stereo perform: each name asSymbol} ] ] ] -{ #category : #'accessing - tags' } +{ #category : 'accessing - tags' } OPUMLMetaElement >> tagAt: aKey [ ^ tags at: aKey ] -{ #category : #'accessing - tags' } +{ #category : 'accessing - tags' } OPUMLMetaElement >> tagAt: aKey ifAbsent: anAbsentBlock [ ^ tags at: aKey ifAbsent: anAbsentBlock ] -{ #category : #'accessing - tags' } +{ #category : 'accessing - tags' } OPUMLMetaElement >> tagAt: aKey put: aValue [ tags at: aKey put: aValue ] -{ #category : #'accessing - tags' } +{ #category : 'accessing - tags' } OPUMLMetaElement >> tags [ ^ tags ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> umlClassName [ ^ self className withoutPrefix: 'OPUML' ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> umlMetaClass [ ^ OPUMLXMISpecsStorage metaClassFor: self ] -{ #category : #'accessing - stereotypes' } +{ #category : 'accessing - stereotypes' } OPUMLMetaElement >> unapplyStereotype: aStereotype [ | meta attribute | self appliedStereotypes remove: aStereotype ifAbsent: [ ]. @@ -338,12 +340,12 @@ OPUMLMetaElement >> unapplyStereotype: aStereotype [ self perform: (attribute opposite name , ':') asSymbol with: nil ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> uuid [ ^ uuid ifNil: [ uuid := UUID new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMetaElement >> uuid: aUUID [ uuid := aUUID ] diff --git a/repository/OP-UML-Metamodel/OPUMLModel.class.st b/repository/OP-UML-Metamodel/OPUMLModel.class.st index c18a2a0..44ffe1f 100644 --- a/repository/OP-UML-Metamodel/OPUMLModel.class.st +++ b/repository/OP-UML-Metamodel/OPUMLModel.class.st @@ -2,18 +2,20 @@ A model captures a view of a physical system. It is an abstraction of the physical system, with a certain purpose. This purpose determines what is to be included in the model and what is irrelevant. Thus the model completely describes those aspects of the physical system that are relevant to the purpose of the model, at the appropriate level of detail. " Class { - #name : #OPUMLModel, - #superclass : #OPUMLPackage, - #category : #'OP-UML-Metamodel-Packages' + #name : 'OPUMLModel', + #superclass : 'OPUMLPackage', + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #testing } +{ #category : 'testing' } OPUMLModel class >> isDeprecated [ ^ true ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPUMLModel class >> new [ ^ OPUMLPackage new diff --git a/repository/OP-UML-Metamodel/OPUMLMultiplicityElement.class.st b/repository/OP-UML-Metamodel/OPUMLMultiplicityElement.class.st index bdb3528..1215481 100644 --- a/repository/OP-UML-Metamodel/OPUMLMultiplicityElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLMultiplicityElement.class.st @@ -2,8 +2,8 @@ A multiplicity is a definition of an inclusive interval of non-negative integers beginning with a lower bound and ending with a (possibly infinite) upper bound. A MultiplicityElement embeds this information to specify the allowable cardinalities for an instantiation of the Element. " Class { - #name : #OPUMLMultiplicityElement, - #superclass : #OPUMLElement, + #name : 'OPUMLMultiplicityElement', + #superclass : 'OPUMLElement', #instVars : [ 'upper', 'isOrdered', @@ -12,10 +12,12 @@ Class { 'lowerValue', 'lower' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> compatibleWithStub [ "The operation compatibleWith takes another multiplicity as input. It returns true if the other multiplicity is wider than, or the same as, self." @@ -25,7 +27,7 @@ OPUMLMultiplicityElement >> compatibleWithStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> includesMultiplicityStub [ "The query includesMultiplicity() checks whether this multiplicity includes all the cardinalities allowed by the specified multiplicity." @@ -36,18 +38,18 @@ OPUMLMultiplicityElement >> includesMultiplicityStub [ ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMultiplicityElement >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLMultiplicityElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #MultiplicityElement put: self. ] -{ #category : #operations } +{ #category : 'operations' } OPUMLMultiplicityElement >> isMultivalued [ "The query isMultivalued() checks whether this multiplicity has an upper bound greater than one." @@ -58,7 +60,7 @@ OPUMLMultiplicityElement >> isMultivalued [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> isMultivaluedStub [ "The query isMultivalued() checks whether this multiplicity has an upper bound greater than one." @@ -69,19 +71,19 @@ OPUMLMultiplicityElement >> isMultivaluedStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> isOrdered [ "For a multivalued multiplicity, this attribute specifies whether the values in an instantiation of this MultiplicityElement are sequentially ordered." ^ isOrdered ifNil: [ isOrdered := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> isOrdered: aBoolean [ "For a multivalued multiplicity, this attribute specifies whether the values in an instantiation of this MultiplicityElement are sequentially ordered." isOrdered := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> isStub [ "The operation is determines if the upper and lower bound of the ranges are the ones given." @@ -91,19 +93,19 @@ OPUMLMultiplicityElement >> isStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> isUnique [ "For a multivalued multiplicity, this attributes specifies whether the values in an instantiation of this MultiplicityElement are unique." ^ isUnique ifNil: [ isUnique := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> isUnique: aBoolean [ "For a multivalued multiplicity, this attributes specifies whether the values in an instantiation of this MultiplicityElement are unique." isUnique := aBoolean ] -{ #category : #operations } +{ #category : 'operations' } OPUMLMultiplicityElement >> lower [ "The derived lower attribute must equal the lowerBound." @@ -113,13 +115,13 @@ OPUMLMultiplicityElement >> lower [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> lower: anInteger [ "The lower bound of the multiplicity interval." lower := anInteger ] -{ #category : #operations } +{ #category : 'operations' } OPUMLMultiplicityElement >> lowerBound [ "The query lowerBound() returns the lower bound of the multiplicity as an integer, which is the integerValue of lowerValue, if this is given, and 1 otherwise." @@ -131,7 +133,7 @@ OPUMLMultiplicityElement >> lowerBound [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> lowerBoundStub [ "The query lowerBound() returns the lower bound of the multiplicity as an integer, which is the integerValue of lowerValue, if this is given, and 1 otherwise." @@ -141,7 +143,7 @@ OPUMLMultiplicityElement >> lowerBoundStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> lowerStub [ "The derived lower attribute must equal the lowerBound." @@ -151,19 +153,19 @@ OPUMLMultiplicityElement >> lowerStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> lowerValue [ "The specification of the lower bound for this multiplicity." ^ lowerValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> lowerValue: aValueSpecification [ "The specification of the lower bound for this multiplicity." lowerValue := aValueSpecification ] -{ #category : #operations } +{ #category : 'operations' } OPUMLMultiplicityElement >> upper [ "The derived upper attribute must equal the upperBound." @@ -173,13 +175,13 @@ OPUMLMultiplicityElement >> upper [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> upper: anUnlimitedNatural [ "The upper bound of the multiplicity interval." upper := anUnlimitedNatural ] -{ #category : #operations } +{ #category : 'operations' } OPUMLMultiplicityElement >> upperBound [ "The query upperBound() returns the upper bound of the multiplicity for a bounded multiplicity as an unlimited natural, which is the unlimitedNaturalValue of upperValue, if given, and 1, otherwise." @@ -191,7 +193,7 @@ OPUMLMultiplicityElement >> upperBound [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> upperBoundStub [ "The query upperBound() returns the upper bound of the multiplicity for a bounded multiplicity as an unlimited natural, which is the unlimitedNaturalValue of upperValue, if given, and 1, otherwise." @@ -201,7 +203,7 @@ OPUMLMultiplicityElement >> upperBoundStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLMultiplicityElement >> upperStub [ "The derived upper attribute must equal the upperBound." @@ -211,13 +213,13 @@ OPUMLMultiplicityElement >> upperStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> upperValue [ "The specification of the upper bound for this multiplicity." ^ upperValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLMultiplicityElement >> upperValue: aValueSpecification [ "The specification of the upper bound for this multiplicity." upperValue := aValueSpecification diff --git a/repository/OP-UML-Metamodel/OPUMLNamedElement.class.st b/repository/OP-UML-Metamodel/OPUMLNamedElement.class.st index cb546a4..e4a7f83 100644 --- a/repository/OP-UML-Metamodel/OPUMLNamedElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLNamedElement.class.st @@ -2,8 +2,8 @@ A NamedElement is an Element in a model that may have a name. The name may be given directly and/or via the use of a StringExpression. " Class { - #name : #OPUMLNamedElement, - #superclass : #OPUMLElement, + #name : 'OPUMLNamedElement', + #superclass : 'OPUMLElement', #instVars : [ 'visibility', 'qualifiedName', @@ -12,10 +12,12 @@ Class { 'clientDependencies', 'namespace' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamedElement >> allNamespacesStub [ "The query allNamespaces() gives the sequence of Namespaces in which the NamedElement is nested, working outwards." @@ -36,7 +38,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamedElement >> allOwningPackagesStub [ "The query allOwningPackages() returns the set of all the enclosing Namespaces of this NamedElement, working outwards, that are Packages, up to but not including the first such Namespace that is not a Package." @@ -52,13 +54,13 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> clientDependencies [ "Indicates the Dependencies that reference this NamedElement as a client." ^ clientDependencies ifNil: [ clientDependencies := OPUMLManyToManyLinks on: self identity opposite: #clients ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> clientDependencies: aDependency [ "Indicates the Dependencies that reference this NamedElement as a client." self clientDependencies @@ -66,7 +68,7 @@ OPUMLNamedElement >> clientDependencies: aDependency [ addAll: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamedElement >> clientDependencyStub [ "" @@ -76,18 +78,18 @@ OPUMLNamedElement >> clientDependencyStub [ ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLNamedElement >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLNamedElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamedElement >> isDistinguishableFromStub [ "The query isDistinguishableFrom() determines whether two NamedElements may logically co-exist within a Namespace. By default, two named elements are distinguishable if (a) they have types neither of which is a kind of the other or (b) they have different names." @@ -99,37 +101,37 @@ OPUMLNamedElement >> isDistinguishableFromStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> name [ "The name of the NamedElement." ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> name: aString [ "The name of the NamedElement." name := aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> nameExpression [ "The StringExpression used to define the name of this NamedElement." ^ nameExpression ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> nameExpression: aStringExpression [ "The StringExpression used to define the name of this NamedElement." nameExpression := aStringExpression ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> namespace [ "Specifies the Namespace that owns the NamedElement." ^ namespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> namespace: aNamespace [ "Specifies the Namespace that owns the NamedElement." namespace := OPUMLToOneLink @@ -139,19 +141,19 @@ OPUMLNamedElement >> namespace: aNamespace [ to: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> qualifiedName [ "A name that allows the NamedElement to be identified within a hierarchy of nested Namespaces. It is constructed from the names of the containing Namespaces starting at the root of the hierarchy and ending with the name of the NamedElement itself." ^ qualifiedName ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> qualifiedName: aString [ "A name that allows the NamedElement to be identified within a hierarchy of nested Namespaces. It is constructed from the names of the containing Namespaces starting at the root of the hierarchy and ending with the name of the NamedElement itself." qualifiedName := aString ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamedElement >> qualifiedNameStub [ "When a NamedElement has a name, and all of its containing Namespaces have a name, the qualifiedName is constructed from the name of the NamedElement and the names of the containing Namespaces." @@ -166,7 +168,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamedElement >> separatorStub [ "The query separator() gives the string that is used to separate names when constructing a qualifiedName." @@ -176,13 +178,13 @@ OPUMLNamedElement >> separatorStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> visibility [ "Determines whether and how the NamedElement is visible outside its owning Namespace." ^ visibility ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamedElement >> visibility: aVisibilityKind [ "Determines whether and how the NamedElement is visible outside its owning Namespace." visibility := aVisibilityKind diff --git a/repository/OP-UML-Metamodel/OPUMLNamespace.class.st b/repository/OP-UML-Metamodel/OPUMLNamespace.class.st index 0ffc2c8..11036ee 100644 --- a/repository/OP-UML-Metamodel/OPUMLNamespace.class.st +++ b/repository/OP-UML-Metamodel/OPUMLNamespace.class.st @@ -2,8 +2,8 @@ A Namespace is an Element in a model that owns and/or imports a set of NamedElements that can be identified by name. " Class { - #name : #OPUMLNamespace, - #superclass : #OPUMLElement, + #name : 'OPUMLNamespace', + #superclass : 'OPUMLElement', #instVars : [ 'elementImports', 'importedMembers', @@ -12,26 +12,28 @@ Class { 'ownedRules', 'ownedMembers' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> elementImports [ "References the ElementImports owned by the Namespace." ^ elementImports ifNil: [ elementImports := OPUMLToManyLinks on: self identity opposite: #importingNamespace: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> elementImports: anElementImport [ "References the ElementImports owned by the Namespace." self elementImports @@ -39,7 +41,7 @@ OPUMLNamespace >> elementImports: anElementImport [ addAll: anElementImport ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamespace >> excludeCollisionsStub [ "The query excludeCollisions() excludes from a set of PackageableElements any that would not be distinguishable from each other in this Namespace." @@ -49,7 +51,7 @@ OPUMLNamespace >> excludeCollisionsStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamespace >> getNamesOfMemberStub [ "The query getNamesOfMember() gives a set of all of the names that a member would have in a Namespace, taking importing into account. In general a member can have multiple names in a Namespace if it is imported more than once with different aliases." @@ -68,7 +70,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamespace >> importMembersStub [ "The query importMembers() defines which of a set of PackageableElements are actually imported into the Namespace. This excludes hidden ones, i.e., those which have names that conflict with names of ownedMembers, and it also excludes PackageableElements that would have the indistinguishable names when imported." @@ -78,7 +80,7 @@ OPUMLNamespace >> importMembersStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamespace >> importedMemberStub [ "The importedMember property is derived as the PackageableElements that are members of this Namespace as a result of either PackageImports or ElementImports." @@ -88,44 +90,44 @@ OPUMLNamespace >> importedMemberStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> importedMembers [ "References the PackageableElements that are members of this Namespace as a result of either PackageImports or ElementImports." ^ importedMembers ifNil: [ importedMembers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> importedMembers: aPackageableElement [ "References the PackageableElements that are members of this Namespace as a result of either PackageImports or ElementImports." importedMembers := aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLNamespace >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLNamespace >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Namespace put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> members [ "A collection of NamedElements identifiable within the Namespace, either by being owned or by being introduced by importing or inheritance." ^ members ifNil: [ members := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> members: aNamedElement [ "A collection of NamedElements identifiable within the Namespace, either by being owned or by being introduced by importing or inheritance." members := aNamedElement ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLNamespace >> membersAreDistinguishableStub [ "The Boolean query membersAreDistinguishable() determines whether all of the Namespace's members are distinguishable within it." @@ -137,43 +139,43 @@ OPUMLNamespace >> membersAreDistinguishableStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> ownedMembers [ "A collection of NamedElements owned by the Namespace." ^ ownedMembers ifNil: [ ownedMembers := OPUMLToManyLinks on: self identity opposite: #namespace: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> ownedMembers: aNamedElement [ "A collection of NamedElements owned by the Namespace." self ownedMembers @@ -181,13 +183,13 @@ OPUMLNamespace >> ownedMembers: aNamedElement [ addAll: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> ownedRules [ "Specifies a set of Constraints owned by this Namespace." ^ ownedRules ifNil: [ ownedRules := OPUMLToManyLinks on: self identity opposite: #context: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> ownedRules: aConstraint [ "Specifies a set of Constraints owned by this Namespace." self ownedRules @@ -195,13 +197,13 @@ OPUMLNamespace >> ownedRules: aConstraint [ addAll: aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> packageImports [ "References the PackageImports owned by the Namespace." ^ packageImports ifNil: [ packageImports := OPUMLToManyLinks on: self identity opposite: #importingNamespace: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNamespace >> packageImports: aPackageImport [ "References the PackageImports owned by the Namespace." self packageImports @@ -209,22 +211,22 @@ OPUMLNamespace >> packageImports: aPackageImport [ addAll: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNamespace >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLNode.class.st b/repository/OP-UML-Metamodel/OPUMLNode.class.st index 87ff7ac..91403ee 100644 --- a/repository/OP-UML-Metamodel/OPUMLNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLNode.class.st @@ -2,160 +2,162 @@ A Node is computational resource upon which artifacts may be deployed for execution. Nodes can be interconnected through communication paths to define network structures. " Class { - #name : #OPUMLNode, - #superclass : #OPUMLElement, + #name : 'OPUMLNode', + #superclass : 'OPUMLElement', #instVars : [ 'nestedNodes' ], - #category : 'OP-UML-Metamodel-Deployments' + #category : 'OP-UML-Metamodel-Deployments', + #package : 'OP-UML-Metamodel', + #tag : 'Deployments' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLNode >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLNode >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLNode >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLNode >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLNode >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLNode >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLNode >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLNode >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLNode >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Class. @@ -163,7 +165,7 @@ OPUMLNode >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -181,389 +183,389 @@ OPUMLNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #Node put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLNode >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLNode >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNode >> nestedNodes [ "The Nodes that are defined (nested) within the Node." ^ nestedNodes ifNil: [ nestedNodes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLNode >> nestedNodes: aNode [ "The Nodes that are defined (nested) within the Node." nestedNodes := aNode ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLNode >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLNode >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLNode >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLNode >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLNode >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLNode >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLNode >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLNode >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLNode >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLNode >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLNode >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLNode >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLNode >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLNode >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLNode >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLNode >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLNode >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLNode >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLNode >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLNode >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLNode >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLObjectFlow.class.st b/repository/OP-UML-Metamodel/OPUMLObjectFlow.class.st index 2cbbfd0..34c8e39 100644 --- a/repository/OP-UML-Metamodel/OPUMLObjectFlow.class.st +++ b/repository/OP-UML-Metamodel/OPUMLObjectFlow.class.st @@ -2,85 +2,87 @@ An ObjectFlow is an ActivityEdge that is traversed by object tokens that may hold values. Object flows also support multicast/receive, token selection from object nodes, and transformation of tokens. " Class { - #name : #OPUMLObjectFlow, - #superclass : #OPUMLElement, + #name : 'OPUMLObjectFlow', + #superclass : 'OPUMLElement', #instVars : [ 'isMultireceive', 'selection', 'isMulticast', 'transformation' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> activity [ ^ (sharedGeneralizations at: #ActivityEdge) activity ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> activity: anActivity [ (sharedGeneralizations at: #ActivityEdge) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> guard [ ^ (sharedGeneralizations at: #ActivityEdge) guard ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> guard: aValueSpecification [ (sharedGeneralizations at: #ActivityEdge) guard: aValueSpecification ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> inGroups [ ^ (sharedGeneralizations at: #ActivityEdge) inGroups ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityEdge) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> inPartitions [ ^ (sharedGeneralizations at: #ActivityEdge) inPartitions ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityEdge) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityEdge) inStructuredNode ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityEdge) inStructuredNode: aStructuredActivityNode ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLObjectFlow >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ActivityEdge. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLObjectFlow >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -88,180 +90,180 @@ OPUMLObjectFlow >> initializeSharedGeneralizations [ sharedGeneralizations at: #ObjectFlow put: self. ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> interrupts [ ^ (sharedGeneralizations at: #ActivityEdge) interrupts ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> interrupts: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityEdge) interrupts: anInterruptibleActivityRegion ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectFlow >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectFlow >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> isMulticast [ "Indicates whether the objects in the ObjectFlow are passed by multicasting." ^ isMulticast ifNil: [ isMulticast := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> isMulticast: aBoolean [ "Indicates whether the objects in the ObjectFlow are passed by multicasting." isMulticast := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> isMultireceive [ "Indicates whether the objects in the ObjectFlow are gathered from respondents to multicasting." ^ isMultireceive ifNil: [ isMultireceive := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> isMultireceive: aBoolean [ "Indicates whether the objects in the ObjectFlow are gathered from respondents to multicasting." isMultireceive := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> redefinedEdges [ ^ (sharedGeneralizations at: #ActivityEdge) redefinedEdges ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> redefinedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityEdge) redefinedEdges: anActivityEdge ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectFlow >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectFlow >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectFlow >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectFlow >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> selection [ "A Behavior used to select tokens from a source ObjectNode." ^ selection ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> selection: aBehavior [ "A Behavior used to select tokens from a source ObjectNode." selection := aBehavior ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> source [ ^ (sharedGeneralizations at: #ActivityEdge) source ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> source: anActivityNode [ (sharedGeneralizations at: #ActivityEdge) source: anActivityNode ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> target [ ^ (sharedGeneralizations at: #ActivityEdge) target ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> target: anActivityNode [ (sharedGeneralizations at: #ActivityEdge) target: anActivityNode ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> transformation [ "A Behavior used to change or replace object tokens flowing along the ObjectFlow." ^ transformation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectFlow >> transformation: aBehavior [ "A Behavior used to change or replace object tokens flowing along the ObjectFlow." transformation := aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectFlow >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> weight [ ^ (sharedGeneralizations at: #ActivityEdge) weight ] -{ #category : #'accessing - ActivityEdge' } +{ #category : 'accessing - ActivityEdge' } OPUMLObjectFlow >> weight: aValueSpecification [ (sharedGeneralizations at: #ActivityEdge) weight: aValueSpecification ] diff --git a/repository/OP-UML-Metamodel/OPUMLObjectNode.class.st b/repository/OP-UML-Metamodel/OPUMLObjectNode.class.st index 1dc399b..54d936f 100644 --- a/repository/OP-UML-Metamodel/OPUMLObjectNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLObjectNode.class.st @@ -3,8 +3,8 @@ An ObjectNode is an abstract ActivityNode that may hold tokens within the object " Class { - #name : #OPUMLObjectNode, - #superclass : #OPUMLElement, + #name : 'OPUMLObjectNode', + #superclass : 'OPUMLElement', #instVars : [ 'selection', 'isControlType', @@ -12,92 +12,94 @@ Class { 'inStates', 'upperBound' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> inStates [ "The States required to be associated with the values held by tokens on this ObjectNode." ^ inStates ifNil: [ inStates := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> inStates: aState [ "The States required to be associated with the values held by tokens on this ObjectNode." inStates := aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLObjectNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TypedElement. @@ -105,7 +107,7 @@ OPUMLObjectNode >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLObjectNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -114,160 +116,160 @@ OPUMLObjectNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #ObjectNode put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> isControlType [ "Indicates whether the type of the ObjectNode is to be treated as representing control values that may traverse ControlFlows." ^ isControlType ifNil: [ isControlType := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> isControlType: aBoolean [ "Indicates whether the type of the ObjectNode is to be treated as representing control values that may traverse ControlFlows." isControlType := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> ordering [ "Indicates how the tokens held by the ObjectNode are ordered for selection to traverse ActivityEdges outgoing from the ObjectNode." ^ ordering ifNil: [ ordering := OPUMLObjectNodeOrderingKind new FIFO ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> ordering: anObjectNodeOrderingKind [ "Indicates how the tokens held by the ObjectNode are ordered for selection to traverse ActivityEdges outgoing from the ObjectNode." ordering := anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLObjectNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLObjectNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> selection [ "A Behavior used to select tokens to be offered on outgoing ActivityEdges." ^ selection ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> selection: aBehavior [ "A Behavior used to select tokens to be offered on outgoing ActivityEdges." selection := aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLObjectNode >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLObjectNode >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> upperBound [ "The maximum number of tokens that may be held by this ObjectNode. Tokens cannot flow into the ObjectNode if the upperBound is reached. If no upperBound is specified, then there is no limit on how many tokens the ObjectNode can hold." ^ upperBound ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNode >> upperBound: aValueSpecification [ "The maximum number of tokens that may be held by this ObjectNode. Tokens cannot flow into the ObjectNode if the upperBound is reached. If no upperBound is specified, then there is no limit on how many tokens the ObjectNode can hold." upperBound := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObjectNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLObjectNodeOrderingKind.class.st b/repository/OP-UML-Metamodel/OPUMLObjectNodeOrderingKind.class.st index 75dfb92..f651167 100644 --- a/repository/OP-UML-Metamodel/OPUMLObjectNodeOrderingKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLObjectNodeOrderingKind.class.st @@ -2,61 +2,63 @@ ObjectNodeOrderingKind is an enumeration indicating queuing order for offering the tokens held by an ObjectNode. " Class { - #name : #OPUMLObjectNodeOrderingKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Activities' + #name : 'OPUMLObjectNodeOrderingKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLObjectNodeOrderingKind class >> FIFO [ "Indicates that tokens are queued in a first in, first out manner." ^ #FIFO ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLObjectNodeOrderingKind class >> LIFO [ "Indicates that tokens are queued in a last in, first out manner." ^ #LIFO ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLObjectNodeOrderingKind class >> ordered [ "Indicates that tokens are ordered." ^ #ordered ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLObjectNodeOrderingKind class >> unordered [ "Indicates that tokens are unordered." ^ #unordered ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNodeOrderingKind >> FIFO [ "Indicates that tokens are queued in a first in, first out manner." ^ #FIFO ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNodeOrderingKind >> LIFO [ "Indicates that tokens are queued in a last in, first out manner." ^ #LIFO ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNodeOrderingKind >> ordered [ "Indicates that tokens are ordered." ^ #ordered ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLObjectNodeOrderingKind >> unordered [ "Indicates that tokens are unordered." ^ #unordered diff --git a/repository/OP-UML-Metamodel/OPUMLObservation.class.st b/repository/OP-UML-Metamodel/OPUMLObservation.class.st index 3e39c2f..35565bc 100644 --- a/repository/OP-UML-Metamodel/OPUMLObservation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLObservation.class.st @@ -2,29 +2,31 @@ Observation specifies a value determined by observing an event or events that occur relative to other model Elements. " Class { - #name : #OPUMLObservation, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Values' + #name : 'OPUMLObservation', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLObservation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #PackageableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLObservation >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -32,72 +34,72 @@ OPUMLObservation >> initializeSharedGeneralizations [ sharedGeneralizations at: #Observation put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLObservation >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLObservation >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLObservation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLObservation >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLObservation >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLObservation >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLObservation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLOccurrenceSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLOccurrenceSpecification.class.st index c97faf1..f7ee7ab 100644 --- a/repository/OP-UML-Metamodel/OPUMLOccurrenceSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOccurrenceSpecification.class.st @@ -2,139 +2,141 @@ An OccurrenceSpecification is the basic semantic unit of Interactions. The sequences of occurrences specified by them are the meanings of Interactions. " Class { - #name : #OPUMLOccurrenceSpecification, - #superclass : #OPUMLElement, + #name : 'OPUMLOccurrenceSpecification', + #superclass : 'OPUMLElement', #instVars : [ 'toBefores', 'covered', 'toAfters' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOccurrenceSpecification >> covered [ "References the Lifeline on which the OccurrenceSpecification appears." ^ covered ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOccurrenceSpecification >> covered: aLifeline [ "References the Lifeline on which the OccurrenceSpecification appears." covered := aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLOccurrenceSpecification >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOccurrenceSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOccurrenceSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). sharedGeneralizations at: #OccurrenceSpecification put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOccurrenceSpecification >> toAfters [ "References the GeneralOrderings that specify EventOcurrences that must occur after this OccurrenceSpecification." ^ toAfters ifNil: [ toAfters := OPUMLToManyLinks on: self identity opposite: #before: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOccurrenceSpecification >> toAfters: aGeneralOrdering [ "References the GeneralOrderings that specify EventOcurrences that must occur after this OccurrenceSpecification." self toAfters @@ -142,13 +144,13 @@ OPUMLOccurrenceSpecification >> toAfters: aGeneralOrdering [ addAll: aGeneralOrdering ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOccurrenceSpecification >> toBefores [ "References the GeneralOrderings that specify EventOcurrences that must occur before this OccurrenceSpecification." ^ toBefores ifNil: [ toBefores := OPUMLToManyLinks on: self identity opposite: #after: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOccurrenceSpecification >> toBefores: aGeneralOrdering [ "References the GeneralOrderings that specify EventOcurrences that must occur before this OccurrenceSpecification." self toBefores @@ -156,12 +158,12 @@ OPUMLOccurrenceSpecification >> toBefores: aGeneralOrdering [ addAll: aGeneralOrdering ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOccurrenceSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLOpaqueAction.class.st b/repository/OP-UML-Metamodel/OPUMLOpaqueAction.class.st index a5e0994..cbffd5a 100644 --- a/repository/OP-UML-Metamodel/OPUMLOpaqueAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOpaqueAction.class.st @@ -2,127 +2,129 @@ An OpaqueAction is an Action whose functionality is not specified within UML. " Class { - #name : #OPUMLOpaqueAction, - #superclass : #OPUMLElement, + #name : 'OPUMLOpaqueAction', + #superclass : 'OPUMLElement', #instVars : [ 'outputValues', 'bodies', 'inputValues', 'languages' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> bodies [ "Provides a textual specification of the functionality of the Action, in one or more languages other than UML." ^ bodies ifNil: [ bodies := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> bodies: aString [ "Provides a textual specification of the functionality of the Action, in one or more languages other than UML." bodies := aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLOpaqueAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLOpaqueAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOpaqueAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOpaqueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -132,188 +134,188 @@ OPUMLOpaqueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #OpaqueAction put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> inputValues [ "The InputPins providing inputs to the OpaqueAction." ^ inputValues ifNil: [ inputValues := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> inputValues: anInputPin [ "The InputPins providing inputs to the OpaqueAction." inputValues := anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> languages [ "If provided, a specification of the language used for each of the body Strings." ^ languages ifNil: [ languages := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> languages: aString [ "If provided, a specification of the language used for each of the body Strings." languages := aString ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> outputValues [ "The OutputPins on which the OpaqueAction provides outputs." ^ outputValues ifNil: [ outputValues := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueAction >> outputValues: anOutputPin [ "The OutputPins on which the OpaqueAction provides outputs." outputValues := anOutputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLOpaqueAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOpaqueAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLOpaqueBehavior.class.st b/repository/OP-UML-Metamodel/OPUMLOpaqueBehavior.class.st index 610f418..27b018c 100644 --- a/repository/OP-UML-Metamodel/OPUMLOpaqueBehavior.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOpaqueBehavior.class.st @@ -2,170 +2,172 @@ An OpaqueBehavior is a Behavior whose specification is given in a textual language other than UML. " Class { - #name : #OPUMLOpaqueBehavior, - #superclass : #OPUMLElement, + #name : 'OPUMLOpaqueBehavior', + #superclass : 'OPUMLElement', #instVars : [ 'bodies', 'languages' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLOpaqueBehavior >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLOpaqueBehavior >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueBehavior >> bodies [ "Specifies the behavior in one or more languages." ^ bodies ifNil: [ bodies := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueBehavior >> bodies: aString [ "Specifies the behavior in one or more languages." bodies := aString ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLOpaqueBehavior >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLOpaqueBehavior >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> context [ ^ (sharedGeneralizations at: #Behavior) context ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> context: aBehavioredClassifier [ (sharedGeneralizations at: #Behavior) context: aBehavioredClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLOpaqueBehavior >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOpaqueBehavior >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Behavior. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOpaqueBehavior >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -183,459 +185,459 @@ OPUMLOpaqueBehavior >> initializeSharedGeneralizations [ sharedGeneralizations at: #OpaqueBehavior put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLOpaqueBehavior >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLOpaqueBehavior >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueBehavior >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueBehavior >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> isReentrant [ ^ (sharedGeneralizations at: #Behavior) isReentrant ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> isReentrant: aBoolean [ (sharedGeneralizations at: #Behavior) isReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueBehavior >> languages [ "Languages the body strings use in the same order as the body strings." ^ languages ifNil: [ languages := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueBehavior >> languages: aString [ "Languages the body strings use in the same order as the body strings." languages := aString ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLOpaqueBehavior >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLOpaqueBehavior >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLOpaqueBehavior >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLOpaqueBehavior >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> ownedParameterSets [ ^ (sharedGeneralizations at: #Behavior) ownedParameterSets ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #Behavior) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> ownedParameters [ ^ (sharedGeneralizations at: #Behavior) ownedParameters ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> ownedParameters: aParameter [ (sharedGeneralizations at: #Behavior) ownedParameters: aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLOpaqueBehavior >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLOpaqueBehavior >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOpaqueBehavior >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOpaqueBehavior >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLOpaqueBehavior >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLOpaqueBehavior >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOpaqueBehavior >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLOpaqueBehavior >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLOpaqueBehavior >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLOpaqueBehavior >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> postconditions [ ^ (sharedGeneralizations at: #Behavior) postconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> postconditions: aConstraint [ (sharedGeneralizations at: #Behavior) postconditions: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> preconditions [ ^ (sharedGeneralizations at: #Behavior) preconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> preconditions: aConstraint [ (sharedGeneralizations at: #Behavior) preconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueBehavior >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> redefinedBehaviors [ ^ (sharedGeneralizations at: #Behavior) redefinedBehaviors ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> redefinedBehaviors: aBehavior [ (sharedGeneralizations at: #Behavior) redefinedBehaviors: aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueBehavior >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueBehavior >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueBehavior >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOpaqueBehavior >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLOpaqueBehavior >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLOpaqueBehavior >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> specification [ ^ (sharedGeneralizations at: #Behavior) specification ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLOpaqueBehavior >> specification: aBehavioralFeature [ (sharedGeneralizations at: #Behavior) specification: aBehavioralFeature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLOpaqueBehavior >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLOpaqueBehavior >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLOpaqueBehavior >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLOpaqueBehavior >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLOpaqueBehavior >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLOpaqueBehavior >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLOpaqueExpression.class.st b/repository/OP-UML-Metamodel/OPUMLOpaqueExpression.class.st index 209095a..ccc8cc4 100644 --- a/repository/OP-UML-Metamodel/OPUMLOpaqueExpression.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOpaqueExpression.class.st @@ -2,64 +2,66 @@ An OpaqueExpression is a ValueSpecification that specifies the computation of a collection of values either in terms of a UML Behavior or based on a textual statement in a language other than UML " Class { - #name : #OPUMLOpaqueExpression, - #superclass : #OPUMLElement, + #name : 'OPUMLOpaqueExpression', + #superclass : 'OPUMLElement', #instVars : [ 'behavior', 'bodies', 'languages', 'result' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> behavior [ "Specifies the behavior of the OpaqueExpression as a UML Behavior." ^ behavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> behavior: aBehavior [ "Specifies the behavior of the OpaqueExpression as a UML Behavior." behavior := aBehavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> bodies [ "A textual definition of the behavior of the OpaqueExpression, possibly in multiple languages." ^ bodies ifNil: [ bodies := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> bodies: aString [ "A textual definition of the behavior of the OpaqueExpression, possibly in multiple languages." bodies := aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOpaqueExpression >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOpaqueExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -69,17 +71,17 @@ OPUMLOpaqueExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #OpaqueExpression put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOpaqueExpression >> isIntegralStub [ "The query isIntegral() tells whether an expression is intended to produce an Integer." @@ -89,7 +91,7 @@ OPUMLOpaqueExpression >> isIntegralStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOpaqueExpression >> isNonNegativeStub [ "The query isNonNegative() tells whether an integer expression has a non-negative value." @@ -100,12 +102,12 @@ OPUMLOpaqueExpression >> isNonNegativeStub [ ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOpaqueExpression >> isPositiveStub [ "The query isPositive() tells whether an integer expression has a positive value." @@ -116,86 +118,86 @@ OPUMLOpaqueExpression >> isPositiveStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> languages [ "Specifies the languages used to express the textual bodies of the OpaqueExpression. Languages are matched to body Strings by order. The interpretation of the body depends on the languages. If the languages are unspecified, they may be implicit from the expression body or the context." ^ languages ifNil: [ languages := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> languages: aString [ "Specifies the languages used to express the textual bodies of the OpaqueExpression. Languages are matched to body Strings by order. The interpretation of the body depends on the languages. If the languages are unspecified, they may be implicit from the expression body or the context." languages := aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOpaqueExpression >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOpaqueExpression >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOpaqueExpression >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> result [ "If an OpaqueExpression is specified using a UML Behavior, then this refers to the single required return Parameter of that Behavior. When the Behavior completes execution, the values on this Parameter give the result of evaluating the OpaqueExpression." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOpaqueExpression >> result: aParameter [ "If an OpaqueExpression is specified using a UML Behavior, then this refers to the single required return Parameter of that Behavior. When the Behavior completes execution, the values on this Parameter give the result of evaluating the OpaqueExpression." result := aParameter ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOpaqueExpression >> resultStub [ "Derivation for OpaqueExpression::/result " @@ -209,37 +211,37 @@ endif)" ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOpaqueExpression >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOpaqueExpression >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLOpaqueExpression >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLOpaqueExpression >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLOpaqueExpression >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOpaqueExpression >> valueStub [ "The query value() gives an integer value for an expression intended to produce one." @@ -250,12 +252,12 @@ OPUMLOpaqueExpression >> valueStub [ ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLOpaqueExpression >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLOpaqueExpression >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLOperation.class.st b/repository/OP-UML-Metamodel/OPUMLOperation.class.st index 6d82ccd..b9538ad 100644 --- a/repository/OP-UML-Metamodel/OPUMLOperation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOperation.class.st @@ -2,8 +2,8 @@ An Operation is a BehavioralFeature of a Classifier that specifies the name, type, parameters, and constraints for invoking an associated Behavior. An Operation may invoke both the execution of method behaviors as well as other behavioral responses. Operation specializes TemplateableElement in order to support specification of template operations and bound operations. Operation specializes ParameterableElement to specify that an operation can be exposed as a formal template parameter, and provided as an actual parameter in a binding of a template. " Class { - #name : #OPUMLOperation, - #superclass : #OPUMLElement, + #name : 'OPUMLOperation', + #superclass : 'OPUMLElement', #instVars : [ 'datatype', 'lower', @@ -22,48 +22,50 @@ Class { 'raisedExceptions', 'preconditions' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> bodyCondition [ "An optional Constraint on the result values of an invocation of this Operation." ^ bodyCondition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> bodyCondition: aConstraint [ "An optional Constraint on the result values of an invocation of this Operation." bodyCondition := aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> concurrency [ ^ (sharedGeneralizations at: #BehavioralFeature) concurrency ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> concurrency: aCallConcurrencyKind [ (sharedGeneralizations at: #BehavioralFeature) concurrency: aCallConcurrencyKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> datatype [ "The DataType that owns this Operation, if any." ^ datatype ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> datatype: aDataType [ "The DataType that owns this Operation, if any." datatype := OPUMLToOneLink @@ -73,37 +75,37 @@ OPUMLOperation >> datatype: aDataType [ to: aDataType ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLOperation >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLOperation >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOperation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TemplateableElement. @@ -112,7 +114,7 @@ OPUMLOperation >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOperation >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -124,13 +126,13 @@ OPUMLOperation >> initializeSharedGeneralizations [ sharedGeneralizations at: #Operation put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> interface [ "The Interface that owns this Operation, if any." ^ interface ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> interface: anInterface [ "The Interface that owns this Operation, if any." interface := OPUMLToOneLink @@ -140,17 +142,17 @@ OPUMLOperation >> interface: anInterface [ to: anInterface ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> isAbstract [ ^ (sharedGeneralizations at: #BehavioralFeature) isAbstract ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> isAbstract: aBoolean [ (sharedGeneralizations at: #BehavioralFeature) isAbstract: aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> isConsistentWithStub [ "The query isConsistentWith() specifies, for any two Operations in a context in which redefinition is possible, whether redefinition would be consistent. A redefining operation is consistent with a redefined operation if it has the same number of owned parameters, and for each parameter the following holds: @@ -186,29 +188,29 @@ let op : Operation = redefiningElement.oclAsType(Operation) in ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOperation >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOperation >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> isOrdered [ "Specifies whether the return parameter is ordered or not, if present. This information is derived from the return result for this Operation." ^ isOrdered ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> isOrdered: aBoolean [ "Specifies whether the return parameter is ordered or not, if present. This information is derived from the return result for this Operation." isOrdered := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> isOrderedStub [ "If this operation has a return parameter, isOrdered equals the value of isOrdered for that parameter. Otherwise isOrdered is false." @@ -218,41 +220,41 @@ OPUMLOperation >> isOrderedStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> isQuery [ "Specifies whether an execution of the BehavioralFeature leaves the state of the system unchanged (isQuery=true) or whether side effects may occur (isQuery=false)." ^ isQuery ifNil: [ isQuery := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> isQuery: aBoolean [ "Specifies whether an execution of the BehavioralFeature leaves the state of the system unchanged (isQuery=true) or whether side effects may occur (isQuery=false)." isQuery := aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLOperation >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLOperation >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> isUnique [ "Specifies whether the return parameter is unique or not, if present. This information is derived from the return result for this Operation." ^ isUnique ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> isUnique: aBoolean [ "Specifies whether the return parameter is unique or not, if present. This information is derived from the return result for this Operation." isUnique := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> isUniqueStub [ "If this operation has a return parameter, isUnique equals the value of isUnique for that parameter. Otherwise isUnique is true." @@ -262,19 +264,19 @@ OPUMLOperation >> isUniqueStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> lower [ "Specifies the lower multiplicity of the return parameter, if present. This information is derived from the return result for this Operation." ^ lower ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> lower: anInteger [ "Specifies the lower multiplicity of the return parameter, if present. This information is derived from the return result for this Operation." lower := anInteger ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> lowerStub [ "If this operation has a return parameter, lower equals the value of lower for that parameter. Otherwise lower has no value." @@ -284,83 +286,83 @@ OPUMLOperation >> lowerStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> methods [ ^ (sharedGeneralizations at: #BehavioralFeature) methods ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> methods: aBehavior [ (sharedGeneralizations at: #BehavioralFeature) methods: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> ownedParameterSets [ ^ (sharedGeneralizations at: #BehavioralFeature) ownedParameterSets ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLOperation >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #BehavioralFeature) ownedParameterSets: aParameterSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> ownedParameters [ "The parameters owned by this Operation." ^ ownedParameters ifNil: [ ownedParameters := OPUMLToManyLinks on: self identity opposite: #operation: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> ownedParameters: aParameter [ "The parameters owned by this Operation." self ownedParameters @@ -368,33 +370,33 @@ OPUMLOperation >> ownedParameters: aParameter [ addAll: aParameter ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLOperation >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLOperation >> ownedTemplateSignature: aTemplateSignature [ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature: aTemplateSignature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> owningClass [ "The Class that owns this operation, if any." ^ owningClass ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> owningClass: aClass [ "The Class that owns this operation, if any." owningClass := OPUMLToOneLink @@ -404,105 +406,105 @@ OPUMLOperation >> owningClass: aClass [ to: aClass ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOperation >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLOperation >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLOperation >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> postconditions [ "An optional set of Constraints specifying the state of the system when the Operation is completed." ^ postconditions ifNil: [ postconditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> postconditions: aConstraint [ "An optional set of Constraints specifying the state of the system when the Operation is completed." postconditions := aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> preconditions [ "An optional set of Constraints on the state of the system when the Operation is invoked." ^ preconditions ifNil: [ preconditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> preconditions: aConstraint [ "An optional set of Constraints on the state of the system when the Operation is invoked." preconditions := aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> raisedExceptions [ "The Types representing exceptions that may be raised during an invocation of this operation." ^ raisedExceptions ifNil: [ raisedExceptions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> raisedExceptions: aType [ "The Types representing exceptions that may be raised during an invocation of this operation." raisedExceptions := aType ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOperation >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOperation >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> redefinedOperations [ "The Operations that are redefined by this Operation." ^ redefinedOperations ifNil: [ redefinedOperations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> redefinedOperations: anOperation [ "The Operations that are redefined by this Operation." redefinedOperations := anOperation ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOperation >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOperation >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> returnResultStub [ "The query returnResult() returns the set containing the return parameter of the Operation if one exists, otherwise, it returns an empty set" @@ -512,23 +514,23 @@ OPUMLOperation >> returnResultStub [ ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLOperation >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLOperation >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> templateParameter [ "The OperationTemplateParameter that exposes this element as a formal parameter." ^ templateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> templateParameter: anOperationTemplateParameter [ "The OperationTemplateParameter that exposes this element as a formal parameter." |anOldTemplateParameter| @@ -542,19 +544,19 @@ OPUMLOperation >> templateParameter: anOperationTemplateParameter [ to: templateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> type [ "The return type of the operation, if present. This information is derived from the return result for this Operation." ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> type: aType [ "The return type of the operation, if present. This information is derived from the return result for this Operation." type := aType ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> typeStub [ "If this operation has a return parameter, type equals the value of type for that parameter. Otherwise type has no value." @@ -564,19 +566,19 @@ OPUMLOperation >> typeStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> upper [ "The upper multiplicity of the return parameter, if present. This information is derived from the return result for this Operation." ^ upper ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperation >> upper: anUnlimitedNatural [ "The upper multiplicity of the return parameter, if present. This information is derived from the return result for this Operation." upper := anUnlimitedNatural ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLOperation >> upperStub [ "If this operation has a return parameter, upper equals the value of upper for that parameter. Otherwise upper has no value." @@ -586,12 +588,12 @@ OPUMLOperation >> upperStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOperation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLOperationTemplateParameter.class.st b/repository/OP-UML-Metamodel/OPUMLOperationTemplateParameter.class.st index 7f8578a..69f9d92 100644 --- a/repository/OP-UML-Metamodel/OPUMLOperationTemplateParameter.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOperationTemplateParameter.class.st @@ -2,64 +2,66 @@ An OperationTemplateParameter exposes an Operation as a formal parameter for a template. " Class { - #name : #OPUMLOperationTemplateParameter, - #superclass : #OPUMLElement, + #name : 'OPUMLOperationTemplateParameter', + #superclass : 'OPUMLElement', #instVars : [ 'parameteredElement' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> default [ ^ (sharedGeneralizations at: #TemplateParameter) default ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> default: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) default: aParameterableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOperationTemplateParameter >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TemplateParameter. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOperationTemplateParameter >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateParameter put: (OPUMLTemplateParameter newOnShared: sharedGeneralizations). sharedGeneralizations at: #OperationTemplateParameter put: self. ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> ownedDefault [ ^ (sharedGeneralizations at: #TemplateParameter) ownedDefault ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> ownedDefault: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) ownedDefault: aParameterableElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> ownedParameteredElement [ ^ (sharedGeneralizations at: #TemplateParameter) ownedParameteredElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> ownedParameteredElement: aParameterableElement [ (sharedGeneralizations at: #TemplateParameter) ownedParameteredElement: aParameterableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperationTemplateParameter >> parameteredElement [ "The Operation exposed by this OperationTemplateParameter." ^ parameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLOperationTemplateParameter >> parameteredElement: anOperation [ "The Operation exposed by this OperationTemplateParameter." |anOldParameteredElement| @@ -73,12 +75,12 @@ OPUMLOperationTemplateParameter >> parameteredElement: anOperation [ to: parameteredElement ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> signature [ ^ (sharedGeneralizations at: #TemplateParameter) signature ] -{ #category : #'accessing - TemplateParameter' } +{ #category : 'accessing - TemplateParameter' } OPUMLOperationTemplateParameter >> signature: aTemplateSignature [ (sharedGeneralizations at: #TemplateParameter) signature: aTemplateSignature ] diff --git a/repository/OP-UML-Metamodel/OPUMLOutputPin.class.st b/repository/OP-UML-Metamodel/OPUMLOutputPin.class.st index 41de9e6..fc0ba13 100644 --- a/repository/OP-UML-Metamodel/OPUMLOutputPin.class.st +++ b/repository/OP-UML-Metamodel/OPUMLOutputPin.class.st @@ -2,99 +2,101 @@ An OutputPin is a Pin that holds output values produced by an Action. " Class { - #name : #OPUMLOutputPin, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Actions' + #name : 'OPUMLOutputPin', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOutputPin >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Pin. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLOutputPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -106,232 +108,232 @@ OPUMLOutputPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #OutputPin put: self. ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLOutputPin >> isControl [ ^ (sharedGeneralizations at: #Pin) isControl ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLOutputPin >> isControl: aBoolean [ (sharedGeneralizations at: #Pin) isControl: aBoolean ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOutputPin >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOutputPin >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLOutputPin >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLOutputPin >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLOutputPin >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOutputPin >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOutputPin >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLOutputPin >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOutputPin >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLOutputPin >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLOutputPin >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLOutputPin >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLOutputPin >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLOutputPin >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLOutputPin >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLOutputPin >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLOutputPin >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLPackage.class.st b/repository/OP-UML-Metamodel/OPUMLPackage.class.st index b138f9d..4da3602 100644 --- a/repository/OP-UML-Metamodel/OPUMLPackage.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPackage.class.st @@ -4,8 +4,8 @@ Package specializes TemplateableElement and PackageableElement specializes Param A package is used to group elements, and provides a namespace for the grouped elements. " Class { - #name : #OPUMLPackage, - #superclass : #OPUMLElement, + #name : 'OPUMLPackage', + #superclass : 'OPUMLElement', #instVars : [ 'packagedElements', 'ownedStereotypes', @@ -16,22 +16,24 @@ Class { 'nestingPackage', 'URI' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> URI [ "Provides an identifier for the package that can be used for many purposes. A URI is the universally unique identification of the package following the IETF URI specification, RFC 2396 http://www.ietf.org/rfc/rfc2396.txt and it must comply with those syntax rules." ^ URI ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> URI: aString [ "Provides an identifier for the package that can be used for many purposes. A URI is the universally unique identification of the package following the IETF URI specification, RFC 2396 http://www.ietf.org/rfc/rfc2396.txt and it must comply with those syntax rules." URI := aString ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> allApplicableStereotypesStub [ "The query allApplicableStereotypes() returns all the directly or indirectly owned stereotypes, including stereotypes contained in sub-profiles." @@ -43,17 +45,17 @@ OPUMLPackage >> allApplicableStereotypesStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> containingProfileStub [ "The query containingProfile() returns the closest profile directly or indirectly containing this package (or this package itself, if it is a profile)." @@ -67,27 +69,27 @@ endif)" ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackage >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #PackageableElement. @@ -96,7 +98,7 @@ OPUMLPackage >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackage >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -106,7 +108,7 @@ OPUMLPackage >> initializeSharedGeneralizations [ sharedGeneralizations at: #Package put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> makesVisibleStub [ "The query makesVisible() defines whether a Package makes an element visible outside itself. Elements with no visibility and elements with public visibility are made visible." @@ -119,17 +121,17 @@ OPUMLPackage >> makesVisibleStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #operations } +{ #category : 'operations' } OPUMLPackage >> mustBeOwned [ "The query mustBeOwned() indicates whether elements of this type must have an owner." @@ -139,7 +141,7 @@ OPUMLPackage >> mustBeOwned [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> mustBeOwnedStub [ "The query mustBeOwned() indicates whether elements of this type must have an owner." @@ -149,37 +151,37 @@ OPUMLPackage >> mustBeOwnedStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #operations } +{ #category : 'operations' } OPUMLPackage >> nestedPackage [ "Derivation for Package::/nestedPackage " @@ -191,7 +193,7 @@ OPUMLPackage >> nestedPackage [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> nestedPackageStub [ "Derivation for Package::/nestedPackage " @@ -201,13 +203,13 @@ OPUMLPackage >> nestedPackageStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> nestedPackages [ "References the packaged elements that are Packages." ^ nestedPackages ifNil: [ nestedPackages := OPUMLToManyLinks on: self identity opposite: #nestingPackage: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> nestedPackages: aPackage [ "References the packaged elements that are Packages." self nestedPackages @@ -215,13 +217,13 @@ OPUMLPackage >> nestedPackages: aPackage [ addAll: aPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> nestingPackage [ "References the Package that owns this Package." ^ nestingPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> nestingPackage: aPackage [ "References the Package that owns this Package." nestingPackage := OPUMLToOneLink @@ -231,27 +233,27 @@ OPUMLPackage >> nestingPackage: aPackage [ to: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #operations } +{ #category : 'operations' } OPUMLPackage >> ownedStereotype [ "Derivation for Package::/ownedStereotype " @@ -263,7 +265,7 @@ OPUMLPackage >> ownedStereotype [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> ownedStereotypeStub [ "Derivation for Package::/ownedStereotype " @@ -273,29 +275,29 @@ OPUMLPackage >> ownedStereotypeStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> ownedStereotypes [ "References the Stereotypes that are owned by the Package." ^ ownedStereotypes ifNil: [ ownedStereotypes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> ownedStereotypes: aStereotype [ "References the Stereotypes that are owned by the Package." ownedStereotypes := aStereotype ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLPackage >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLPackage >> ownedTemplateSignature: aTemplateSignature [ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature: aTemplateSignature ] -{ #category : #operations } +{ #category : 'operations' } OPUMLPackage >> ownedType [ "Derivation for Package::/ownedType" @@ -307,7 +309,7 @@ OPUMLPackage >> ownedType [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> ownedTypeStub [ "Derivation for Package::/ownedType" @@ -317,13 +319,13 @@ OPUMLPackage >> ownedTypeStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> ownedTypes [ "References the packaged elements that are Types." ^ ownedTypes ifNil: [ ownedTypes := OPUMLToManyLinks on: self identity opposite: #package: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> ownedTypes: aType [ "References the packaged elements that are Types." self ownedTypes @@ -331,33 +333,33 @@ OPUMLPackage >> ownedTypes: aType [ addAll: aType ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackage >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackage >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPackage >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> packageMerges [ "References the PackageMerges that are owned by this Package." ^ packageMerges ifNil: [ packageMerges := OPUMLToManyLinks on: self identity opposite: #receivingPackage: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> packageMerges: aPackageMerge [ "References the PackageMerges that are owned by this Package." self packageMerges @@ -365,25 +367,25 @@ OPUMLPackage >> packageMerges: aPackageMerge [ addAll: aPackageMerge ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> packagedElements [ "Specifies the packageable elements that are owned by this Package." ^ packagedElements ifNil: [ packagedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> packagedElements: aPackageableElement [ "Specifies the packageable elements that are owned by this Package." packagedElements := aPackageableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> profileApplications [ "References the ProfileApplications that indicate which profiles have been applied to the Package." ^ profileApplications ifNil: [ profileApplications := OPUMLToManyLinks on: self identity opposite: #applyingPackage: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackage >> profileApplications: aProfileApplication [ "References the ProfileApplications that indicate which profiles have been applied to the Package." self profileApplications @@ -391,47 +393,47 @@ OPUMLPackage >> profileApplications: aProfileApplication [ addAll: aProfileApplication ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackage >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLPackage >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLPackage >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackage >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackage >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLPackage >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLPackage >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPackage >> visibleMembersStub [ "The query visibleMembers() defines which members of a Package can be accessed outside it." diff --git a/repository/OP-UML-Metamodel/OPUMLPackageImport.class.st b/repository/OP-UML-Metamodel/OPUMLPackageImport.class.st index e222e17..22e38a7 100644 --- a/repository/OP-UML-Metamodel/OPUMLPackageImport.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPackageImport.class.st @@ -2,35 +2,37 @@ A PackageImport is a Relationship that imports all the non-private members of a Package into the Namespace owning the PackageImport, so that those Elements may be referred to by their unqualified names in the importingNamespace. " Class { - #name : #OPUMLPackageImport, - #superclass : #OPUMLElement, + #name : 'OPUMLPackageImport', + #superclass : 'OPUMLElement', #instVars : [ 'importedPackage', 'importingNamespace', 'visibility' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageImport >> importedPackage [ "Specifies the Package whose members are imported into a Namespace." ^ importedPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageImport >> importedPackage: aPackage [ "Specifies the Package whose members are imported into a Namespace." importedPackage := aPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageImport >> importingNamespace [ "Specifies the Namespace that imports the members from a Package." ^ importingNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageImport >> importingNamespace: aNamespace [ "Specifies the Namespace that imports the members from a Package." importingNamespace := OPUMLToOneLink @@ -40,57 +42,57 @@ OPUMLPackageImport >> importingNamespace: aNamespace [ to: aNamespace ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackageImport >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackageImport >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #PackageImport put: self. ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLPackageImport >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLPackageImport >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageImport >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageImport >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageImport >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageImport >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageImport >> visibility [ "Specifies the visibility of the imported PackageableElements within the importingNamespace, i.e., whether imported Elements will in turn be visible to other Namespaces. If the PackageImport is public, the imported Elements will be visible outside the importingNamespace, while, if the PackageImport is private, they will not." ^ visibility ifNil: [ visibility := OPUMLVisibilityKind new public ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageImport >> visibility: aVisibilityKind [ "Specifies the visibility of the imported PackageableElements within the importingNamespace, i.e., whether imported Elements will in turn be visible to other Namespaces. If the PackageImport is public, the imported Elements will be visible outside the importingNamespace, while, if the PackageImport is private, they will not." visibility := aVisibilityKind diff --git a/repository/OP-UML-Metamodel/OPUMLPackageMerge.class.st b/repository/OP-UML-Metamodel/OPUMLPackageMerge.class.st index 056e1d7..121ff6d 100644 --- a/repository/OP-UML-Metamodel/OPUMLPackageMerge.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPackageMerge.class.st @@ -2,48 +2,50 @@ A package merge defines how the contents of one package are extended by the contents of another package. " Class { - #name : #OPUMLPackageMerge, - #superclass : #OPUMLElement, + #name : 'OPUMLPackageMerge', + #superclass : 'OPUMLElement', #instVars : [ 'receivingPackage', 'mergedPackage' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackageMerge >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackageMerge >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #PackageMerge put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageMerge >> mergedPackage [ "References the Package that is to be merged with the receiving package of the PackageMerge." ^ mergedPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageMerge >> mergedPackage: aPackage [ "References the Package that is to be merged with the receiving package of the PackageMerge." mergedPackage := aPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageMerge >> receivingPackage [ "References the Package that is being extended with the contents of the merged package of the PackageMerge." ^ receivingPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageMerge >> receivingPackage: aPackage [ "References the Package that is being extended with the contents of the merged package of the PackageMerge." receivingPackage := OPUMLToOneLink @@ -53,32 +55,32 @@ OPUMLPackageMerge >> receivingPackage: aPackage [ to: aPackage ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLPackageMerge >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLPackageMerge >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageMerge >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageMerge >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageMerge >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLPackageMerge >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] diff --git a/repository/OP-UML-Metamodel/OPUMLPackageableElement.class.st b/repository/OP-UML-Metamodel/OPUMLPackageableElement.class.st index 95d6dc8..8d25aa5 100644 --- a/repository/OP-UML-Metamodel/OPUMLPackageableElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPackageableElement.class.st @@ -2,25 +2,27 @@ A PackageableElement is a NamedElement that may be owned directly by a Package. A PackageableElement is also able to serve as the parameteredElement of a TemplateParameter. " Class { - #name : #OPUMLPackageableElement, - #superclass : #OPUMLElement, + #name : 'OPUMLPackageableElement', + #superclass : 'OPUMLElement', #instVars : [ 'visibility' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackageableElement >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ParameterableElement. @@ -28,80 +30,80 @@ OPUMLPackageableElement >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPackageableElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #PackageableElement put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackageableElement >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackageableElement >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPackageableElement >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackageableElement >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPackageableElement >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageableElement >> visibility [ "A PackageableElement must have a visibility specified if it is owned by a Namespace. The default visibility is public." ^ visibility ifNil: [ visibility := OPUMLVisibilityKind new public ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPackageableElement >> visibility: aVisibilityKind [ "A PackageableElement must have a visibility specified if it is owned by a Namespace. The default visibility is public." visibility := aVisibilityKind diff --git a/repository/OP-UML-Metamodel/OPUMLParameter.class.st b/repository/OP-UML-Metamodel/OPUMLParameter.class.st index 601c9ae..58cf517 100644 --- a/repository/OP-UML-Metamodel/OPUMLParameter.class.st +++ b/repository/OP-UML-Metamodel/OPUMLParameter.class.st @@ -2,8 +2,8 @@ A Parameter is a specification of an argument used to pass information into or out of an invocation of a BehavioralFeature. Parameters can be treated as ConnectableElements within Collaborations. " Class { - #name : #OPUMLParameter, - #superclass : #OPUMLElement, + #name : 'OPUMLParameter', + #superclass : 'OPUMLElement', #instVars : [ 'isStream', 'defaultValue', @@ -14,32 +14,34 @@ Class { 'operation', 'parameterSets' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> default [ "A String that represents a value to be used when no argument is supplied for the Parameter." ^ default ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> default: aString [ "A String that represents a value to be used when no argument is supplied for the Parameter." default := aString ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLParameter >> defaultStub [ "Derivation for Parameter::/default" @@ -49,53 +51,53 @@ OPUMLParameter >> defaultStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> defaultValue [ "Specifies a ValueSpecification that represents a value to be used when no argument is supplied for the Parameter." ^ defaultValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> defaultValue: aValueSpecification [ "Specifies a ValueSpecification that represents a value to be used when no argument is supplied for the Parameter." defaultValue := aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> direction [ "Indicates whether a parameter is being sent into or out of a behavioral element." ^ direction ifNil: [ direction := OPUMLParameterDirectionKind new in ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> direction: aParameterDirectionKind [ "Indicates whether a parameter is being sent into or out of a behavioral element." direction := aParameterDirectionKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> effect [ "Specifies the effect that executions of the owner of the Parameter have on objects passed in or out of the parameter." ^ effect ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> effect: aParameterEffectKind [ "Specifies the effect that executions of the owner of the Parameter have on objects passed in or out of the parameter." effect := aParameterEffectKind ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLParameter >> ends [ ^ (sharedGeneralizations at: #ConnectableElement) ends ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLParameter >> ends: aConnectorEnd [ (sharedGeneralizations at: #ConnectableElement) ends: aConnectorEnd ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLParameter >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MultiplicityElement. @@ -103,7 +105,7 @@ OPUMLParameter >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLParameter >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #TypedElement put: (OPUMLTypedElement newOnShared: sharedGeneralizations). @@ -113,117 +115,117 @@ OPUMLParameter >> initializeSharedGeneralizations [ sharedGeneralizations at: #Parameter put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> isException [ "Tells whether an output parameter may emit a value to the exclusion of the other outputs." ^ isException ifNil: [ isException := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> isException: aBoolean [ "Tells whether an output parameter may emit a value to the exclusion of the other outputs." isException := aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLParameter >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> isStream [ "Tells whether an input parameter may accept values while its behavior is executing, or whether an output parameter may post values while the behavior is executing." ^ isStream ifNil: [ isStream := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> isStream: aBoolean [ "Tells whether an input parameter may accept values while its behavior is executing, or whether an output parameter may post values while the behavior is executing." isStream := aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLParameter >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLParameter >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> operation [ "The Operation owning this parameter." ^ operation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> operation: anOperation [ "The Operation owning this parameter." operation := OPUMLToOneLink @@ -233,23 +235,23 @@ OPUMLParameter >> operation: anOperation [ to: anOperation ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLParameter >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLParameter >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> parameterSets [ "The ParameterSets containing the parameter. See ParameterSet." ^ parameterSets ifNil: [ parameterSets := OPUMLManyToManyLinks on: self identity opposite: #parameters ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameter >> parameterSets: aParameterSet [ "The ParameterSets containing the parameter. See ParameterSet." self parameterSets @@ -257,67 +259,67 @@ OPUMLParameter >> parameterSets: aParameterSet [ addAll: aParameterSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLParameter >> templateParameter [ ^ (sharedGeneralizations at: #ConnectableElement) templateParameter ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLParameter >> templateParameter: aConnectableElementTemplateParameter [ (sharedGeneralizations at: #ConnectableElement) templateParameter: aConnectableElementTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLParameter >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLParameter >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLParameter >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLParameter >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLParameter >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameter >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLParameterDirectionKind.class.st b/repository/OP-UML-Metamodel/OPUMLParameterDirectionKind.class.st index 56423dc..d351794 100644 --- a/repository/OP-UML-Metamodel/OPUMLParameterDirectionKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLParameterDirectionKind.class.st @@ -2,61 +2,63 @@ ParameterDirectionKind is an Enumeration that defines literals used to specify direction of parameters. " Class { - #name : #OPUMLParameterDirectionKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Classification' + #name : 'OPUMLParameterDirectionKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterDirectionKind class >> in [ "Indicates that Parameter values are passed in by the caller. " ^ #in ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterDirectionKind class >> inout [ "Indicates that Parameter values are passed in by the caller and (possibly different) values passed out to the caller." ^ #inout ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterDirectionKind class >> out [ "Indicates that Parameter values are passed out to the caller." ^ #out ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterDirectionKind class >> return [ "Indicates that Parameter values are passed as return values back to the caller." ^ #return ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterDirectionKind >> in [ "Indicates that Parameter values are passed in by the caller. " ^ #in ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterDirectionKind >> inout [ "Indicates that Parameter values are passed in by the caller and (possibly different) values passed out to the caller." ^ #inout ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterDirectionKind >> out [ "Indicates that Parameter values are passed out to the caller." ^ #out ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterDirectionKind >> return [ "Indicates that Parameter values are passed as return values back to the caller." ^ #return diff --git a/repository/OP-UML-Metamodel/OPUMLParameterEffectKind.class.st b/repository/OP-UML-Metamodel/OPUMLParameterEffectKind.class.st index 7c021a7..264e77f 100644 --- a/repository/OP-UML-Metamodel/OPUMLParameterEffectKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLParameterEffectKind.class.st @@ -2,61 +2,63 @@ ParameterEffectKind is an Enumeration that indicates the effect of a Behavior on values passed in or out of its parameters. " Class { - #name : #OPUMLParameterEffectKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-Classification' + #name : 'OPUMLParameterEffectKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterEffectKind class >> create [ "Indicates that the behavior creates values." ^ #create ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterEffectKind class >> delete [ "Indicates objects that are values of the parameter do not exist after executions of the behavior are finished." ^ #delete ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterEffectKind class >> read [ "Indicates objects that are values of the parameter have values of their properties, or links in which they participate, or their classifiers retrieved during executions of the behavior." ^ #read ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLParameterEffectKind class >> update [ "Indicates objects that are values of the parameter have values of their properties, or links in which they participate, or their classification changed during executions of the behavior." ^ #update ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterEffectKind >> create [ "Indicates that the behavior creates values." ^ #create ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterEffectKind >> delete [ "Indicates objects that are values of the parameter do not exist after executions of the behavior are finished." ^ #delete ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterEffectKind >> read [ "Indicates objects that are values of the parameter have values of their properties, or links in which they participate, or their classifiers retrieved during executions of the behavior." ^ #read ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterEffectKind >> update [ "Indicates objects that are values of the parameter have values of their properties, or links in which they participate, or their classification changed during executions of the behavior." ^ #update diff --git a/repository/OP-UML-Metamodel/OPUMLParameterSet.class.st b/repository/OP-UML-Metamodel/OPUMLParameterSet.class.st index ca84658..3fbb005 100644 --- a/repository/OP-UML-Metamodel/OPUMLParameterSet.class.st +++ b/repository/OP-UML-Metamodel/OPUMLParameterSet.class.st @@ -2,87 +2,89 @@ A ParameterSet designates alternative sets of inputs or outputs that a Behavior may use. " Class { - #name : #OPUMLParameterSet, - #superclass : #OPUMLElement, + #name : 'OPUMLParameterSet', + #superclass : 'OPUMLElement', #instVars : [ 'conditions', 'parameters' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterSet >> conditions [ "A constraint that should be satisfied for the owner of the Parameters in an input ParameterSet to start execution using the values provided for those Parameters, or the owner of the Parameters in an output ParameterSet to end execution providing the values for those Parameters, if all preconditions and conditions on input ParameterSets were satisfied." ^ conditions ifNil: [ conditions := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterSet >> conditions: aConstraint [ "A constraint that should be satisfied for the owner of the Parameters in an input ParameterSet to start execution using the values provided for those Parameters, or the owner of the Parameters in an output ParameterSet to end execution providing the values for those Parameters, if all preconditions and conditions on input ParameterSets were satisfied." conditions := aConstraint ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLParameterSet >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLParameterSet >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterSet put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterSet >> parameters [ "Parameters in the ParameterSet." ^ parameters ifNil: [ parameters := OPUMLManyToManyLinks on: self identity opposite: #parameterSets ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterSet >> parameters: aParameter [ "Parameters in the ParameterSet." self parameters @@ -90,22 +92,22 @@ OPUMLParameterSet >> parameters: aParameter [ addAll: aParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLParameterSet >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLParameterableElement.class.st b/repository/OP-UML-Metamodel/OPUMLParameterableElement.class.st index 520b111..c31b642 100644 --- a/repository/OP-UML-Metamodel/OPUMLParameterableElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLParameterableElement.class.st @@ -2,27 +2,29 @@ A ParameterableElement is an Element that can be exposed as a formal TemplateParameter for a template, or specified as an actual parameter in a binding of a template. " Class { - #name : #OPUMLParameterableElement, - #superclass : #OPUMLElement, + #name : 'OPUMLParameterableElement', + #superclass : 'OPUMLElement', #instVars : [ 'owningTemplateParameter', 'templateParameter' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLParameterableElement >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLParameterableElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLParameterableElement >> isCompatibleWithStub [ "The query isCompatibleWith() determines if this ParameterableElement is compatible with the specified ParameterableElement. By default, this ParameterableElement is compatible with another ParameterableElement p if the kind of this ParameterableElement is the same as or a subtype of the kind of p. Subclasses of ParameterableElement should override this operation to specify different compatibility constraints." @@ -32,7 +34,7 @@ OPUMLParameterableElement >> isCompatibleWithStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLParameterableElement >> isTemplateParameterStub [ "The query isTemplateParameter() determines if this ParameterableElement is exposed as a formal TemplateParameter." @@ -42,13 +44,13 @@ OPUMLParameterableElement >> isTemplateParameterStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterableElement >> owningTemplateParameter [ "The formal TemplateParameter that owns this ParameterableElement." ^ owningTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterableElement >> owningTemplateParameter: aTemplateParameter [ "The formal TemplateParameter that owns this ParameterableElement." |anOldOwningTemplateParameter| @@ -62,13 +64,13 @@ OPUMLParameterableElement >> owningTemplateParameter: aTemplateParameter [ to: owningTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterableElement >> templateParameter [ "The TemplateParameter that exposes this ParameterableElement as a formal parameter." ^ templateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLParameterableElement >> templateParameter: aTemplateParameter [ "The TemplateParameter that exposes this ParameterableElement as a formal parameter." |anOldTemplateParameter| diff --git a/repository/OP-UML-Metamodel/OPUMLPartDecomposition.class.st b/repository/OP-UML-Metamodel/OPUMLPartDecomposition.class.st index ee1d5bd..1b019fa 100644 --- a/repository/OP-UML-Metamodel/OPUMLPartDecomposition.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPartDecomposition.class.st @@ -2,89 +2,91 @@ A PartDecomposition is a description of the internal Interactions of one Lifeline relative to an Interaction. " Class { - #name : #OPUMLPartDecomposition, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Interactions' + #name : 'OPUMLPartDecomposition', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> actualGates [ ^ (sharedGeneralizations at: #InteractionUse) actualGates ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> actualGates: aGate [ (sharedGeneralizations at: #InteractionUse) actualGates: aGate ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> arguments [ ^ (sharedGeneralizations at: #InteractionUse) arguments ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> arguments: aValueSpecification [ (sharedGeneralizations at: #InteractionUse) arguments: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLPartDecomposition >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPartDecomposition >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionUse. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPartDecomposition >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). @@ -92,82 +94,82 @@ OPUMLPartDecomposition >> initializeSharedGeneralizations [ sharedGeneralizations at: #PartDecomposition put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> refersTo [ ^ (sharedGeneralizations at: #InteractionUse) refersTo ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> refersTo: anInteraction [ (sharedGeneralizations at: #InteractionUse) refersTo: anInteraction ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> returnValue [ ^ (sharedGeneralizations at: #InteractionUse) returnValue ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> returnValue: aValueSpecification [ (sharedGeneralizations at: #InteractionUse) returnValue: aValueSpecification ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> returnValueRecipient [ ^ (sharedGeneralizations at: #InteractionUse) returnValueRecipient ] -{ #category : #'accessing - InteractionUse' } +{ #category : 'accessing - InteractionUse' } OPUMLPartDecomposition >> returnValueRecipient: aProperty [ (sharedGeneralizations at: #InteractionUse) returnValueRecipient: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPartDecomposition >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLPin.class.st b/repository/OP-UML-Metamodel/OPUMLPin.class.st index 9fe955d..94dd376 100644 --- a/repository/OP-UML-Metamodel/OPUMLPin.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPin.class.st @@ -2,95 +2,97 @@ A Pin is an ObjectNode and MultiplicityElement that provides input values to an Action or accepts output values from an Action. " Class { - #name : #OPUMLPin, - #superclass : #OPUMLElement, + #name : 'OPUMLPin', + #superclass : 'OPUMLElement', #instVars : [ 'isControl' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPin >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ObjectNode. @@ -98,7 +100,7 @@ OPUMLPin >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -109,234 +111,234 @@ OPUMLPin >> initializeSharedGeneralizations [ sharedGeneralizations at: #Pin put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPin >> isControl [ "Indicates whether the Pin provides data to the Action or just controls how the Action executes." ^ isControl ifNil: [ isControl := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPin >> isControl: aBoolean [ "Indicates whether the Pin provides data to the Action or just controls how the Action executes." isControl := aBoolean ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPin >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPin >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPin >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPin >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPin >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPin >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPin >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLPin >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPin >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPin >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLPin >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLPin >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPin >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPin >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLPin >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPin >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPin >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLPort.class.st b/repository/OP-UML-Metamodel/OPUMLPort.class.st index bac9e53..03dec5b 100644 --- a/repository/OP-UML-Metamodel/OPUMLPort.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPort.class.st @@ -2,8 +2,8 @@ A Port is a property of an EncapsulatedClassifier that specifies a distinct interaction point between that EncapsulatedClassifier and its environment or between the (behavior of the) EncapsulatedClassifier and its internal parts. Ports are connected to Properties of the EncapsulatedClassifier by Connectors through which requests can be made to invoke BehavioralFeatures. A Port may specify the services an EncapsulatedClassifier provides (offers) to its environment as well as the services that an EncapsulatedClassifier expects (requires) of its environment. A Port may have an associated ProtocolStateMachine. " Class { - #name : #OPUMLPort, - #superclass : #OPUMLElement, + #name : 'OPUMLPort', + #superclass : 'OPUMLElement', #instVars : [ 'isBehavior', 'requireds', @@ -13,40 +13,42 @@ Class { 'isConjugated', 'provideds' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> aggregation [ ^ (sharedGeneralizations at: #Property) aggregation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> aggregation: anAggregationKind [ (sharedGeneralizations at: #Property) aggregation: anAggregationKind ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> association [ ^ (sharedGeneralizations at: #Property) association ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> association: anAssociation [ (sharedGeneralizations at: #Property) association: anAssociation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> associationEnd [ ^ (sharedGeneralizations at: #Property) associationEnd ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> associationEnd: aProperty [ (sharedGeneralizations at: #Property) associationEnd: aProperty ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPort >> basicProvidedStub [ "The union of the sets of Interfaces realized by the type of the Port and its supertypes, or directly the type of the Port if the Port is typed by an Interface." @@ -59,7 +61,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPort >> basicRequiredStub [ "The union of the sets of Interfaces used by the type of the Port and its supertypes." @@ -69,84 +71,84 @@ OPUMLPort >> basicRequiredStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> datatype [ ^ (sharedGeneralizations at: #Property) datatype ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> datatype: aDataType [ (sharedGeneralizations at: #Property) datatype: aDataType ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> defaultValue [ ^ (sharedGeneralizations at: #Property) defaultValue ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> defaultValue: aValueSpecification [ (sharedGeneralizations at: #Property) defaultValue: aValueSpecification ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLPort >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLPort >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLPort >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLPort >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLPort >> ends [ ^ (sharedGeneralizations at: #ConnectableElement) ends ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLPort >> ends: aConnectorEnd [ (sharedGeneralizations at: #ConnectableElement) ends: aConnectorEnd ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLPort >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLPort >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPort >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Property. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPort >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -161,260 +163,260 @@ OPUMLPort >> initializeSharedGeneralizations [ sharedGeneralizations at: #Port put: self. ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> interface [ ^ (sharedGeneralizations at: #Property) interface ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> interface: anInterface [ (sharedGeneralizations at: #Property) interface: anInterface ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> isBehavior [ "Specifies whether requests arriving at this Port are sent to the classifier behavior of this EncapsulatedClassifier. Such a Port is referred to as a behavior Port. Any invocation of a BehavioralFeature targeted at a behavior Port will be handled by the instance of the owning EncapsulatedClassifier itself, rather than by any instances that it may contain." ^ isBehavior ifNil: [ isBehavior := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> isBehavior: aBoolean [ "Specifies whether requests arriving at this Port are sent to the classifier behavior of this EncapsulatedClassifier. Such a Port is referred to as a behavior Port. Any invocation of a BehavioralFeature targeted at a behavior Port will be handled by the instance of the owning EncapsulatedClassifier itself, rather than by any instances that it may contain." isBehavior := aBoolean ] -{ #category : #'operations - Property' } +{ #category : 'operations - Property' } OPUMLPort >> isComposite [ ^ (sharedGeneralizations at: #Property) isComposite ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isComposite: aBoolean [ (sharedGeneralizations at: #Property) isComposite: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> isConjugated [ "Specifies the way that the provided and required Interfaces are derived from the Port’s Type." ^ isConjugated ifNil: [ isConjugated := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> isConjugated: aBoolean [ "Specifies the way that the provided and required Interfaces are derived from the Port’s Type." isConjugated := aBoolean ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isDerived [ ^ (sharedGeneralizations at: #Property) isDerived ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isDerived: aBoolean [ (sharedGeneralizations at: #Property) isDerived: aBoolean ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isDerivedUnion [ ^ (sharedGeneralizations at: #Property) isDerivedUnion ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isDerivedUnion: aBoolean [ (sharedGeneralizations at: #Property) isDerivedUnion: aBoolean ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isID [ ^ (sharedGeneralizations at: #Property) isID ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> isID: aBoolean [ (sharedGeneralizations at: #Property) isID: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPort >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPort >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPort >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'operations - Property' } +{ #category : 'operations - Property' } OPUMLPort >> isNavigable [ ^ (sharedGeneralizations at: #Property) isNavigable ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - StructuralFeature' } +{ #category : 'accessing - StructuralFeature' } OPUMLPort >> isReadOnly [ ^ (sharedGeneralizations at: #StructuralFeature) isReadOnly ] -{ #category : #'accessing - StructuralFeature' } +{ #category : 'accessing - StructuralFeature' } OPUMLPort >> isReadOnly: aBoolean [ (sharedGeneralizations at: #StructuralFeature) isReadOnly: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> isService [ "If true, indicates that this Port is used to provide the published functionality of an EncapsulatedClassifier. If false, this Port is used to implement the EncapsulatedClassifier but is not part of the essential externally-visible functionality of the EncapsulatedClassifier and can, therefore, be altered or deleted along with the internal implementation of the EncapsulatedClassifier and other properties that are considered part of its implementation." ^ isService ifNil: [ isService := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> isService: aBoolean [ "If true, indicates that this Port is used to provide the published functionality of an EncapsulatedClassifier. If false, this Port is used to implement the EncapsulatedClassifier but is not part of the essential externally-visible functionality of the EncapsulatedClassifier and can, therefore, be altered or deleted along with the internal implementation of the EncapsulatedClassifier and other properties that are considered part of its implementation." isService := aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLPort >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLPort >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPort >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPort >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - Property' } +{ #category : 'operations - Property' } OPUMLPort >> opposite [ ^ (sharedGeneralizations at: #Property) opposite ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> opposite: aProperty [ (sharedGeneralizations at: #Property) opposite: aProperty ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> owningAssociation [ ^ (sharedGeneralizations at: #Property) owningAssociation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> owningAssociation: anAssociation [ (sharedGeneralizations at: #Property) owningAssociation: anAssociation ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> owningClass [ ^ (sharedGeneralizations at: #Property) owningClass ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> owningClass: aClass [ (sharedGeneralizations at: #Property) owningClass: aClass ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPort >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPort >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> protocol [ "An optional ProtocolStateMachine which describes valid interactions at this interaction point." ^ protocol ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> protocol: aProtocolStateMachine [ "An optional ProtocolStateMachine which describes valid interactions at this interaction point." protocol := aProtocolStateMachine ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPort >> providedStub [ "Derivation for Port::/provided" @@ -424,81 +426,81 @@ OPUMLPort >> providedStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> provideds [ "The Interfaces specifying the set of Operations and Receptions that the EncapsulatedCclassifier offers to its environment via this Port, and which it will handle either directly or by forwarding it to a part of its internal structure. This association is derived according to the value of isConjugated. If isConjugated is false, provided is derived as the union of the sets of Interfaces realized by the type of the port and its supertypes, or directly from the type of the Port if the Port is typed by an Interface. If isConjugated is true, it is derived as the union of the sets of Interfaces used by the type of the Port and its supertypes." ^ provideds ifNil: [ provideds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> provideds: anInterface [ "The Interfaces specifying the set of Operations and Receptions that the EncapsulatedCclassifier offers to its environment via this Port, and which it will handle either directly or by forwarding it to a part of its internal structure. This association is derived according to the value of isConjugated. If isConjugated is false, provided is derived as the union of the sets of Interfaces realized by the type of the port and its supertypes, or directly from the type of the Port if the Port is typed by an Interface. If isConjugated is true, it is derived as the union of the sets of Interfaces used by the type of the Port and its supertypes." provideds := anInterface ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> qualifiers [ ^ (sharedGeneralizations at: #Property) qualifiers ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> qualifiers: aProperty [ (sharedGeneralizations at: #Property) qualifiers: aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPort >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPort >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> redefinedPorts [ "A Port may be redefined when its containing EncapsulatedClassifier is specialized. The redefining Port may have additional Interfaces to those that are associated with the redefined Port or it may replace an Interface by one of its subtypes." ^ redefinedPorts ifNil: [ redefinedPorts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> redefinedPorts: aPort [ "A Port may be redefined when its containing EncapsulatedClassifier is specialized. The redefining Port may have additional Interfaces to those that are associated with the redefined Port or it may replace an Interface by one of its subtypes." redefinedPorts := aPort ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> redefinedProperties [ ^ (sharedGeneralizations at: #Property) redefinedProperties ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> redefinedProperties: aProperty [ (sharedGeneralizations at: #Property) redefinedProperties: aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPort >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPort >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLPort >> requiredStub [ "Derivation for Port::/required" @@ -508,79 +510,79 @@ OPUMLPort >> requiredStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> requireds [ "The Interfaces specifying the set of Operations and Receptions that the EncapsulatedCassifier expects its environment to handle via this port. This association is derived according to the value of isConjugated. If isConjugated is false, required is derived as the union of the sets of Interfaces used by the type of the Port and its supertypes. If isConjugated is true, it is derived as the union of the sets of Interfaces realized by the type of the Port and its supertypes, or directly from the type of the Port if the Port is typed by an Interface." ^ requireds ifNil: [ requireds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPort >> requireds: anInterface [ "The Interfaces specifying the set of Operations and Receptions that the EncapsulatedCassifier expects its environment to handle via this port. This association is derived according to the value of isConjugated. If isConjugated is false, required is derived as the union of the sets of Interfaces used by the type of the Port and its supertypes. If isConjugated is true, it is derived as the union of the sets of Interfaces realized by the type of the Port and its supertypes, or directly from the type of the Port if the Port is typed by an Interface." requireds := anInterface ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> subsettedProperties [ ^ (sharedGeneralizations at: #Property) subsettedProperties ] -{ #category : #'accessing - Property' } +{ #category : 'accessing - Property' } OPUMLPort >> subsettedProperties: aProperty [ (sharedGeneralizations at: #Property) subsettedProperties: aProperty ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLPort >> templateParameter [ ^ (sharedGeneralizations at: #ConnectableElement) templateParameter ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLPort >> templateParameter: aConnectableElementTemplateParameter [ (sharedGeneralizations at: #ConnectableElement) templateParameter: aConnectableElementTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLPort >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLPort >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPort >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLPort >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLPort >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPort >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLPrimitiveType.class.st b/repository/OP-UML-Metamodel/OPUMLPrimitiveType.class.st index 4f2a0c4..cd853a4 100644 --- a/repository/OP-UML-Metamodel/OPUMLPrimitiveType.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPrimitiveType.class.st @@ -2,124 +2,126 @@ A PrimitiveType defines a predefined DataType, without any substructure. A PrimitiveType may have an algebra and operations defined outside of UML, for example, mathematically. " Class { - #name : #OPUMLPrimitiveType, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #name : 'OPUMLPrimitiveType', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLPrimitiveType >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLPrimitiveType >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLPrimitiveType >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPrimitiveType >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DataType. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPrimitiveType >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -133,277 +135,277 @@ OPUMLPrimitiveType >> initializeSharedGeneralizations [ sharedGeneralizations at: #PrimitiveType put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPrimitiveType >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPrimitiveType >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLPrimitiveType >> ownedAttributes [ ^ (sharedGeneralizations at: #DataType) ownedAttributes ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLPrimitiveType >> ownedAttributes: aProperty [ (sharedGeneralizations at: #DataType) ownedAttributes: aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLPrimitiveType >> ownedOperations [ ^ (sharedGeneralizations at: #DataType) ownedOperations ] -{ #category : #'accessing - DataType' } +{ #category : 'accessing - DataType' } OPUMLPrimitiveType >> ownedOperations: anOperation [ (sharedGeneralizations at: #DataType) ownedOperations: anOperation ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPrimitiveType >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLPrimitiveType >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLPrimitiveType >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLPrimitiveType >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLPrimitiveType >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLPrimitiveType >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPrimitiveType >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPrimitiveType >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPrimitiveType >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPrimitiveType >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLPrimitiveType >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLPrimitiveType >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLPrimitiveType >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLPrimitiveType >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLPrimitiveType >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLPrimitiveType >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLProfile.class.st b/repository/OP-UML-Metamodel/OPUMLProfile.class.st index 2d8ea7c..61118dc 100644 --- a/repository/OP-UML-Metamodel/OPUMLProfile.class.st +++ b/repository/OP-UML-Metamodel/OPUMLProfile.class.st @@ -2,63 +2,65 @@ A profile defines limited extensions to a reference metamodel with the purpose of adapting the metamodel to a specific platform or domain. " Class { - #name : #OPUMLProfile, - #superclass : #OPUMLElement, + #name : 'OPUMLProfile', + #superclass : 'OPUMLElement', #instVars : [ 'metaclassReferences', 'metamodelReferences' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> URI [ ^ (sharedGeneralizations at: #Package) URI ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> URI: aString [ (sharedGeneralizations at: #Package) URI: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProfile >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Package. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProfile >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -69,246 +71,246 @@ OPUMLProfile >> initializeSharedGeneralizations [ sharedGeneralizations at: #Profile put: self. ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfile >> metaclassReferences [ "References a metaclass that may be extended." ^ metaclassReferences ifNil: [ metaclassReferences := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfile >> metaclassReferences: anElementImport [ "References a metaclass that may be extended." metaclassReferences := anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfile >> metamodelReferences [ "References a package containing (directly or indirectly) metaclasses that may be extended." ^ metamodelReferences ifNil: [ metamodelReferences := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfile >> metamodelReferences: aPackageImport [ "References a package containing (directly or indirectly) metaclasses that may be extended." metamodelReferences := aPackageImport ] -{ #category : #'operations - Package' } +{ #category : 'operations - Package' } OPUMLProfile >> mustBeOwned [ ^ (sharedGeneralizations at: #Package) mustBeOwned ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - Package' } +{ #category : 'operations - Package' } OPUMLProfile >> nestedPackage [ ^ (sharedGeneralizations at: #Package) nestedPackage ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> nestedPackages [ ^ (sharedGeneralizations at: #Package) nestedPackages ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> nestedPackages: aPackage [ (sharedGeneralizations at: #Package) nestedPackages: aPackage ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> nestingPackage [ ^ (sharedGeneralizations at: #Package) nestingPackage ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> nestingPackage: aPackage [ (sharedGeneralizations at: #Package) nestingPackage: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'operations - Package' } +{ #category : 'operations - Package' } OPUMLProfile >> ownedStereotype [ ^ (sharedGeneralizations at: #Package) ownedStereotype ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> ownedStereotypes [ ^ (sharedGeneralizations at: #Package) ownedStereotypes ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> ownedStereotypes: aStereotype [ (sharedGeneralizations at: #Package) ownedStereotypes: aStereotype ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLProfile >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLProfile >> ownedTemplateSignature: aTemplateSignature [ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature: aTemplateSignature ] -{ #category : #'operations - Package' } +{ #category : 'operations - Package' } OPUMLProfile >> ownedType [ ^ (sharedGeneralizations at: #Package) ownedType ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> ownedTypes [ ^ (sharedGeneralizations at: #Package) ownedTypes ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> ownedTypes: aType [ (sharedGeneralizations at: #Package) ownedTypes: aType ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProfile >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProfile >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProfile >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> packageMerges [ ^ (sharedGeneralizations at: #Package) packageMerges ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> packageMerges: aPackageMerge [ (sharedGeneralizations at: #Package) packageMerges: aPackageMerge ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> packagedElements [ ^ (sharedGeneralizations at: #Package) packagedElements ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> packagedElements: aPackageableElement [ (sharedGeneralizations at: #Package) packagedElements: aPackageableElement ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> profileApplications [ ^ (sharedGeneralizations at: #Package) profileApplications ] -{ #category : #'accessing - Package' } +{ #category : 'accessing - Package' } OPUMLProfile >> profileApplications: aProfileApplication [ (sharedGeneralizations at: #Package) profileApplications: aProfileApplication ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProfile >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLProfile >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLProfile >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProfile >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProfile >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLProfile >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLProfile >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLProfileApplication.class.st b/repository/OP-UML-Metamodel/OPUMLProfileApplication.class.st index cd97843..f62e640 100644 --- a/repository/OP-UML-Metamodel/OPUMLProfileApplication.class.st +++ b/repository/OP-UML-Metamodel/OPUMLProfileApplication.class.st @@ -2,35 +2,37 @@ A profile application is used to show which profiles have been applied to a package. " Class { - #name : #OPUMLProfileApplication, - #superclass : #OPUMLElement, + #name : 'OPUMLProfileApplication', + #superclass : 'OPUMLElement', #instVars : [ 'applyingPackage', 'isStrict', 'appliedProfile' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfileApplication >> appliedProfile [ "References the Profiles that are applied to a Package through this ProfileApplication." ^ appliedProfile ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfileApplication >> appliedProfile: aProfile [ "References the Profiles that are applied to a Package through this ProfileApplication." appliedProfile := aProfile ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfileApplication >> applyingPackage [ "The package that owns the profile application." ^ applyingPackage ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfileApplication >> applyingPackage: aPackage [ "The package that owns the profile application." applyingPackage := OPUMLToOneLink @@ -40,58 +42,58 @@ OPUMLProfileApplication >> applyingPackage: aPackage [ to: aPackage ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProfileApplication >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProfileApplication >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ProfileApplication put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfileApplication >> isStrict [ "Specifies that the Profile filtering rules for the metaclasses of the referenced metamodel shall be strictly applied." ^ isStrict ifNil: [ isStrict := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProfileApplication >> isStrict: aBoolean [ "Specifies that the Profile filtering rules for the metaclasses of the referenced metamodel shall be strictly applied." isStrict := aBoolean ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLProfileApplication >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLProfileApplication >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProfileApplication >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProfileApplication >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProfileApplication >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProfileApplication >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] diff --git a/repository/OP-UML-Metamodel/OPUMLProperty.class.st b/repository/OP-UML-Metamodel/OPUMLProperty.class.st index 3ae63cf..8a96a8e 100644 --- a/repository/OP-UML-Metamodel/OPUMLProperty.class.st +++ b/repository/OP-UML-Metamodel/OPUMLProperty.class.st @@ -2,8 +2,8 @@ A Property is a StructuralFeature. A Property related by ownedAttribute to a Classifier (other than an association) represents an attribute and might also represent an association end. It relates an instance of the Classifier to a value or set of values of the type of the attribute. A Property related by memberEnd to an Association represents an end of the Association. The type of the Property is the type of the end of the Association. A Property has the capability of being a DeploymentTarget in a Deployment relationship. This enables modeling the deployment to hierarchical nodes that have Properties functioning as internal parts. Property specializes ParameterableElement to specify that a Property can be exposed as a formal template parameter, and provided as an actual parameter in a binding of a template. " Class { - #name : #OPUMLProperty, - #superclass : #OPUMLElement, + #name : 'OPUMLProperty', + #superclass : 'OPUMLElement', #instVars : [ 'defaultValue', 'datatype', @@ -22,28 +22,30 @@ Class { 'qualifiers', 'association' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> aggregation [ "Specifies the kind of aggregation that applies to the Property." ^ aggregation ifNil: [ aggregation := OPUMLAggregationKind new none ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> aggregation: anAggregationKind [ "Specifies the kind of aggregation that applies to the Property." aggregation := anAggregationKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> association [ "The Association of which this Property is a member, if any." ^ association ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> association: anAssociation [ "The Association of which this Property is a member, if any." association := OPUMLToOneLink @@ -53,13 +55,13 @@ OPUMLProperty >> association: anAssociation [ to: anAssociation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> associationEnd [ "Designates the optional association end that owns a qualifier attribute." ^ associationEnd ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> associationEnd: aProperty [ "Designates the optional association end that owns a qualifier attribute." associationEnd := OPUMLToOneLink @@ -69,23 +71,23 @@ OPUMLProperty >> associationEnd: aProperty [ to: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> datatype [ "The DataType that owns this Property, if any." ^ datatype ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> datatype: aDataType [ "The DataType that owns this Property, if any." datatype := OPUMLToOneLink @@ -95,59 +97,59 @@ OPUMLProperty >> datatype: aDataType [ to: aDataType ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> defaultValue [ "A ValueSpecification that is evaluated to give a default value for the Property when an instance of the owning Classifier is instantiated." ^ defaultValue ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> defaultValue: aValueSpecification [ "A ValueSpecification that is evaluated to give a default value for the Property when an instance of the owning Classifier is instantiated." defaultValue := aValueSpecification ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLProperty >> deployedElements [ ^ (sharedGeneralizations at: #DeploymentTarget) deployedElements ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLProperty >> deployedElements: aPackageableElement [ (sharedGeneralizations at: #DeploymentTarget) deployedElements: aPackageableElement ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLProperty >> deployments [ ^ (sharedGeneralizations at: #DeploymentTarget) deployments ] -{ #category : #'accessing - DeploymentTarget' } +{ #category : 'accessing - DeploymentTarget' } OPUMLProperty >> deployments: aDeployment [ (sharedGeneralizations at: #DeploymentTarget) deployments: aDeployment ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLProperty >> ends [ ^ (sharedGeneralizations at: #ConnectableElement) ends ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLProperty >> ends: aConnectorEnd [ (sharedGeneralizations at: #ConnectableElement) ends: aConnectorEnd ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLProperty >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLProperty >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProperty >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ConnectableElement. @@ -156,7 +158,7 @@ OPUMLProperty >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProperty >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -170,13 +172,13 @@ OPUMLProperty >> initializeSharedGeneralizations [ sharedGeneralizations at: #Property put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> interface [ "The Interface that owns this Property, if any." ^ interface ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> interface: anInterface [ "The Interface that owns this Property, if any." interface := OPUMLToOneLink @@ -186,7 +188,7 @@ OPUMLProperty >> interface: anInterface [ to: anInterface ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> isAttributeStub [ "The query isAttribute() is true if the Property is defined as an attribute of some Classifier." @@ -196,7 +198,7 @@ OPUMLProperty >> isAttributeStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> isCompatibleWithStub [ "The query isCompatibleWith() determines if this Property is compatible with the specified ParameterableElement. This Property is compatible with ParameterableElement p if the kind of this Property is thesame as or a subtype of the kind of p. Further, if p is a TypedElement, then the type of this Property must be conformant with the type of p." @@ -207,7 +209,7 @@ self.type.conformsTo(p.oclAsType(TypedElement).type)))" ] -{ #category : #operations } +{ #category : 'operations' } OPUMLProperty >> isComposite [ "The value of isComposite is true only if aggregation is composite." @@ -217,13 +219,13 @@ OPUMLProperty >> isComposite [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isComposite: aBoolean [ "If isComposite is true, the object containing the attribute is a container for the object or value contained in the attribute. This is a derived value, indicating whether the aggregation of the Property is composite or not." isComposite := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> isCompositeStub [ "The value of isComposite is true only if aggregation is composite." @@ -233,7 +235,7 @@ OPUMLProperty >> isCompositeStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> isConsistentWithStub [ "The query isConsistentWith() specifies, for any two Properties in a context in which redefinition is possible, whether redefinition would be logically consistent. A redefining Property is consistent with a redefined Property if the type of the redefining Property conforms to the type of the redefined Property, and the multiplicity of the redefining Property (if specified) is contained in the multiplicity of the redefined Property." @@ -249,58 +251,58 @@ OPUMLProperty >> isConsistentWithStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isDerived [ "Specifies whether the Property is derived, i.e., whether its value or values can be computed from other information." ^ isDerived ifNil: [ isDerived := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isDerived: aBoolean [ "Specifies whether the Property is derived, i.e., whether its value or values can be computed from other information." isDerived := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isDerivedUnion [ "Specifies whether the property is derived as the union of all of the Properties that are constrained to subset it." ^ isDerivedUnion ifNil: [ isDerivedUnion := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isDerivedUnion: aBoolean [ "Specifies whether the property is derived as the union of all of the Properties that are constrained to subset it." isDerivedUnion := aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isID [ "True indicates this property can be used to uniquely identify an instance of the containing Class." ^ isID ifNil: [ isID := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> isID: aBoolean [ "True indicates this property can be used to uniquely identify an instance of the containing Class." isID := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProperty >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProperty >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLProperty >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #operations } +{ #category : 'operations' } OPUMLProperty >> isNavigable [ "The query isNavigable() indicates whether it is possible to navigate across the property." @@ -310,7 +312,7 @@ OPUMLProperty >> isNavigable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> isNavigableStub [ "The query isNavigable() indicates whether it is possible to navigate across the property." @@ -320,102 +322,102 @@ OPUMLProperty >> isNavigableStub [ ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - StructuralFeature' } +{ #category : 'accessing - StructuralFeature' } OPUMLProperty >> isReadOnly [ ^ (sharedGeneralizations at: #StructuralFeature) isReadOnly ] -{ #category : #'accessing - StructuralFeature' } +{ #category : 'accessing - StructuralFeature' } OPUMLProperty >> isReadOnly: aBoolean [ (sharedGeneralizations at: #StructuralFeature) isReadOnly: aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLProperty >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLProperty >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLProperty >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLProperty >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #operations } +{ #category : 'operations' } OPUMLProperty >> opposite [ "If this property is a memberEnd of a binary association, then opposite gives the other end." @@ -431,13 +433,13 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> opposite: aProperty [ "In the case where the Property is one end of a binary association this gives the other end." opposite := aProperty ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> oppositeStub [ "If this property is a memberEnd of a binary association, then opposite gives the other end." @@ -452,13 +454,13 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> owningAssociation [ "The owning association of this property, if any." ^ owningAssociation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> owningAssociation: anAssociation [ "The owning association of this property, if any." owningAssociation := OPUMLToOneLink @@ -468,13 +470,13 @@ OPUMLProperty >> owningAssociation: anAssociation [ to: anAssociation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> owningClass [ "The Class that owns this Property, if any." ^ owningClass ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> owningClass: aClass [ "The Class that owns this Property, if any." owningClass := OPUMLToOneLink @@ -484,33 +486,33 @@ OPUMLProperty >> owningClass: aClass [ to: aClass ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProperty >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProperty >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> qualifiers [ "An optional list of ordered qualifier attributes for the end." ^ qualifiers ifNil: [ qualifiers := OPUMLToManyLinks on: self identity opposite: #associationEnd: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> qualifiers: aProperty [ "An optional list of ordered qualifier attributes for the end." self qualifiers @@ -518,51 +520,51 @@ OPUMLProperty >> qualifiers: aProperty [ addAll: aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProperty >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProperty >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> redefinedProperties [ "The properties that are redefined by this property, if any." ^ redefinedProperties ifNil: [ redefinedProperties := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> redefinedProperties: aProperty [ "The properties that are redefined by this property, if any." redefinedProperties := aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProperty >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProperty >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> subsettedProperties [ "The properties of which this Property is constrained to be a subset, if any." ^ subsettedProperties ifNil: [ subsettedProperties := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProperty >> subsettedProperties: aProperty [ "The properties of which this Property is constrained to be a subset, if any." subsettedProperties := aProperty ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProperty >> subsettingContextStub [ "The query subsettingContext() gives the context for subsetting a Property. It consists, in the case of an attribute, of the corresponding Classifier, and in the case of an association end, all of the Classifiers at the other ends." @@ -579,57 +581,57 @@ endif)" ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLProperty >> templateParameter [ ^ (sharedGeneralizations at: #ConnectableElement) templateParameter ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLProperty >> templateParameter: aConnectableElementTemplateParameter [ (sharedGeneralizations at: #ConnectableElement) templateParameter: aConnectableElementTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLProperty >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLProperty >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLProperty >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLProperty >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLProperty >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProperty >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLProtocolConformance.class.st b/repository/OP-UML-Metamodel/OPUMLProtocolConformance.class.st index c04cbb9..108b6af 100644 --- a/repository/OP-UML-Metamodel/OPUMLProtocolConformance.class.st +++ b/repository/OP-UML-Metamodel/OPUMLProtocolConformance.class.st @@ -2,68 +2,70 @@ A ProtocolStateMachine can be redefined into a more specific ProtocolStateMachine or into behavioral StateMachine. ProtocolConformance declares that the specific ProtocolStateMachine specifies a protocol that conforms to the general ProtocolStateMachine or that the specific behavioral StateMachine abides by the protocol of the general ProtocolStateMachine. " Class { - #name : #OPUMLProtocolConformance, - #superclass : #OPUMLElement, + #name : 'OPUMLProtocolConformance', + #superclass : 'OPUMLElement', #instVars : [ 'specificMachine', 'generalMachine' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolConformance >> generalMachine [ "Specifies the ProtocolStateMachine to which the specific ProtocolStateMachine conforms." ^ generalMachine ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolConformance >> generalMachine: aProtocolStateMachine [ "Specifies the ProtocolStateMachine to which the specific ProtocolStateMachine conforms." generalMachine := aProtocolStateMachine ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProtocolConformance >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProtocolConformance >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ProtocolConformance put: self. ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLProtocolConformance >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLProtocolConformance >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProtocolConformance >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProtocolConformance >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolConformance >> specificMachine [ "Specifies the ProtocolStateMachine which conforms to the general ProtocolStateMachine." ^ specificMachine ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolConformance >> specificMachine: aProtocolStateMachine [ "Specifies the ProtocolStateMachine which conforms to the general ProtocolStateMachine." specificMachine := OPUMLToOneLink @@ -73,12 +75,12 @@ OPUMLProtocolConformance >> specificMachine: aProtocolStateMachine [ to: aProtocolStateMachine ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProtocolConformance >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLProtocolConformance >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] diff --git a/repository/OP-UML-Metamodel/OPUMLProtocolStateMachine.class.st b/repository/OP-UML-Metamodel/OPUMLProtocolStateMachine.class.st index 0138265..04959ee 100644 --- a/repository/OP-UML-Metamodel/OPUMLProtocolStateMachine.class.st +++ b/repository/OP-UML-Metamodel/OPUMLProtocolStateMachine.class.st @@ -2,71 +2,73 @@ A ProtocolStateMachine is always defined in the context of a Classifier. It specifies which BehavioralFeatures of the Classifier can be called in which State and under which conditions, thus specifying the allowed invocation sequences on the Classifier's BehavioralFeatures. A ProtocolStateMachine specifies the possible and permitted Transitions on the instances of its context Classifier, together with the BehavioralFeatures that carry the Transitions. In this manner, an instance lifecycle can be specified for a Classifier, by defining the order in which the BehavioralFeatures can be activated and the States through which an instance progresses during its existence. " Class { - #name : #OPUMLProtocolStateMachine, - #superclass : #OPUMLElement, + #name : 'OPUMLProtocolStateMachine', + #superclass : 'OPUMLElement', #instVars : [ 'conformances' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLProtocolStateMachine >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLProtocolStateMachine >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLProtocolStateMachine >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLProtocolStateMachine >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolStateMachine >> conformances [ "Conformance between ProtocolStateMachine " ^ conformances ifNil: [ conformances := OPUMLToManyLinks on: self identity opposite: #specificMachine: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolStateMachine >> conformances: aProtocolConformance [ "Conformance between ProtocolStateMachine " self conformances @@ -74,119 +76,119 @@ OPUMLProtocolStateMachine >> conformances: aProtocolConformance [ addAll: aProtocolConformance ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> connectionPoints [ ^ (sharedGeneralizations at: #StateMachine) connectionPoints ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> connectionPoints: aPseudostate [ (sharedGeneralizations at: #StateMachine) connectionPoints: aPseudostate ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> context [ ^ (sharedGeneralizations at: #Behavior) context ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> context: aBehavioredClassifier [ (sharedGeneralizations at: #Behavior) context: aBehavioredClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> extendedStateMachines [ ^ (sharedGeneralizations at: #StateMachine) extendedStateMachines ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> extendedStateMachines: aStateMachine [ (sharedGeneralizations at: #StateMachine) extendedStateMachines: aStateMachine ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLProtocolStateMachine >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProtocolStateMachine >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StateMachine. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProtocolStateMachine >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -205,467 +207,467 @@ OPUMLProtocolStateMachine >> initializeSharedGeneralizations [ sharedGeneralizations at: #ProtocolStateMachine put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLProtocolStateMachine >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLProtocolStateMachine >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolStateMachine >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolStateMachine >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> isReentrant [ ^ (sharedGeneralizations at: #Behavior) isReentrant ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> isReentrant: aBoolean [ (sharedGeneralizations at: #Behavior) isReentrant: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLProtocolStateMachine >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLProtocolStateMachine >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLProtocolStateMachine >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLProtocolStateMachine >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> ownedParameterSets [ ^ (sharedGeneralizations at: #Behavior) ownedParameterSets ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #Behavior) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> ownedParameters [ ^ (sharedGeneralizations at: #Behavior) ownedParameters ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> ownedParameters: aParameter [ (sharedGeneralizations at: #Behavior) ownedParameters: aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLProtocolStateMachine >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLProtocolStateMachine >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProtocolStateMachine >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLProtocolStateMachine >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLProtocolStateMachine >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLProtocolStateMachine >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolStateMachine >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLProtocolStateMachine >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLProtocolStateMachine >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLProtocolStateMachine >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> postconditions [ ^ (sharedGeneralizations at: #Behavior) postconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> postconditions: aConstraint [ (sharedGeneralizations at: #Behavior) postconditions: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> preconditions [ ^ (sharedGeneralizations at: #Behavior) preconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> preconditions: aConstraint [ (sharedGeneralizations at: #Behavior) preconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolStateMachine >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> redefinedBehaviors [ ^ (sharedGeneralizations at: #Behavior) redefinedBehaviors ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> redefinedBehaviors: aBehavior [ (sharedGeneralizations at: #Behavior) redefinedBehaviors: aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolStateMachine >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolStateMachine >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolStateMachine >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolStateMachine >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> regions [ ^ (sharedGeneralizations at: #StateMachine) regions ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> regions: aRegion [ (sharedGeneralizations at: #StateMachine) regions: aRegion ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLProtocolStateMachine >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLProtocolStateMachine >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> specification [ ^ (sharedGeneralizations at: #Behavior) specification ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLProtocolStateMachine >> specification: aBehavioralFeature [ (sharedGeneralizations at: #Behavior) specification: aBehavioralFeature ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> submachineStates [ ^ (sharedGeneralizations at: #StateMachine) submachineStates ] -{ #category : #'accessing - StateMachine' } +{ #category : 'accessing - StateMachine' } OPUMLProtocolStateMachine >> submachineStates: aState [ (sharedGeneralizations at: #StateMachine) submachineStates: aState ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLProtocolStateMachine >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLProtocolStateMachine >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLProtocolStateMachine >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLProtocolStateMachine >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLProtocolStateMachine >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLProtocolStateMachine >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLProtocolTransition.class.st b/repository/OP-UML-Metamodel/OPUMLProtocolTransition.class.st index 7d2df70..bd2ee79 100644 --- a/repository/OP-UML-Metamodel/OPUMLProtocolTransition.class.st +++ b/repository/OP-UML-Metamodel/OPUMLProtocolTransition.class.st @@ -2,84 +2,86 @@ A ProtocolTransition specifies a legal Transition for an Operation. Transitions of ProtocolStateMachines have the following information: a pre-condition (guard), a Trigger, and a post-condition. Every ProtocolTransition is associated with at most one BehavioralFeature belonging to the context Classifier of the ProtocolStateMachine. " Class { - #name : #OPUMLProtocolTransition, - #superclass : #OPUMLElement, + #name : 'OPUMLProtocolTransition', + #superclass : 'OPUMLElement', #instVars : [ 'preCondition', 'postCondition', 'referreds' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> container [ ^ (sharedGeneralizations at: #Transition) container ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> container: aRegion [ (sharedGeneralizations at: #Transition) container: aRegion ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> effect [ ^ (sharedGeneralizations at: #Transition) effect ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> effect: aBehavior [ (sharedGeneralizations at: #Transition) effect: aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> guard [ ^ (sharedGeneralizations at: #Transition) guard ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> guard: aConstraint [ (sharedGeneralizations at: #Transition) guard: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProtocolTransition >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Transition. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLProtocolTransition >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Namespace put: (OPUMLNamespace newOnShared: sharedGeneralizations). @@ -88,171 +90,171 @@ OPUMLProtocolTransition >> initializeSharedGeneralizations [ sharedGeneralizations at: #ProtocolTransition put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolTransition >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolTransition >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> kind [ ^ (sharedGeneralizations at: #Transition) kind ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> kind: aTransitionKind [ (sharedGeneralizations at: #Transition) kind: aTransitionKind ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLProtocolTransition >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolTransition >> postCondition [ "Specifies the post condition of the Transition which is the Condition that should be obtained once the Transition is triggered. This post condition is part of the post condition of the Operation connected to the Transition." ^ postCondition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolTransition >> postCondition: aConstraint [ "Specifies the post condition of the Transition which is the Condition that should be obtained once the Transition is triggered. This post condition is part of the post condition of the Operation connected to the Transition." postCondition := aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolTransition >> preCondition [ "Specifies the precondition of the Transition. It specifies the Condition that should be verified before triggering the Transition. This guard condition added to the source State will be evaluated as part of the precondition of the Operation referred by the Transition if any." ^ preCondition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolTransition >> preCondition: aConstraint [ "Specifies the precondition of the Transition. It specifies the Condition that should be verified before triggering the Transition. This guard condition added to the source State will be evaluated as part of the precondition of the Operation referred by the Transition if any." preCondition := aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolTransition >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolTransition >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> redefinedTransition [ ^ (sharedGeneralizations at: #Transition) redefinedTransition ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> redefinedTransition: aTransition [ (sharedGeneralizations at: #Transition) redefinedTransition: aTransition ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> redefinitionContext [ ^ (sharedGeneralizations at: #Transition) redefinitionContext ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> redefinitionContext: aClassifier [ (sharedGeneralizations at: #Transition) redefinitionContext: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolTransition >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLProtocolTransition >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLProtocolTransition >> referredStub [ "Derivation for ProtocolTransition::/referred" @@ -262,54 +264,54 @@ OPUMLProtocolTransition >> referredStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolTransition >> referreds [ "This association refers to the associated Operation. It is derived from the Operation of the CallEvent Trigger when applicable." ^ referreds ifNil: [ referreds := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLProtocolTransition >> referreds: anOperation [ "This association refers to the associated Operation. It is derived from the Operation of the CallEvent Trigger when applicable." referreds := anOperation ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> source [ ^ (sharedGeneralizations at: #Transition) source ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> source: aVertex [ (sharedGeneralizations at: #Transition) source: aVertex ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> target [ ^ (sharedGeneralizations at: #Transition) target ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> target: aVertex [ (sharedGeneralizations at: #Transition) target: aVertex ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> triggers [ ^ (sharedGeneralizations at: #Transition) triggers ] -{ #category : #'accessing - Transition' } +{ #category : 'accessing - Transition' } OPUMLProtocolTransition >> triggers: aTrigger [ (sharedGeneralizations at: #Transition) triggers: aTrigger ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLProtocolTransition >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLPseudostate.class.st b/repository/OP-UML-Metamodel/OPUMLPseudostate.class.st index dc21983..2552a69 100644 --- a/repository/OP-UML-Metamodel/OPUMLPseudostate.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPseudostate.class.st @@ -2,129 +2,131 @@ A Pseudostate is an abstraction that encompasses different types of transient Vertices in the StateMachine graph. A StateMachine instance never comes to rest in a Pseudostate, instead, it will exit and enter the Pseudostate within a single run-to-completion step. " Class { - #name : #OPUMLPseudostate, - #superclass : #OPUMLElement, + #name : 'OPUMLPseudostate', + #superclass : 'OPUMLElement', #instVars : [ 'stateMachine', 'kind', 'state' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLPseudostate >> container [ ^ (sharedGeneralizations at: #Vertex) container ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLPseudostate >> container: aRegion [ (sharedGeneralizations at: #Vertex) container: aRegion ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLPseudostate >> incomings [ ^ (sharedGeneralizations at: #Vertex) incomings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLPseudostate >> incomings: aTransition [ (sharedGeneralizations at: #Vertex) incomings: aTransition ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPseudostate >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Vertex. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLPseudostate >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Vertex put: (OPUMLVertex newOnShared: sharedGeneralizations). sharedGeneralizations at: #Pseudostate put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostate >> kind [ "Determines the precise type of the Pseudostate and can be one of: entryPoint, exitPoint, initial, deepHistory, shallowHistory, join, fork, junction, terminate or choice." ^ kind ifNil: [ kind := OPUMLPseudostateKind new initial ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostate >> kind: aPseudostateKind [ "Determines the precise type of the Pseudostate and can be one of: entryPoint, exitPoint, initial, deepHistory, shallowHistory, join, fork, junction, terminate or choice." kind := aPseudostateKind ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLPseudostate >> outgoings [ ^ (sharedGeneralizations at: #Vertex) outgoings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLPseudostate >> outgoings: aTransition [ (sharedGeneralizations at: #Vertex) outgoings: aTransition ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostate >> state [ "The State that owns this Pseudostate and in which it appears." ^ state ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostate >> state: aState [ "The State that owns this Pseudostate and in which it appears." state := OPUMLToOneLink @@ -134,13 +136,13 @@ OPUMLPseudostate >> state: aState [ to: aState ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostate >> stateMachine [ "The StateMachine in which this Pseudostate is defined. This only applies to Pseudostates of the kind entryPoint or exitPoint." ^ stateMachine ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostate >> stateMachine: aStateMachine [ "The StateMachine in which this Pseudostate is defined. This only applies to Pseudostates of the kind entryPoint or exitPoint." stateMachine := OPUMLToOneLink @@ -150,12 +152,12 @@ OPUMLPseudostate >> stateMachine: aStateMachine [ to: aStateMachine ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLPseudostate >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLPseudostateKind.class.st b/repository/OP-UML-Metamodel/OPUMLPseudostateKind.class.st index 36d2f9d..21f0095 100644 --- a/repository/OP-UML-Metamodel/OPUMLPseudostateKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLPseudostateKind.class.st @@ -2,126 +2,128 @@ PseudostateKind is an Enumeration type that is used to differentiate various kinds of Pseudostates. " Class { - #name : #OPUMLPseudostateKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-StateMachines' + #name : 'OPUMLPseudostateKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> choice [ ^ #choice ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> deepHistory [ ^ #deepHistory ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> entryPoint [ ^ #entryPoint ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> exitPoint [ ^ #exitPoint ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> fork [ ^ #fork ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> initial [ ^ #initial ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> join [ ^ #join ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> junction [ ^ #junction ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> shallowHistory [ ^ #shallowHistory ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLPseudostateKind class >> terminate [ ^ #terminate ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> choice [ ^ #choice ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> deepHistory [ ^ #deepHistory ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> entryPoint [ ^ #entryPoint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> exitPoint [ ^ #exitPoint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> fork [ ^ #fork ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> initial [ ^ #initial ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> join [ ^ #join ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> junction [ ^ #junction ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> shallowHistory [ ^ #shallowHistory ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLPseudostateKind >> terminate [ ^ #terminate diff --git a/repository/OP-UML-Metamodel/OPUMLQualifierValue.class.st b/repository/OP-UML-Metamodel/OPUMLQualifierValue.class.st index 1158519..1fd3792 100644 --- a/repository/OP-UML-Metamodel/OPUMLQualifierValue.class.st +++ b/repository/OP-UML-Metamodel/OPUMLQualifierValue.class.st @@ -2,45 +2,47 @@ A QualifierValue is an Element that is used as part of LinkEndData to provide the value for a single qualifier of the end given by the LinkEndData. " Class { - #name : #OPUMLQualifierValue, - #superclass : #OPUMLElement, + #name : 'OPUMLQualifierValue', + #superclass : 'OPUMLElement', #instVars : [ 'qualifier', 'value' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLQualifierValue >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLQualifierValue >> initializeSharedGeneralizations [ sharedGeneralizations at: #QualifierValue put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLQualifierValue >> qualifier [ "The qualifier Property for which the value is to be specified." ^ qualifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLQualifierValue >> qualifier: aProperty [ "The qualifier Property for which the value is to be specified." qualifier := aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLQualifierValue >> value [ "The InputPin from which the specified value for the qualifier is taken." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLQualifierValue >> value: anInputPin [ "The InputPin from which the specified value for the qualifier is taken." value := anInputPin diff --git a/repository/OP-UML-Metamodel/OPUMLRaiseExceptionAction.class.st b/repository/OP-UML-Metamodel/OPUMLRaiseExceptionAction.class.st index 161324d..825ec53 100644 --- a/repository/OP-UML-Metamodel/OPUMLRaiseExceptionAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRaiseExceptionAction.class.st @@ -2,124 +2,126 @@ A RaiseExceptionAction is an Action that causes an exception to occur. The input value becomes the exception object. " Class { - #name : #OPUMLRaiseExceptionAction, - #superclass : #OPUMLElement, + #name : 'OPUMLRaiseExceptionAction', + #superclass : 'OPUMLElement', #instVars : [ 'exception' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRaiseExceptionAction >> exception [ "An InputPin whose value becomes the exception object." ^ exception ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRaiseExceptionAction >> exception: anInputPin [ "An InputPin whose value becomes the exception object." exception := anInputPin ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLRaiseExceptionAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLRaiseExceptionAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRaiseExceptionAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRaiseExceptionAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -129,152 +131,152 @@ OPUMLRaiseExceptionAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #RaiseExceptionAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRaiseExceptionAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRaiseExceptionAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRaiseExceptionAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRaiseExceptionAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRaiseExceptionAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRaiseExceptionAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRaiseExceptionAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRaiseExceptionAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRaiseExceptionAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadExtentAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadExtentAction.class.st index 66c8148..98a59ed 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadExtentAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadExtentAction.class.st @@ -2,125 +2,127 @@ A ReadExtentAction is an Action that retrieves the current instances of a Classifier. " Class { - #name : #OPUMLReadExtentAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadExtentAction', + #superclass : 'OPUMLElement', #instVars : [ 'classifier', 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadExtentAction >> classifier [ "The Classifier whose instances are to be retrieved." ^ classifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadExtentAction >> classifier: aClassifier [ "The Classifier whose instances are to be retrieved." classifier := aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadExtentAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadExtentAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadExtentAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadExtentAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -130,164 +132,164 @@ OPUMLReadExtentAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadExtentAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadExtentAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadExtentAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadExtentAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadExtentAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadExtentAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadExtentAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadExtentAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadExtentAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadExtentAction >> result [ "The OutputPin on which the Classifier instances are placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadExtentAction >> result: anOutputPin [ "The OutputPin on which the Classifier instances are placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadExtentAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadIsClassifiedObjectAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadIsClassifiedObjectAction.class.st index 456b84c..0b91681 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadIsClassifiedObjectAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadIsClassifiedObjectAction.class.st @@ -2,127 +2,129 @@ A ReadIsClassifiedObjectAction is an Action that determines whether an object is classified by a given Classifier. " Class { - #name : #OPUMLReadIsClassifiedObjectAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadIsClassifiedObjectAction', + #superclass : 'OPUMLElement', #instVars : [ 'classifier', 'isDirect', 'object', 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> classifier [ "The Classifier against which the classification of the input object is tested." ^ classifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> classifier: aClassifier [ "The Classifier against which the classification of the input object is tested." classifier := aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadIsClassifiedObjectAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadIsClassifiedObjectAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadIsClassifiedObjectAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadIsClassifiedObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -132,188 +134,188 @@ OPUMLReadIsClassifiedObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadIsClassifiedObjectAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> isDirect [ "Indicates whether the input object must be directly classified by the given Classifier or whether it may also be an instance of a specialization of the given Classifier." ^ isDirect ifNil: [ isDirect := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> isDirect: aBoolean [ "Indicates whether the input object must be directly classified by the given Classifier or whether it may also be an instance of a specialization of the given Classifier." isDirect := aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadIsClassifiedObjectAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadIsClassifiedObjectAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> object [ "The InputPin that holds the object whose classification is to be tested." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> object: anInputPin [ "The InputPin that holds the object whose classification is to be tested." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadIsClassifiedObjectAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadIsClassifiedObjectAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadIsClassifiedObjectAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadIsClassifiedObjectAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadIsClassifiedObjectAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadIsClassifiedObjectAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> result [ "The OutputPin that holds the Boolean result of the test." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadIsClassifiedObjectAction >> result: anOutputPin [ "The OutputPin that holds the Boolean result of the test." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadIsClassifiedObjectAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadLinkAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadLinkAction.class.st index 9ba2145..b7b549e 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadLinkAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadLinkAction.class.st @@ -2,122 +2,124 @@ A ReadLinkAction is a LinkAction that navigates across an Association to retrieve the objects on one end. " Class { - #name : #OPUMLReadLinkAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadLinkAction', + #superclass : 'OPUMLElement', #instVars : [ 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLReadLinkAction >> endDatas [ ^ (sharedGeneralizations at: #LinkAction) endDatas ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLReadLinkAction >> endDatas: aLinkEndData [ (sharedGeneralizations at: #LinkAction) endDatas: aLinkEndData ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadLinkAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadLinkAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadLinkAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LinkAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -128,97 +130,97 @@ OPUMLReadLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadLinkAction put: self. ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLReadLinkAction >> inputValues [ ^ (sharedGeneralizations at: #LinkAction) inputValues ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLReadLinkAction >> inputValues: anInputPin [ (sharedGeneralizations at: #LinkAction) inputValues: anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLReadLinkAction >> openEndStub [ "Returns the ends corresponding to endData with no value InputPin. (A well-formed ReadLinkAction is constrained to have only one of these.)" @@ -228,84 +230,84 @@ OPUMLReadLinkAction >> openEndStub [ ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkAction >> result [ "The OutputPin on which the objects retrieved from the ""open"" end of those links whose values on other ends are given by the endData." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkAction >> result: anOutputPin [ "The OutputPin on which the objects retrieved from the ""open"" end of those links whose values on other ends are given by the endData." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndAction.class.st index 88e7185..11e2c25 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndAction.class.st @@ -2,126 +2,128 @@ A ReadLinkObjectEndAction is an Action that retrieves an end object from a link object. " Class { - #name : #OPUMLReadLinkObjectEndAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadLinkObjectEndAction', + #superclass : 'OPUMLElement', #instVars : [ 'object', 'end', 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndAction >> end [ "The Association end to be read." ^ end ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndAction >> end: aProperty [ "The Association end to be read." end := aProperty ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadLinkObjectEndAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadLinkObjectEndAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadLinkObjectEndAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadLinkObjectEndAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -131,176 +133,176 @@ OPUMLReadLinkObjectEndAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadLinkObjectEndAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndAction >> object [ "The input pin from which the link object is obtained." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndAction >> object: anInputPin [ "The input pin from which the link object is obtained." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndAction >> result [ "The OutputPin where the result value is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndAction >> result: anOutputPin [ "The OutputPin where the result value is placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndQualifierAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndQualifierAction.class.st index 471b4e8..9174cb9 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndQualifierAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadLinkObjectEndQualifierAction.class.st @@ -2,114 +2,116 @@ A ReadLinkObjectEndQualifierAction is an Action that retrieves a qualifier end value from a link object. " Class { - #name : #OPUMLReadLinkObjectEndQualifierAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadLinkObjectEndQualifierAction', + #superclass : 'OPUMLElement', #instVars : [ 'object', 'qualifier', 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadLinkObjectEndQualifierAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadLinkObjectEndQualifierAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadLinkObjectEndQualifierAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadLinkObjectEndQualifierAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -119,188 +121,188 @@ OPUMLReadLinkObjectEndQualifierAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadLinkObjectEndQualifierAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndQualifierAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndQualifierAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndQualifierAction >> object [ "The InputPin from which the link object is obtained." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndQualifierAction >> object: anInputPin [ "The InputPin from which the link object is obtained." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadLinkObjectEndQualifierAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndQualifierAction >> qualifier [ "The qualifier Property to be read." ^ qualifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndQualifierAction >> qualifier: aProperty [ "The qualifier Property to be read." qualifier := aProperty ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndQualifierAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndQualifierAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadLinkObjectEndQualifierAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndQualifierAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadLinkObjectEndQualifierAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndQualifierAction >> result [ "The OutputPin where the result value is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadLinkObjectEndQualifierAction >> result: anOutputPin [ "The OutputPin where the result value is placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadLinkObjectEndQualifierAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadSelfAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadSelfAction.class.st index 5735e08..c7541ad 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadSelfAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadSelfAction.class.st @@ -2,112 +2,114 @@ A ReadSelfAction is an Action that retrieves the context object of the Behavior execution within which the ReadSelfAction execution is taking place. " Class { - #name : #OPUMLReadSelfAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadSelfAction', + #superclass : 'OPUMLElement', #instVars : [ 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadSelfAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadSelfAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadSelfAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadSelfAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -117,164 +119,164 @@ OPUMLReadSelfAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadSelfAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadSelfAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadSelfAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadSelfAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadSelfAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadSelfAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadSelfAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadSelfAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadSelfAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadSelfAction >> result [ "The OutputPin on which the context object is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadSelfAction >> result: anOutputPin [ "The OutputPin on which the context object is placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadSelfAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadStructuralFeatureAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadStructuralFeatureAction.class.st index 82e58ce..ebb33bc 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadStructuralFeatureAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadStructuralFeatureAction.class.st @@ -2,112 +2,114 @@ A ReadStructuralFeatureAction is a StructuralFeatureAction that retrieves the values of a StructuralFeature. " Class { - #name : #OPUMLReadStructuralFeatureAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadStructuralFeatureAction', + #superclass : 'OPUMLElement', #instVars : [ 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadStructuralFeatureAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadStructuralFeatureAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadStructuralFeatureAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuralFeatureAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,184 +120,184 @@ OPUMLReadStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadStructuralFeatureAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadStructuralFeatureAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadStructuralFeatureAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLReadStructuralFeatureAction >> object [ ^ (sharedGeneralizations at: #StructuralFeatureAction) object ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLReadStructuralFeatureAction >> object: anInputPin [ (sharedGeneralizations at: #StructuralFeatureAction) object: anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadStructuralFeatureAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadStructuralFeatureAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadStructuralFeatureAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadStructuralFeatureAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadStructuralFeatureAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadStructuralFeatureAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadStructuralFeatureAction >> result [ "The OutputPin on which the result values are placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadStructuralFeatureAction >> result: anOutputPin [ "The OutputPin on which the result values are placed." result := anOutputPin ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLReadStructuralFeatureAction >> structuralFeature [ ^ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLReadStructuralFeatureAction >> structuralFeature: aStructuralFeature [ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature: aStructuralFeature ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadStructuralFeatureAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReadVariableAction.class.st b/repository/OP-UML-Metamodel/OPUMLReadVariableAction.class.st index bb86b40..03fc310 100644 --- a/repository/OP-UML-Metamodel/OPUMLReadVariableAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReadVariableAction.class.st @@ -2,112 +2,114 @@ A ReadVariableAction is a VariableAction that retrieves the values of a Variable. " Class { - #name : #OPUMLReadVariableAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReadVariableAction', + #superclass : 'OPUMLElement', #instVars : [ 'result' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadVariableAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReadVariableAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadVariableAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #VariableAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReadVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,174 +120,174 @@ OPUMLReadVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReadVariableAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadVariableAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadVariableAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReadVariableAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadVariableAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadVariableAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReadVariableAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadVariableAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReadVariableAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadVariableAction >> result [ "The OutputPin on which the result values are placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReadVariableAction >> result: anOutputPin [ "The OutputPin on which the result values are placed." result := anOutputPin ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLReadVariableAction >> variable [ ^ (sharedGeneralizations at: #VariableAction) variable ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLReadVariableAction >> variable: aVariable [ (sharedGeneralizations at: #VariableAction) variable: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReadVariableAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLRealization.class.st b/repository/OP-UML-Metamodel/OPUMLRealization.class.st index 66099a4..f08eb00 100644 --- a/repository/OP-UML-Metamodel/OPUMLRealization.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRealization.class.st @@ -2,39 +2,41 @@ Realization is a specialized Abstraction relationship between two sets of model Elements, one representing a specification (the supplier) and the other represents an implementation of the latter (the client). Realization can be used to model stepwise refinement, optimizations, transformations, templates, model synthesis, framework composition, etc. " Class { - #name : #OPUMLRealization, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-CommonStructure' + #name : 'OPUMLRealization', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLRealization >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLRealization >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRealization >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Abstraction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRealization >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -46,122 +48,122 @@ OPUMLRealization >> initializeSharedGeneralizations [ sharedGeneralizations at: #Realization put: self. ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLRealization >> mapping [ ^ (sharedGeneralizations at: #Abstraction) mapping ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLRealization >> mapping: anOpaqueExpression [ (sharedGeneralizations at: #Abstraction) mapping: anOpaqueExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLRealization >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLRealization >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRealization >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLRealization >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLRealization >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLRealization >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLRealization >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLRealization >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLRealization >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLRealization >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLRealization >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLRealization >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLRealization >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLRealization >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLRealization >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReception.class.st b/repository/OP-UML-Metamodel/OPUMLReception.class.st index ecf9e27..2f878d1 100644 --- a/repository/OP-UML-Metamodel/OPUMLReception.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReception.class.st @@ -2,72 +2,74 @@ A Reception is a declaration stating that a Classifier is prepared to react to the receipt of a Signal. " Class { - #name : #OPUMLReception, - #superclass : #OPUMLElement, + #name : 'OPUMLReception', + #superclass : 'OPUMLElement', #instVars : [ 'signal' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> concurrency [ ^ (sharedGeneralizations at: #BehavioralFeature) concurrency ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> concurrency: aCallConcurrencyKind [ (sharedGeneralizations at: #BehavioralFeature) concurrency: aCallConcurrencyKind ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLReception >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLReception >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReception >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #BehavioralFeature. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReception >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -77,194 +79,194 @@ OPUMLReception >> initializeSharedGeneralizations [ sharedGeneralizations at: #Reception put: self. ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> isAbstract [ ^ (sharedGeneralizations at: #BehavioralFeature) isAbstract ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> isAbstract: aBoolean [ (sharedGeneralizations at: #BehavioralFeature) isAbstract: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReception >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReception >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLReception >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLReception >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> methods [ ^ (sharedGeneralizations at: #BehavioralFeature) methods ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> methods: aBehavior [ (sharedGeneralizations at: #BehavioralFeature) methods: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> ownedParameterSets [ ^ (sharedGeneralizations at: #BehavioralFeature) ownedParameterSets ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #BehavioralFeature) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> ownedParameters [ ^ (sharedGeneralizations at: #BehavioralFeature) ownedParameters ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> ownedParameters: aParameter [ (sharedGeneralizations at: #BehavioralFeature) ownedParameters: aParameter ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLReception >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> raisedExceptions [ ^ (sharedGeneralizations at: #BehavioralFeature) raisedExceptions ] -{ #category : #'accessing - BehavioralFeature' } +{ #category : 'accessing - BehavioralFeature' } OPUMLReception >> raisedExceptions: aType [ (sharedGeneralizations at: #BehavioralFeature) raisedExceptions: aType ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReception >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReception >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReception >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReception >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReception >> signal [ "The Signal that this Reception handles." ^ signal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReception >> signal: aSignal [ "The Signal that this Reception handles." signal := aSignal ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReception >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReclassifyObjectAction.class.st b/repository/OP-UML-Metamodel/OPUMLReclassifyObjectAction.class.st index 43d4e35..52f4bad 100644 --- a/repository/OP-UML-Metamodel/OPUMLReclassifyObjectAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReclassifyObjectAction.class.st @@ -2,115 +2,117 @@ A ReclassifyObjectAction is an Action that changes the Classifiers that classify an object. " Class { - #name : #OPUMLReclassifyObjectAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReclassifyObjectAction', + #superclass : 'OPUMLElement', #instVars : [ 'newClassifiers', 'isReplaceAll', 'object', 'oldClassifiers' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReclassifyObjectAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReclassifyObjectAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReclassifyObjectAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReclassifyObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -120,200 +122,200 @@ OPUMLReclassifyObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReclassifyObjectAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReclassifyObjectAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReclassifyObjectAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> isReplaceAll [ "Specifies whether existing Classifiers should be removed before adding the new Classifiers." ^ isReplaceAll ifNil: [ isReplaceAll := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> isReplaceAll: aBoolean [ "Specifies whether existing Classifiers should be removed before adding the new Classifiers." isReplaceAll := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> newClassifiers [ "A set of Classifiers to be added to the Classifiers of the given object." ^ newClassifiers ifNil: [ newClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> newClassifiers: aClassifier [ "A set of Classifiers to be added to the Classifiers of the given object." newClassifiers := aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> object [ "The InputPin that holds the object to be reclassified." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> object: anInputPin [ "The InputPin that holds the object to be reclassified." object := anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> oldClassifiers [ "A set of Classifiers to be removed from the Classifiers of the given object." ^ oldClassifiers ifNil: [ oldClassifiers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReclassifyObjectAction >> oldClassifiers: aClassifier [ "A set of Classifiers to be removed from the Classifiers of the given object." oldClassifiers := aClassifier ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReclassifyObjectAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReclassifyObjectAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReclassifyObjectAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReclassifyObjectAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReclassifyObjectAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReclassifyObjectAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReclassifyObjectAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLRedefinableElement.class.st b/repository/OP-UML-Metamodel/OPUMLRedefinableElement.class.st index 7718815..3e4a4be 100644 --- a/repository/OP-UML-Metamodel/OPUMLRedefinableElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRedefinableElement.class.st @@ -2,40 +2,42 @@ A RedefinableElement is an element that, when defined in the context of a Classifier, can be redefined more specifically or differently in the context of another Classifier that specializes (directly or indirectly) the context Classifier. " Class { - #name : #OPUMLRedefinableElement, - #superclass : #OPUMLElement, + #name : 'OPUMLRedefinableElement', + #superclass : 'OPUMLElement', #instVars : [ 'redefinedElements', 'redefinitionContexts', 'isLeaf' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRedefinableElement >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRedefinableElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRedefinableElement >> isConsistentWithStub [ "The query isConsistentWith() specifies, for any two RedefinableElements in a context in which redefinition is possible, whether redefinition would be logically consistent. By default, this is false; this operation must be overridden for subclasses of RedefinableElement to define the consistency conditions." @@ -46,19 +48,19 @@ OPUMLRedefinableElement >> isConsistentWithStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableElement >> isLeaf [ "Indicates whether it is possible to further redefine a RedefinableElement. If the value is true, then it is not possible to further redefine the RedefinableElement." ^ isLeaf ifNil: [ isLeaf := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableElement >> isLeaf: aBoolean [ "Indicates whether it is possible to further redefine a RedefinableElement. If the value is true, then it is not possible to further redefine the RedefinableElement." isLeaf := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRedefinableElement >> isRedefinitionContextValidStub [ "The query isRedefinitionContextValid() specifies whether the redefinition contexts of this RedefinableElement are properly related to the redefinition contexts of the specified RedefinableElement to allow this element to redefine the other. By default at least one of the redefinition contexts of this element must be a specialization of at least one of the redefinition contexts of the specified element." @@ -68,76 +70,76 @@ OPUMLRedefinableElement >> isRedefinitionContextValidStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableElement >> redefinedElements [ "The RedefinableElement that is being redefined by this element." ^ redefinedElements ifNil: [ redefinedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableElement >> redefinedElements: aRedefinableElement [ "The RedefinableElement that is being redefined by this element." redefinedElements := aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableElement >> redefinitionContexts [ "The contexts that this element may be redefined from." ^ redefinitionContexts ifNil: [ redefinitionContexts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableElement >> redefinitionContexts: aClassifier [ "The contexts that this element may be redefined from." redefinitionContexts := aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableElement >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLRedefinableTemplateSignature.class.st b/repository/OP-UML-Metamodel/OPUMLRedefinableTemplateSignature.class.st index def1f35..f0127ca 100644 --- a/repository/OP-UML-Metamodel/OPUMLRedefinableTemplateSignature.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRedefinableTemplateSignature.class.st @@ -2,23 +2,25 @@ A RedefinableTemplateSignature supports the addition of formal template parameters in a specialization of a template classifier. " Class { - #name : #OPUMLRedefinableTemplateSignature, - #superclass : #OPUMLElement, + #name : 'OPUMLRedefinableTemplateSignature', + #superclass : 'OPUMLElement', #instVars : [ 'classifier', 'extendedSignatures', 'inheritedParameters' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableTemplateSignature >> classifier [ "The Classifier that owns this RedefinableTemplateSignature." ^ classifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableTemplateSignature >> classifier: aClassifier [ "The Classifier that owns this RedefinableTemplateSignature." |anOldClassifier| @@ -32,29 +34,29 @@ OPUMLRedefinableTemplateSignature >> classifier: aClassifier [ to: classifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableTemplateSignature >> extendedSignatures [ "The signatures extended by this RedefinableTemplateSignature." ^ extendedSignatures ifNil: [ extendedSignatures := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableTemplateSignature >> extendedSignatures: aRedefinableTemplateSignature [ "The signatures extended by this RedefinableTemplateSignature." extendedSignatures := aRedefinableTemplateSignature ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRedefinableTemplateSignature >> inheritedParameterStub [ "Derivation for RedefinableTemplateSignature::/inheritedParameter" @@ -64,19 +66,19 @@ OPUMLRedefinableTemplateSignature >> inheritedParameterStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableTemplateSignature >> inheritedParameters [ "The formal template parameters of the extended signatures." ^ inheritedParameters ifNil: [ inheritedParameters := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRedefinableTemplateSignature >> inheritedParameters: aTemplateParameter [ "The formal template parameters of the extended signatures." inheritedParameters := aTemplateParameter ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRedefinableTemplateSignature >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #RedefinableElement. @@ -84,7 +86,7 @@ OPUMLRedefinableTemplateSignature >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRedefinableTemplateSignature >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -92,7 +94,7 @@ OPUMLRedefinableTemplateSignature >> initializeSharedGeneralizations [ sharedGeneralizations at: #RedefinableTemplateSignature put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRedefinableTemplateSignature >> isConsistentWithStub [ "The query isConsistentWith() specifies, for any two RedefinableTemplateSignatures in a context in which redefinition is possible, whether redefinition would be logically consistent. A redefining template signature is always consistent with a redefined template signature, as redefinition only adds new formal parameters." @@ -103,112 +105,112 @@ OPUMLRedefinableTemplateSignature >> isConsistentWithStub [ ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRedefinableTemplateSignature >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRedefinableTemplateSignature >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - TemplateSignature' } +{ #category : 'accessing - TemplateSignature' } OPUMLRedefinableTemplateSignature >> ownedParameters [ ^ (sharedGeneralizations at: #TemplateSignature) ownedParameters ] -{ #category : #'accessing - TemplateSignature' } +{ #category : 'accessing - TemplateSignature' } OPUMLRedefinableTemplateSignature >> ownedParameters: aTemplateParameter [ (sharedGeneralizations at: #TemplateSignature) ownedParameters: aTemplateParameter ] -{ #category : #'accessing - TemplateSignature' } +{ #category : 'accessing - TemplateSignature' } OPUMLRedefinableTemplateSignature >> parameters [ ^ (sharedGeneralizations at: #TemplateSignature) parameters ] -{ #category : #'accessing - TemplateSignature' } +{ #category : 'accessing - TemplateSignature' } OPUMLRedefinableTemplateSignature >> parameters: aTemplateParameter [ (sharedGeneralizations at: #TemplateSignature) parameters: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRedefinableTemplateSignature >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRedefinableTemplateSignature >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRedefinableTemplateSignature >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRedefinableTemplateSignature >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - TemplateSignature' } +{ #category : 'accessing - TemplateSignature' } OPUMLRedefinableTemplateSignature >> template [ ^ (sharedGeneralizations at: #TemplateSignature) template ] -{ #category : #'accessing - TemplateSignature' } +{ #category : 'accessing - TemplateSignature' } OPUMLRedefinableTemplateSignature >> template: aTemplateableElement [ (sharedGeneralizations at: #TemplateSignature) template: aTemplateableElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRedefinableTemplateSignature >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReduceAction.class.st b/repository/OP-UML-Metamodel/OPUMLReduceAction.class.st index 75cf68c..af8edc5 100644 --- a/repository/OP-UML-Metamodel/OPUMLReduceAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReduceAction.class.st @@ -2,127 +2,129 @@ A ReduceAction is an Action that reduces a collection to a single value by repeatedly combining the elements of the collection using a reducer Behavior. " Class { - #name : #OPUMLReduceAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReduceAction', + #superclass : 'OPUMLElement', #instVars : [ 'isOrdered', 'result', 'collection', 'reducer' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> collection [ "The InputPin that provides the collection to be reduced." ^ collection ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> collection: anInputPin [ "The InputPin that provides the collection to be reduced." collection := anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReduceAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReduceAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReduceAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReduceAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -132,188 +134,188 @@ OPUMLReduceAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReduceAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReduceAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReduceAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> isOrdered [ "Indicates whether the order of the input collection should determine the order in which the reducer Behavior is applied to its elements." ^ isOrdered ifNil: [ isOrdered := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> isOrdered: aBoolean [ "Indicates whether the order of the input collection should determine the order in which the reducer Behavior is applied to its elements." isOrdered := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReduceAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReduceAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReduceAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReduceAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReduceAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReduceAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> reducer [ "A Behavior that is repreatedly applied to two elements of the input collection to produce a value that is of the same type as elements of the collection." ^ reducer ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> reducer: aBehavior [ "A Behavior that is repreatedly applied to two elements of the input collection to produce a value that is of the same type as elements of the collection." reducer := aBehavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> result [ "The output pin on which the result value is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReduceAction >> result: anOutputPin [ "The output pin on which the result value is placed." result := anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReduceAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLRegion.class.st b/repository/OP-UML-Metamodel/OPUMLRegion.class.st index 9c9cbc7..c52f326 100644 --- a/repository/OP-UML-Metamodel/OPUMLRegion.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRegion.class.st @@ -2,8 +2,8 @@ A Region is a top-level part of a StateMachine or a composite State, that serves as a container for the Vertices and Transitions of the StateMachine. A StateMachine or composite State may contain multiple Regions representing behaviors that may occur in parallel. " Class { - #name : #OPUMLRegion, - #superclass : #OPUMLElement, + #name : 'OPUMLRegion', + #superclass : 'OPUMLElement', #instVars : [ 'extendedRegion', 'transitions', @@ -12,10 +12,12 @@ Class { 'state', 'redefinitionContext' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRegion >> belongsToPSMStub [ "The operation belongsToPSM () checks if the Region belongs to a ProtocolStateMachine." @@ -30,17 +32,17 @@ endif )" ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRegion >> containingStateMachineStub [ "The operation containingStateMachine() returns the StateMachine in which this Region is defined." @@ -55,39 +57,39 @@ endif)" ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> extendedRegion [ "The region of which this region is an extension." ^ extendedRegion ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> extendedRegion: aRegion [ "The region of which this region is an extension." extendedRegion := aRegion ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRegion >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Namespace. @@ -95,7 +97,7 @@ OPUMLRegion >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRegion >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Namespace put: (OPUMLNamespace newOnShared: sharedGeneralizations). @@ -103,7 +105,7 @@ OPUMLRegion >> initializeSharedGeneralizations [ sharedGeneralizations at: #Region put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRegion >> isConsistentWithStub [ "The query isConsistentWith() specifies that a redefining Region is consistent with a redefined Region provided that the redefining Region is an extension of the Redefined region, i.e., its Vertices and Transitions conform to one of the following: (1) they are equal to corresponding elements of the redefined Region or, (2) they consistently redefine a State or Transition of the redefined region, or (3) they add new States or Transitions." @@ -115,17 +117,17 @@ true)" ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRegion >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRegion >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRegion >> isRedefinitionContextValidStub [ "The query isRedefinitionContextValid() specifies whether the redefinition contexts of a Region are properly related to the redefinition contexts of the specified Region to allow this element to redefine the other. The containing StateMachine or State of a redefining Region must Redefine the containing StateMachine or State of the redefined Region." @@ -147,109 +149,109 @@ endif)" ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLRegion >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRegion >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRegion >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> redefinitionContext [ "References the Classifier in which context this element may be redefined." ^ redefinitionContext ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> redefinitionContext: aClassifier [ "References the Classifier in which context this element may be redefined." redefinitionContext := aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLRegion >> redefinitionContextStub [ "The redefinition context of a Region is the nearest containing StateMachine." @@ -264,23 +266,23 @@ endif)" ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRegion >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRegion >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> state [ "The State that owns the Region. If a Region is owned by a State, then it cannot also be owned by a StateMachine." ^ state ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> state: aState [ "The State that owns the Region. If a Region is owned by a State, then it cannot also be owned by a StateMachine." state := OPUMLToOneLink @@ -290,13 +292,13 @@ OPUMLRegion >> state: aState [ to: aState ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> stateMachine [ "The StateMachine that owns the Region. If a Region is owned by a StateMachine, then it cannot also be owned by a State." ^ stateMachine ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> stateMachine: aStateMachine [ "The StateMachine that owns the Region. If a Region is owned by a StateMachine, then it cannot also be owned by a State." stateMachine := OPUMLToOneLink @@ -306,13 +308,13 @@ OPUMLRegion >> stateMachine: aStateMachine [ to: aStateMachine ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> subvertexs [ "The set of Vertices that are owned by this Region." ^ subvertexs ifNil: [ subvertexs := OPUMLToManyLinks on: self identity opposite: #container: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> subvertexs: aVertex [ "The set of Vertices that are owned by this Region." self subvertexs @@ -320,13 +322,13 @@ OPUMLRegion >> subvertexs: aVertex [ addAll: aVertex ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> transitions [ "The set of Transitions owned by the Region." ^ transitions ifNil: [ transitions := OPUMLToManyLinks on: self identity opposite: #container: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRegion >> transitions: aTransition [ "The set of Transitions owned by the Region." self transitions @@ -334,12 +336,12 @@ OPUMLRegion >> transitions: aTransition [ addAll: aTransition ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRegion >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLRelationship.class.st b/repository/OP-UML-Metamodel/OPUMLRelationship.class.st index 9813cba..526a930 100644 --- a/repository/OP-UML-Metamodel/OPUMLRelationship.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRelationship.class.st @@ -2,32 +2,34 @@ Relationship is an abstract concept that specifies some kind of relationship between Elements. " Class { - #name : #OPUMLRelationship, - #superclass : #OPUMLElement, + #name : 'OPUMLRelationship', + #superclass : 'OPUMLElement', #instVars : [ 'relatedElements' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRelationship >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRelationship >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRelationship >> relatedElements [ "Specifies the elements related by the Relationship." ^ relatedElements ifNil: [ relatedElements := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRelationship >> relatedElements: anElement [ "Specifies the elements related by the Relationship." relatedElements := anElement diff --git a/repository/OP-UML-Metamodel/OPUMLRemoveStructuralFeatureValueAction.class.st b/repository/OP-UML-Metamodel/OPUMLRemoveStructuralFeatureValueAction.class.st index 55f732c..5dfb7a7 100644 --- a/repository/OP-UML-Metamodel/OPUMLRemoveStructuralFeatureValueAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRemoveStructuralFeatureValueAction.class.st @@ -2,113 +2,115 @@ A RemoveStructuralFeatureValueAction is a WriteStructuralFeatureAction that removes values from a StructuralFeature. " Class { - #name : #OPUMLRemoveStructuralFeatureValueAction, - #superclass : #OPUMLElement, + #name : 'OPUMLRemoveStructuralFeatureValueAction', + #superclass : 'OPUMLElement', #instVars : [ 'removeAt', 'isRemoveDuplicates' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLRemoveStructuralFeatureValueAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLRemoveStructuralFeatureValueAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRemoveStructuralFeatureValueAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #WriteStructuralFeatureAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRemoveStructuralFeatureValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -120,216 +122,216 @@ OPUMLRemoveStructuralFeatureValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #RemoveStructuralFeatureValueAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveStructuralFeatureValueAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveStructuralFeatureValueAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveStructuralFeatureValueAction >> isRemoveDuplicates [ "Specifies whether to remove duplicates of the value in nonunique StructuralFeatures." ^ isRemoveDuplicates ifNil: [ isRemoveDuplicates := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveStructuralFeatureValueAction >> isRemoveDuplicates: aBoolean [ "Specifies whether to remove duplicates of the value in nonunique StructuralFeatures." isRemoveDuplicates := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> object [ ^ (sharedGeneralizations at: #StructuralFeatureAction) object ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> object: anInputPin [ (sharedGeneralizations at: #StructuralFeatureAction) object: anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveStructuralFeatureValueAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveStructuralFeatureValueAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveStructuralFeatureValueAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveStructuralFeatureValueAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveStructuralFeatureValueAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveStructuralFeatureValueAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveStructuralFeatureValueAction >> removeAt [ "An InputPin that provides the position of an existing value to remove in ordered, nonunique structural features. The type of the removeAt InputPin is UnlimitedNatural, but the value cannot be zero or unlimited." ^ removeAt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveStructuralFeatureValueAction >> removeAt: anInputPin [ "An InputPin that provides the position of an existing value to remove in ordered, nonunique structural features. The type of the removeAt InputPin is UnlimitedNatural, but the value cannot be zero or unlimited." removeAt := anInputPin ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> result [ ^ (sharedGeneralizations at: #WriteStructuralFeatureAction) result ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> result: anOutputPin [ (sharedGeneralizations at: #WriteStructuralFeatureAction) result: anOutputPin ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> structuralFeature [ ^ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> structuralFeature: aStructuralFeature [ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature: aStructuralFeature ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> value [ ^ (sharedGeneralizations at: #WriteStructuralFeatureAction) value ] -{ #category : #'accessing - WriteStructuralFeatureAction' } +{ #category : 'accessing - WriteStructuralFeatureAction' } OPUMLRemoveStructuralFeatureValueAction >> value: anInputPin [ (sharedGeneralizations at: #WriteStructuralFeatureAction) value: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveStructuralFeatureValueAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLRemoveVariableValueAction.class.st b/repository/OP-UML-Metamodel/OPUMLRemoveVariableValueAction.class.st index f1f51e0..4db22b3 100644 --- a/repository/OP-UML-Metamodel/OPUMLRemoveVariableValueAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLRemoveVariableValueAction.class.st @@ -2,113 +2,115 @@ A RemoveVariableValueAction is a WriteVariableAction that removes values from a Variables. " Class { - #name : #OPUMLRemoveVariableValueAction, - #superclass : #OPUMLElement, + #name : 'OPUMLRemoveVariableValueAction', + #superclass : 'OPUMLElement', #instVars : [ 'removeAt', 'isRemoveDuplicates' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLRemoveVariableValueAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLRemoveVariableValueAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRemoveVariableValueAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #WriteVariableAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLRemoveVariableValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -120,196 +122,196 @@ OPUMLRemoveVariableValueAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #RemoveVariableValueAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveVariableValueAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveVariableValueAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveVariableValueAction >> isRemoveDuplicates [ "Specifies whether to remove duplicates of the value in nonunique Variables." ^ isRemoveDuplicates ifNil: [ isRemoveDuplicates := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveVariableValueAction >> isRemoveDuplicates: aBoolean [ "Specifies whether to remove duplicates of the value in nonunique Variables." isRemoveDuplicates := aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLRemoveVariableValueAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveVariableValueAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveVariableValueAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLRemoveVariableValueAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveVariableValueAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLRemoveVariableValueAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveVariableValueAction >> removeAt [ "An InputPin that provides the position of an existing value to remove in ordered, nonunique Variables. The type of the removeAt InputPin is UnlimitedNatural, but the value cannot be zero or unlimited." ^ removeAt ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLRemoveVariableValueAction >> removeAt: anInputPin [ "An InputPin that provides the position of an existing value to remove in ordered, nonunique Variables. The type of the removeAt InputPin is UnlimitedNatural, but the value cannot be zero or unlimited." removeAt := anInputPin ] -{ #category : #'accessing - WriteVariableAction' } +{ #category : 'accessing - WriteVariableAction' } OPUMLRemoveVariableValueAction >> value [ ^ (sharedGeneralizations at: #WriteVariableAction) value ] -{ #category : #'accessing - WriteVariableAction' } +{ #category : 'accessing - WriteVariableAction' } OPUMLRemoveVariableValueAction >> value: anInputPin [ (sharedGeneralizations at: #WriteVariableAction) value: anInputPin ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLRemoveVariableValueAction >> variable [ ^ (sharedGeneralizations at: #VariableAction) variable ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLRemoveVariableValueAction >> variable: aVariable [ (sharedGeneralizations at: #VariableAction) variable: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLRemoveVariableValueAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLReplyAction.class.st b/repository/OP-UML-Metamodel/OPUMLReplyAction.class.st index dceb1f8..a2c7e4a 100644 --- a/repository/OP-UML-Metamodel/OPUMLReplyAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLReplyAction.class.st @@ -2,114 +2,116 @@ A ReplyAction is an Action that accepts a set of reply values and a value containing return information produced by a previous AcceptCallAction. The ReplyAction returns the values to the caller of the previous call, completing execution of the call. " Class { - #name : #OPUMLReplyAction, - #superclass : #OPUMLElement, + #name : 'OPUMLReplyAction', + #superclass : 'OPUMLElement', #instVars : [ 'replyToCall', 'replyValues', 'returnInformation' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReplyAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLReplyAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReplyAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLReplyAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -119,188 +121,188 @@ OPUMLReplyAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ReplyAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReplyAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReplyAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLReplyAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReplyAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReplyAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLReplyAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReplyAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLReplyAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReplyAction >> replyToCall [ "The Trigger specifying the Operation whose call is being replied to." ^ replyToCall ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReplyAction >> replyToCall: aTrigger [ "The Trigger specifying the Operation whose call is being replied to." replyToCall := aTrigger ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReplyAction >> replyValues [ "A list of InputPins providing the values for the output (inout, out, and return) Parameters of the Operation. These values are returned to the caller." ^ replyValues ifNil: [ replyValues := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReplyAction >> replyValues: anInputPin [ "A list of InputPins providing the values for the output (inout, out, and return) Parameters of the Operation. These values are returned to the caller." replyValues := anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReplyAction >> returnInformation [ "An InputPin that holds the return information value produced by an earlier AcceptCallAction." ^ returnInformation ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLReplyAction >> returnInformation: anInputPin [ "An InputPin that holds the return information value produced by an earlier AcceptCallAction." returnInformation := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLReplyAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSendObjectAction.class.st b/repository/OP-UML-Metamodel/OPUMLSendObjectAction.class.st index ccdb498..5d81647 100644 --- a/repository/OP-UML-Metamodel/OPUMLSendObjectAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSendObjectAction.class.st @@ -2,123 +2,125 @@ A SendObjectAction is an InvocationAction that transmits an input object to the target object, which is handled as a request message by the target object. The requestor continues execution immediately after the object is sent out and cannot receive reply values. " Class { - #name : #OPUMLSendObjectAction, - #superclass : #OPUMLElement, + #name : 'OPUMLSendObjectAction', + #superclass : 'OPUMLElement', #instVars : [ 'request', 'target' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendObjectAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendObjectAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLSendObjectAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLSendObjectAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSendObjectAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InvocationAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSendObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -129,186 +131,186 @@ OPUMLSendObjectAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #SendObjectAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendObjectAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendObjectAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendObjectAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendObjectAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendObjectAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendObjectAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendObjectAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendObjectAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendObjectAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendObjectAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendObjectAction >> request [ "The request object, which is transmitted to the target object. The object may be copied in transmission, so identity might not be preserved." ^ request ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendObjectAction >> request: anInputPin [ "The request object, which is transmitted to the target object. The object may be copied in transmission, so identity might not be preserved." request := anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendObjectAction >> target [ "The target object to which the object is sent." ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendObjectAction >> target: anInputPin [ "The target object to which the object is sent." target := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendObjectAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSendSignalAction.class.st b/repository/OP-UML-Metamodel/OPUMLSendSignalAction.class.st index 0afa35a..a1dff16 100644 --- a/repository/OP-UML-Metamodel/OPUMLSendSignalAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSendSignalAction.class.st @@ -2,123 +2,125 @@ A SendSignalAction is an InvocationAction that creates a Signal instance and transmits it to the target object. Values from the argument InputPins are used to provide values for the attributes of the Signal. The requestor continues execution immediately after the Signal instance is sent out and cannot receive reply values. " Class { - #name : #OPUMLSendSignalAction, - #superclass : #OPUMLElement, + #name : 'OPUMLSendSignalAction', + #superclass : 'OPUMLElement', #instVars : [ 'signal', 'target' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendSignalAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendSignalAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLSendSignalAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLSendSignalAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSendSignalAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InvocationAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSendSignalAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -129,186 +131,186 @@ OPUMLSendSignalAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #SendSignalAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendSignalAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendSignalAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendSignalAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLSendSignalAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSendSignalAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendSignalAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendSignalAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSendSignalAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendSignalAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSendSignalAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendSignalAction >> signal [ "The Signal whose instance is transmitted to the target." ^ signal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendSignalAction >> signal: aSignal [ "The Signal whose instance is transmitted to the target." signal := aSignal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendSignalAction >> target [ "The InputPin that provides the target object to which the Signal instance is sent." ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSendSignalAction >> target: anInputPin [ "The InputPin that provides the target object to which the Signal instance is sent." target := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSendSignalAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSequenceNode.class.st b/repository/OP-UML-Metamodel/OPUMLSequenceNode.class.st index b4dfb45..5c65b02 100644 --- a/repository/OP-UML-Metamodel/OPUMLSequenceNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSequenceNode.class.st @@ -2,184 +2,186 @@ A SequenceNode is a StructuredActivityNode that executes a sequence of ExecutableNodes in order. " Class { - #name : #OPUMLSequenceNode, - #superclass : #OPUMLElement, + #name : 'OPUMLSequenceNode', + #superclass : 'OPUMLElement', #instVars : [ 'executableNodes' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> activity [ ^ (sharedGeneralizations at: #StructuredActivityNode) activity ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> activity: anActivity [ (sharedGeneralizations at: #StructuredActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> edges [ ^ (sharedGeneralizations at: #StructuredActivityNode) edges ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> edges: anActivityEdge [ (sharedGeneralizations at: #StructuredActivityNode) edges: anActivityEdge ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSequenceNode >> executableNodes [ "The ordered set of ExecutableNodes to be sequenced." ^ executableNodes ifNil: [ executableNodes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSequenceNode >> executableNodes: anExecutableNode [ "The ordered set of ExecutableNodes to be sequenced." executableNodes := anExecutableNode ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLSequenceNode >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLSequenceNode >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSequenceNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuredActivityNode. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSequenceNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -192,262 +194,262 @@ OPUMLSequenceNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #SequenceNode put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSequenceNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSequenceNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> mustIsolate [ ^ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> mustIsolate: aBoolean [ (sharedGeneralizations at: #StructuredActivityNode) mustIsolate: aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> nodes [ ^ (sharedGeneralizations at: #StructuredActivityNode) nodes ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> nodes: anActivityNode [ (sharedGeneralizations at: #StructuredActivityNode) nodes: anActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLSequenceNode >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSequenceNode >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSequenceNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSequenceNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLSequenceNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSequenceNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSequenceNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> structuredNodeInputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> structuredNodeInputs: anInputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeInputs: anInputPin ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> structuredNodeOutputs [ ^ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> structuredNodeOutputs: anOutputPin [ (sharedGeneralizations at: #StructuredActivityNode) structuredNodeOutputs: anOutputPin ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLSequenceNode >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> variables [ ^ (sharedGeneralizations at: #StructuredActivityNode) variables ] -{ #category : #'accessing - StructuredActivityNode' } +{ #category : 'accessing - StructuredActivityNode' } OPUMLSequenceNode >> variables: aVariable [ (sharedGeneralizations at: #StructuredActivityNode) variables: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSequenceNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSignal.class.st b/repository/OP-UML-Metamodel/OPUMLSignal.class.st index 5ef9d9b..e3b079d 100644 --- a/repository/OP-UML-Metamodel/OPUMLSignal.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSignal.class.st @@ -2,127 +2,129 @@ A Signal is a specification of a kind of communication between objects in which a reaction is asynchronously triggered in the receiver without a reply. " Class { - #name : #OPUMLSignal, - #superclass : #OPUMLElement, + #name : 'OPUMLSignal', + #superclass : 'OPUMLElement', #instVars : [ 'ownedAttributes' ], - #category : 'OP-UML-Metamodel-SimpleClassifiers' + #category : 'OP-UML-Metamodel-SimpleClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'SimpleClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLSignal >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLSignal >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLSignal >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSignal >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSignal >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -135,269 +137,269 @@ OPUMLSignal >> initializeSharedGeneralizations [ sharedGeneralizations at: #Signal put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSignal >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSignal >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSignal >> ownedAttributes [ "The attributes owned by the Signal." ^ ownedAttributes ifNil: [ ownedAttributes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSignal >> ownedAttributes: aProperty [ "The attributes owned by the Signal." ownedAttributes := aProperty ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSignal >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSignal >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLSignal >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLSignal >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLSignal >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLSignal >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignal >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSignal >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSignal >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSignal >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLSignal >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLSignal >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLSignal >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLSignal >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLSignal >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLSignal >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSignalEvent.class.st b/repository/OP-UML-Metamodel/OPUMLSignalEvent.class.st index e6357d6..18b8d38 100644 --- a/repository/OP-UML-Metamodel/OPUMLSignalEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSignalEvent.class.st @@ -2,32 +2,34 @@ A SignalEvent represents the receipt of an asynchronous Signal instance. " Class { - #name : #OPUMLSignalEvent, - #superclass : #OPUMLElement, + #name : 'OPUMLSignalEvent', + #superclass : 'OPUMLElement', #instVars : [ 'signal' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSignalEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MessageEvent. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSignalEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -37,84 +39,84 @@ OPUMLSignalEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #SignalEvent put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSignalEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSignalEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSignalEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSignalEvent >> signal [ "The specific Signal that is associated with this SignalEvent." ^ signal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSignalEvent >> signal: aSignal [ "The specific Signal that is associated with this SignalEvent." signal := aSignal ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSignalEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSignalEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLSignalEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLSignalEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSlot.class.st b/repository/OP-UML-Metamodel/OPUMLSlot.class.st index 0e7a837..784d72a 100644 --- a/repository/OP-UML-Metamodel/OPUMLSlot.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSlot.class.st @@ -2,46 +2,48 @@ A Slot designates that an entity modeled by an InstanceSpecification has a value or values for a specific StructuralFeature. " Class { - #name : #OPUMLSlot, - #superclass : #OPUMLElement, + #name : 'OPUMLSlot', + #superclass : 'OPUMLElement', #instVars : [ 'values', 'owningInstance', 'definingFeature' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSlot >> definingFeature [ "The StructuralFeature that specifies the values that may be held by the Slot." ^ definingFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSlot >> definingFeature: aStructuralFeature [ "The StructuralFeature that specifies the values that may be held by the Slot." definingFeature := aStructuralFeature ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSlot >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSlot >> initializeSharedGeneralizations [ sharedGeneralizations at: #Slot put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSlot >> owningInstance [ "The InstanceSpecification that owns this Slot." ^ owningInstance ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSlot >> owningInstance: anInstanceSpecification [ "The InstanceSpecification that owns this Slot." owningInstance := OPUMLToOneLink @@ -51,13 +53,13 @@ OPUMLSlot >> owningInstance: anInstanceSpecification [ to: anInstanceSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSlot >> values [ "The value or values held by the Slot." ^ values ifNil: [ values := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSlot >> values: aValueSpecification [ "The value or values held by the Slot." values := aValueSpecification diff --git a/repository/OP-UML-Metamodel/OPUMLStartClassifierBehaviorAction.class.st b/repository/OP-UML-Metamodel/OPUMLStartClassifierBehaviorAction.class.st index 13f4670..4436f8b 100644 --- a/repository/OP-UML-Metamodel/OPUMLStartClassifierBehaviorAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStartClassifierBehaviorAction.class.st @@ -2,112 +2,114 @@ A StartClassifierBehaviorAction is an Action that starts the classifierBehavior of the input object. " Class { - #name : #OPUMLStartClassifierBehaviorAction, - #superclass : #OPUMLElement, + #name : 'OPUMLStartClassifierBehaviorAction', + #superclass : 'OPUMLElement', #instVars : [ 'object' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStartClassifierBehaviorAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStartClassifierBehaviorAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStartClassifierBehaviorAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStartClassifierBehaviorAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -117,164 +119,164 @@ OPUMLStartClassifierBehaviorAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #StartClassifierBehaviorAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartClassifierBehaviorAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartClassifierBehaviorAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStartClassifierBehaviorAction >> object [ "The InputPin that holds the object whose classifierBehavior is to be started." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStartClassifierBehaviorAction >> object: anInputPin [ "The InputPin that holds the object whose classifierBehavior is to be started." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartClassifierBehaviorAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartClassifierBehaviorAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartClassifierBehaviorAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartClassifierBehaviorAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartClassifierBehaviorAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartClassifierBehaviorAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartClassifierBehaviorAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStartObjectBehaviorAction.class.st b/repository/OP-UML-Metamodel/OPUMLStartObjectBehaviorAction.class.st index ff1e40d..bc42717 100644 --- a/repository/OP-UML-Metamodel/OPUMLStartObjectBehaviorAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStartObjectBehaviorAction.class.st @@ -2,35 +2,37 @@ A StartObjectBehaviorAction is an InvocationAction that starts the execution either of a directly instantiated Behavior or of the classifierBehavior of an object. Argument values may be supplied for the input Parameters of the Behavior. If the Behavior is invoked synchronously, then output values may be obtained for output Parameters. " Class { - #name : #OPUMLStartObjectBehaviorAction, - #superclass : #OPUMLElement, + #name : 'OPUMLStartObjectBehaviorAction', + #superclass : 'OPUMLElement', #instVars : [ 'object' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLStartObjectBehaviorAction >> arguments [ ^ (sharedGeneralizations at: #InvocationAction) arguments ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLStartObjectBehaviorAction >> arguments: anInputPin [ (sharedGeneralizations at: #InvocationAction) arguments: anInputPin ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStartObjectBehaviorAction >> behaviorStub [ "If the type of the object InputPin is a Behavior, then that Behavior. Otherwise, if the type of the object InputPin is a BehavioredClassifier, then the classifierBehavior of that BehavioredClassifier." @@ -47,94 +49,94 @@ endif)" ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStartObjectBehaviorAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStartObjectBehaviorAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStartObjectBehaviorAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #CallAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStartObjectBehaviorAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -146,7 +148,7 @@ OPUMLStartObjectBehaviorAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #StartObjectBehaviorAction put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStartObjectBehaviorAction >> inputParametersStub [ "Return the in and inout ownedParameters of the Behavior being called." @@ -156,129 +158,129 @@ OPUMLStartObjectBehaviorAction >> inputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartObjectBehaviorAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartObjectBehaviorAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLStartObjectBehaviorAction >> isSynchronous [ ^ (sharedGeneralizations at: #CallAction) isSynchronous ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLStartObjectBehaviorAction >> isSynchronous: aBoolean [ (sharedGeneralizations at: #CallAction) isSynchronous: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStartObjectBehaviorAction >> object [ "An InputPin that holds the object that is either a Behavior to be started or has a classifierBehavior to be started." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStartObjectBehaviorAction >> object: anInputPin [ "An InputPin that holds the object that is either a Behavior to be started or has a classifierBehavior to be started." object := anInputPin ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLStartObjectBehaviorAction >> onPort [ ^ (sharedGeneralizations at: #InvocationAction) onPort ] -{ #category : #'accessing - InvocationAction' } +{ #category : 'accessing - InvocationAction' } OPUMLStartObjectBehaviorAction >> onPort: aPort [ (sharedGeneralizations at: #InvocationAction) onPort: aPort ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStartObjectBehaviorAction >> outputParametersStub [ "Return the inout, out and return ownedParameters of the Behavior being called." @@ -288,72 +290,72 @@ OPUMLStartObjectBehaviorAction >> outputParametersStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStartObjectBehaviorAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartObjectBehaviorAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartObjectBehaviorAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStartObjectBehaviorAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartObjectBehaviorAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStartObjectBehaviorAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLStartObjectBehaviorAction >> results [ ^ (sharedGeneralizations at: #CallAction) results ] -{ #category : #'accessing - CallAction' } +{ #category : 'accessing - CallAction' } OPUMLStartObjectBehaviorAction >> results: anOutputPin [ (sharedGeneralizations at: #CallAction) results: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStartObjectBehaviorAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLState.class.st b/repository/OP-UML-Metamodel/OPUMLState.class.st index ece15a2..58ef8f1 100644 --- a/repository/OP-UML-Metamodel/OPUMLState.class.st +++ b/repository/OP-UML-Metamodel/OPUMLState.class.st @@ -2,8 +2,8 @@ A State models a situation during which some (usually implicit) invariant condition holds. " Class { - #name : #OPUMLState, - #superclass : #OPUMLElement, + #name : 'OPUMLState', + #superclass : 'OPUMLElement', #instVars : [ 'isSubmachineState', 'regions', @@ -21,26 +21,28 @@ Class { 'isOrthogonal', 'stateInvariant' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> connectionPoints [ "The entry and exit Pseudostates of a composite State. These can only be entry or exit Pseudostates, and they must have different names. They can only be defined for composite States." ^ connectionPoints ifNil: [ connectionPoints := OPUMLToManyLinks on: self identity opposite: #state: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> connectionPoints: aPseudostate [ "The entry and exit Pseudostates of a composite State. These can only be entry or exit Pseudostates, and they must have different names. They can only be defined for composite States." self connectionPoints @@ -48,13 +50,13 @@ OPUMLState >> connectionPoints: aPseudostate [ addAll: aPseudostate ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> connections [ "The entry and exit connection points used in conjunction with this (submachine) State, i.e., as targets and sources, respectively, in the Region with the submachine State. A connection point reference references the corresponding definition of a connection point Pseudostate in the StateMachine referenced by the submachine State." ^ connections ifNil: [ connections := OPUMLToManyLinks on: self identity opposite: #state: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> connections: aConnectionPointReference [ "The entry and exit connection points used in conjunction with this (submachine) State, i.e., as targets and sources, respectively, in the Region with the submachine State. A connection point reference references the corresponding definition of a connection point Pseudostate in the StateMachine referenced by the submachine State." self connections @@ -62,17 +64,17 @@ OPUMLState >> connections: aConnectionPointReference [ addAll: aConnectionPointReference ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLState >> container [ ^ (sharedGeneralizations at: #Vertex) container ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLState >> container: aRegion [ (sharedGeneralizations at: #Vertex) container: aRegion ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> containingStateMachineStub [ "The query containingStateMachine() returns the StateMachine that contains the State either directly or transitively." @@ -82,85 +84,85 @@ OPUMLState >> containingStateMachineStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> deferrableTriggers [ "A list of Triggers that are candidates to be retained by the StateMachine if they trigger no Transitions out of the State (not consumed). A deferred Trigger is retained until the StateMachine reaches a State configuration where it is no longer deferred." ^ deferrableTriggers ifNil: [ deferrableTriggers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> deferrableTriggers: aTrigger [ "A list of Triggers that are candidates to be retained by the StateMachine if they trigger no Transitions out of the State (not consumed). A deferred Trigger is retained until the StateMachine reaches a State configuration where it is no longer deferred." deferrableTriggers := aTrigger ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> doActivity [ "An optional Behavior that is executed while being in the State. The execution starts when this State is entered, and ceases either by itself when done, or when the State is exited, whichever comes first." ^ doActivity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> doActivity: aBehavior [ "An optional Behavior that is executed while being in the State. The execution starts when this State is entered, and ceases either by itself when done, or when the State is exited, whichever comes first." doActivity := aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> entry [ "An optional Behavior that is executed whenever this State is entered regardless of the Transition taken to reach the State. If defined, entry Behaviors are always executed to completion prior to any internal Behavior or Transitions performed within the State." ^ entry ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> entry: aBehavior [ "An optional Behavior that is executed whenever this State is entered regardless of the Transition taken to reach the State. If defined, entry Behaviors are always executed to completion prior to any internal Behavior or Transitions performed within the State." entry := aBehavior ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> exit [ "An optional Behavior that is executed whenever this State is exited regardless of which Transition was taken out of the State. If defined, exit Behaviors are always executed to completion only after all internal and transition Behaviors have completed execution." ^ exit ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> exit: aBehavior [ "An optional Behavior that is executed whenever this State is exited regardless of which Transition was taken out of the State. If defined, exit Behaviors are always executed to completion only after all internal and transition Behaviors have completed execution." exit := aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLState >> incomings [ ^ (sharedGeneralizations at: #Vertex) incomings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLState >> incomings: aTransition [ (sharedGeneralizations at: #Vertex) incomings: aTransition ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLState >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #RedefinableElement. @@ -169,7 +171,7 @@ OPUMLState >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLState >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -178,19 +180,19 @@ OPUMLState >> initializeSharedGeneralizations [ sharedGeneralizations at: #State put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isComposite [ "A state with isComposite=true is said to be a composite State. A composite State is a State that contains at least one Region." ^ isComposite ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isComposite: aBoolean [ "A state with isComposite=true is said to be a composite State. A composite State is a State that contains at least one Region." isComposite := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> isCompositeStub [ "A composite State is a State with at least one Region." @@ -200,7 +202,7 @@ OPUMLState >> isCompositeStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> isConsistentWithStub [ "The query isConsistentWith() specifies that a redefining State is consistent with a redefined State provided that the redefining State is an extension of the redefined State A simple State can be redefined (extended) to become a composite State (by adding one or more Regions) and a composite State can be redefined (extended) by adding Regions and by adding Vertices, States, and Transitions to inherited Regions. All States may add or replace entry, exit, and 'doActivity' Behaviors." @@ -212,29 +214,29 @@ true)" ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLState >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLState >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isOrthogonal [ "A State with isOrthogonal=true is said to be an orthogonal composite State An orthogonal composite State contains two or more Regions." ^ isOrthogonal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isOrthogonal: aBoolean [ "A State with isOrthogonal=true is said to be an orthogonal composite State An orthogonal composite State contains two or more Regions." isOrthogonal := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> isOrthogonalStub [ "An orthogonal State is a composite state with at least 2 regions." @@ -244,7 +246,7 @@ OPUMLState >> isOrthogonalStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> isRedefinitionContextValidStub [ "The query isRedefinitionContextValid() specifies whether the redefinition contexts of a State are properly related to the redefinition contexts of the specified State to allow this element to redefine the other. This means that the containing Region of a redefining State must redefine the containing Region of the redefined State." @@ -260,19 +262,19 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isSimple [ "A State with isSimple=true is said to be a simple State A simple State does not have any Regions and it does not refer to any submachine StateMachine." ^ isSimple ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isSimple: aBoolean [ "A State with isSimple=true is said to be a simple State A simple State does not have any Regions and it does not refer to any submachine StateMachine." isSimple := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> isSimpleStub [ "A simple State is a State without any regions." @@ -282,19 +284,19 @@ OPUMLState >> isSimpleStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isSubmachineState [ "A State with isSubmachineState=true is said to be a submachine State Such a State refers to another StateMachine(submachine)." ^ isSubmachineState ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> isSubmachineState: aBoolean [ "A State with isSubmachineState=true is said to be a submachine State Such a State refers to another StateMachine(submachine)." isSubmachineState := aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> isSubmachineStateStub [ "Only submachine State references another StateMachine." @@ -304,131 +306,131 @@ OPUMLState >> isSubmachineStateStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLState >> outgoings [ ^ (sharedGeneralizations at: #Vertex) outgoings ] -{ #category : #'accessing - Vertex' } +{ #category : 'accessing - Vertex' } OPUMLState >> outgoings: aTransition [ (sharedGeneralizations at: #Vertex) outgoings: aTransition ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLState >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLState >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLState >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> redefinedState [ "The State of which this State is a redefinition." ^ redefinedState ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> redefinedState: aState [ "The State of which this State is a redefinition." redefinedState := aState ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> redefinitionContext [ "References the Classifier in which context this element may be redefined." ^ redefinitionContext ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> redefinitionContext: aClassifier [ "References the Classifier in which context this element may be redefined." redefinitionContext := aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLState >> redefinitionContextStub [ "The redefinition context of a State is the nearest containing StateMachine." @@ -443,23 +445,23 @@ endif)" ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLState >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLState >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> regions [ "The Regions owned directly by the State." ^ regions ifNil: [ regions := OPUMLToManyLinks on: self identity opposite: #state: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> regions: aRegion [ "The Regions owned directly by the State." self regions @@ -467,25 +469,25 @@ OPUMLState >> regions: aRegion [ addAll: aRegion ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> stateInvariant [ "Specifies conditions that are always true when this State is the current State. In ProtocolStateMachines state invariants are additional conditions to the preconditions of the outgoing Transitions, and to the postcondition of the incoming Transitions." ^ stateInvariant ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> stateInvariant: aConstraint [ "Specifies conditions that are always true when this State is the current State. In ProtocolStateMachines state invariants are additional conditions to the preconditions of the outgoing Transitions, and to the postcondition of the incoming Transitions." stateInvariant := aConstraint ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> submachine [ "The StateMachine that is to be inserted in place of the (submachine) State." ^ submachine ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLState >> submachine: aStateMachine [ "The StateMachine that is to be inserted in place of the (submachine) State." submachine := OPUMLToOneLink @@ -495,12 +497,12 @@ OPUMLState >> submachine: aStateMachine [ to: aStateMachine ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLState >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStateInvariant.class.st b/repository/OP-UML-Metamodel/OPUMLStateInvariant.class.st index 1457dde..48cb8f8 100644 --- a/repository/OP-UML-Metamodel/OPUMLStateInvariant.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStateInvariant.class.st @@ -2,149 +2,151 @@ A StateInvariant is a runtime constraint on the participants of the Interaction. It may be used to specify a variety of different kinds of Constraints, such as values of Attributes or Variables, internal or external States, and so on. A StateInvariant is an InteractionFragment and it is placed on a Lifeline. " Class { - #name : #OPUMLStateInvariant, - #superclass : #OPUMLElement, + #name : 'OPUMLStateInvariant', + #superclass : 'OPUMLElement', #instVars : [ 'covered', 'invariant' ], - #category : 'OP-UML-Metamodel-Interactions' + #category : 'OP-UML-Metamodel-Interactions', + #package : 'OP-UML-Metamodel', + #tag : 'Interactions' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateInvariant >> covered [ "References the Lifeline on which the StateInvariant appears." ^ covered ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateInvariant >> covered: aLifeline [ "References the Lifeline on which the StateInvariant appears." covered := aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> covereds [ ^ (sharedGeneralizations at: #InteractionFragment) covereds ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> covereds: aLifeline [ (sharedGeneralizations at: #InteractionFragment) covereds: aLifeline ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> enclosingInteraction [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> enclosingInteraction: anInteraction [ (sharedGeneralizations at: #InteractionFragment) enclosingInteraction: anInteraction ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> enclosingOperand [ ^ (sharedGeneralizations at: #InteractionFragment) enclosingOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> enclosingOperand: anInteractionOperand [ (sharedGeneralizations at: #InteractionFragment) enclosingOperand: anInteractionOperand ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> generalOrderings [ ^ (sharedGeneralizations at: #InteractionFragment) generalOrderings ] -{ #category : #'accessing - InteractionFragment' } +{ #category : 'accessing - InteractionFragment' } OPUMLStateInvariant >> generalOrderings: aGeneralOrdering [ (sharedGeneralizations at: #InteractionFragment) generalOrderings: aGeneralOrdering ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStateInvariant >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InteractionFragment. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStateInvariant >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #InteractionFragment put: (OPUMLInteractionFragment newOnShared: sharedGeneralizations). sharedGeneralizations at: #StateInvariant put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateInvariant >> invariant [ "A Constraint that should hold at runtime for this StateInvariant." ^ invariant ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateInvariant >> invariant: aConstraint [ "A Constraint that should hold at runtime for this StateInvariant." invariant := aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateInvariant >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStateMachine.class.st b/repository/OP-UML-Metamodel/OPUMLStateMachine.class.st index 4ef5504..de77685 100644 --- a/repository/OP-UML-Metamodel/OPUMLStateMachine.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStateMachine.class.st @@ -2,18 +2,20 @@ StateMachines can be used to express event-driven behaviors of parts of a system. Behavior is modeled as a traversal of a graph of Vertices interconnected by one or more joined Transition arcs that are triggered by the dispatching of successive Event occurrences. During this traversal, the StateMachine may execute a sequence of Behaviors associated with various elements of the StateMachine. " Class { - #name : #OPUMLStateMachine, - #superclass : #OPUMLElement, + #name : 'OPUMLStateMachine', + #superclass : 'OPUMLElement', #instVars : [ 'regions', 'connectionPoints', 'extendedStateMachines', 'submachineStates' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStateMachine >> LCAStateStub [ "This utility funciton is like the LCA, except that it returns the nearest composite State that contains both input Vertices." @@ -30,7 +32,7 @@ endif endif endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStateMachine >> LCAStub [ "The operation LCA(s1,s2) returns the Region that is the least common ancestor of Vertices s1 and s2, based on the StateMachine containment hierarchy." @@ -48,17 +50,17 @@ endif)" ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStateMachine >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStateMachine >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStateMachine >> ancestorStub [ "The query ancestor(s1, s2) checks whether Vertex s2 is an ancestor of Vertex s1." @@ -80,53 +82,53 @@ endif )" ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStateMachine >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStateMachine >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> connectionPoints [ "The connection points defined for this StateMachine. They represent the interface of the StateMachine when used as part of submachine State" ^ connectionPoints ifNil: [ connectionPoints := OPUMLToManyLinks on: self identity opposite: #stateMachine: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> connectionPoints: aPseudostate [ "The connection points defined for this StateMachine. They represent the interface of the StateMachine when used as part of submachine State" self connectionPoints @@ -134,111 +136,111 @@ OPUMLStateMachine >> connectionPoints: aPseudostate [ addAll: aPseudostate ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> context [ ^ (sharedGeneralizations at: #Behavior) context ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> context: aBehavioredClassifier [ (sharedGeneralizations at: #Behavior) context: aBehavioredClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> extendedStateMachines [ "The StateMachines of which this is an extension." ^ extendedStateMachines ifNil: [ extendedStateMachines := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> extendedStateMachines: aStateMachine [ "The StateMachines of which this is an extension." extendedStateMachines := aStateMachine ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStateMachine >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStateMachine >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Behavior. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStateMachine >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -256,37 +258,37 @@ OPUMLStateMachine >> initializeSharedGeneralizations [ sharedGeneralizations at: #StateMachine put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStateMachine >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStateMachine >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStateMachine >> isConsistentWithStub [ "The query isConsistentWith() specifies that a redefining StateMachine is consistent with a redefined StateMachine provided that the redefining StateMachine is an extension of the redefined StateMachine : Regions are inherited and Regions can be added, inherited Regions can be redefined. In case of multiple redefining StateMachine, extension implies that the redefining StateMachine gets orthogonal Regions for each of the redefined StateMachine." @@ -297,27 +299,27 @@ true)" ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStateMachine >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStateMachine >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStateMachine >> isRedefinitionContextValidStub [ "The query isRedefinitionContextValid() specifies whether the redefinition context of a StateMachine is properly related to the redefinition contexts of the specified StateMachine to allow this element to redefine the other. The context Classifier of a redefining StateMachine must redefine the context Classifier of the redefined StateMachine." @@ -333,318 +335,318 @@ endif)" ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> isReentrant [ ^ (sharedGeneralizations at: #Behavior) isReentrant ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> isReentrant: aBoolean [ (sharedGeneralizations at: #Behavior) isReentrant: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStateMachine >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStateMachine >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStateMachine >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStateMachine >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> ownedParameterSets [ ^ (sharedGeneralizations at: #Behavior) ownedParameterSets ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> ownedParameterSets: aParameterSet [ (sharedGeneralizations at: #Behavior) ownedParameterSets: aParameterSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> ownedParameters [ ^ (sharedGeneralizations at: #Behavior) ownedParameters ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> ownedParameters: aParameter [ (sharedGeneralizations at: #Behavior) ownedParameters: aParameter ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLStateMachine >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLStateMachine >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStateMachine >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStateMachine >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLStateMachine >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLStateMachine >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStateMachine >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStateMachine >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStateMachine >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStateMachine >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> postconditions [ ^ (sharedGeneralizations at: #Behavior) postconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> postconditions: aConstraint [ (sharedGeneralizations at: #Behavior) postconditions: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> preconditions [ ^ (sharedGeneralizations at: #Behavior) preconditions ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> preconditions: aConstraint [ (sharedGeneralizations at: #Behavior) preconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStateMachine >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> redefinedBehaviors [ ^ (sharedGeneralizations at: #Behavior) redefinedBehaviors ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> redefinedBehaviors: aBehavior [ (sharedGeneralizations at: #Behavior) redefinedBehaviors: aBehavior ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStateMachine >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStateMachine >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStateMachine >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStateMachine >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> regions [ "The Regions owned directly by the StateMachine." ^ regions ifNil: [ regions := OPUMLToManyLinks on: self identity opposite: #stateMachine: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> regions: aRegion [ "The Regions owned directly by the StateMachine." self regions @@ -652,43 +654,43 @@ OPUMLStateMachine >> regions: aRegion [ addAll: aRegion ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStateMachine >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStateMachine >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> specification [ ^ (sharedGeneralizations at: #Behavior) specification ] -{ #category : #'accessing - Behavior' } +{ #category : 'accessing - Behavior' } OPUMLStateMachine >> specification: aBehavioralFeature [ (sharedGeneralizations at: #Behavior) specification: aBehavioralFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> submachineStates [ "References the submachine(s) in case of a submachine State. Multiple machines are referenced in case of a concurrent State." ^ submachineStates ifNil: [ submachineStates := OPUMLToManyLinks on: self identity opposite: #submachine: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStateMachine >> submachineStates: aState [ "References the submachine(s) in case of a submachine State. Multiple machines are referenced in case of a concurrent State." self submachineStates @@ -696,62 +698,62 @@ OPUMLStateMachine >> submachineStates: aState [ addAll: aState ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStateMachine >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStateMachine >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStateMachine >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStateMachine >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStateMachine >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStateMachine >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStereotype.class.st b/repository/OP-UML-Metamodel/OPUMLStereotype.class.st index 82ae980..7d4de7f 100644 --- a/repository/OP-UML-Metamodel/OPUMLStereotype.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStereotype.class.st @@ -2,66 +2,68 @@ A stereotype defines how an existing metaclass may be extended, and enables the use of platform or domain specific terminology or notation in place of, or in addition to, the ones used for the extended metaclass. " Class { - #name : #OPUMLStereotype, - #superclass : #OPUMLElement, + #name : 'OPUMLStereotype', + #superclass : 'OPUMLElement', #instVars : [ 'icons', 'profile' ], - #category : 'OP-UML-Metamodel-Packages' + #category : 'OP-UML-Metamodel-Packages', + #package : 'OP-UML-Metamodel', + #tag : 'Packages' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStereotype >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStereotype >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStereotype >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStereotype >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStereotype >> containingProfileStub [ "The query containingProfile returns the closest profile directly or indirectly containing this stereotype." @@ -71,101 +73,101 @@ OPUMLStereotype >> containingProfileStub [ ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> extensions [ ^ (sharedGeneralizations at: #Class) extensions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> extensions: anExtension [ (sharedGeneralizations at: #Class) extensions: anExtension ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStereotype >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStereotype >> icons [ "Stereotype can change the graphical appearance of the extended model element by using attached icons. When this association is not null, it references the location of the icon content to be displayed within diagrams presenting the extended model elements." ^ icons ifNil: [ icons := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStereotype >> icons: anImage [ "Stereotype can change the graphical appearance of the extended model element by using attached icons. When this association is not null, it references the location of the icon content to be displayed within diagrams presenting the extended model elements." icons := anImage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStereotype >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Class. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStereotype >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -182,274 +184,274 @@ OPUMLStereotype >> initializeSharedGeneralizations [ sharedGeneralizations at: #Stereotype put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStereotype >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStereotype >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> isAbstract [ ^ (sharedGeneralizations at: #Class) isAbstract ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> isAbstract: aBoolean [ (sharedGeneralizations at: #Class) isAbstract: aBoolean ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> isActive [ ^ (sharedGeneralizations at: #Class) isActive ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> isActive: aBoolean [ (sharedGeneralizations at: #Class) isActive: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStereotype >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStereotype >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> nestedClassifiers [ ^ (sharedGeneralizations at: #Class) nestedClassifiers ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> nestedClassifiers: aClassifier [ (sharedGeneralizations at: #Class) nestedClassifiers: aClassifier ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> ownedAttributes [ ^ (sharedGeneralizations at: #Class) ownedAttributes ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> ownedAttributes: aProperty [ (sharedGeneralizations at: #Class) ownedAttributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStereotype >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLStereotype >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStereotype >> ownedConnectors [ ^ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStereotype >> ownedConnectors: aConnector [ (sharedGeneralizations at: #StructuredClassifier) ownedConnectors: aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> ownedOperations [ ^ (sharedGeneralizations at: #Class) ownedOperations ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> ownedOperations: anOperation [ (sharedGeneralizations at: #Class) ownedOperations: anOperation ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLStereotype >> ownedPorts [ ^ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts ] -{ #category : #'accessing - EncapsulatedClassifier' } +{ #category : 'accessing - EncapsulatedClassifier' } OPUMLStereotype >> ownedPorts: aPort [ (sharedGeneralizations at: #EncapsulatedClassifier) ownedPorts: aPort ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> ownedReceptions [ ^ (sharedGeneralizations at: #Class) ownedReceptions ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> ownedReceptions: aReception [ (sharedGeneralizations at: #Class) ownedReceptions: aReception ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStereotype >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStereotype >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLStereotype >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLStereotype >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStereotype >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStereotype >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStereotype >> parts [ ^ (sharedGeneralizations at: #StructuredClassifier) parts ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStereotype >> parts: aProperty [ (sharedGeneralizations at: #StructuredClassifier) parts: aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStereotype >> profile [ "The profile that directly or indirectly contains this stereotype." ^ profile ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStereotype >> profile: aProfile [ "The profile that directly or indirectly contains this stereotype." profile := aProfile ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStereotype >> profileStub [ "A stereotype must be contained, directly or indirectly, in a profile." @@ -459,122 +461,122 @@ OPUMLStereotype >> profileStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStereotype >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStereotype >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStereotype >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStereotype >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStereotype >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStereotype >> roles [ ^ (sharedGeneralizations at: #StructuredClassifier) roles ] -{ #category : #'accessing - StructuredClassifier' } +{ #category : 'accessing - StructuredClassifier' } OPUMLStereotype >> roles: aConnectableElement [ (sharedGeneralizations at: #StructuredClassifier) roles: aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> superClasses [ ^ (sharedGeneralizations at: #Class) superClasses ] -{ #category : #'accessing - Class' } +{ #category : 'accessing - Class' } OPUMLStereotype >> superClasses: aClass [ (sharedGeneralizations at: #Class) superClasses: aClass ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStereotype >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStereotype >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStereotype >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStereotype >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStereotype >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStringExpression.class.st b/repository/OP-UML-Metamodel/OPUMLStringExpression.class.st index 62ce067..564a166 100644 --- a/repository/OP-UML-Metamodel/OPUMLStringExpression.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStringExpression.class.st @@ -2,31 +2,33 @@ A StringExpression is an Expression that specifies a String value that is derived by concatenating a sequence of operands with String values or a sequence of subExpressions, some of which might be template parameters. " Class { - #name : #OPUMLStringExpression, - #superclass : #OPUMLElement, + #name : 'OPUMLStringExpression', + #superclass : 'OPUMLElement', #instVars : [ 'subExpressions', 'owningExpression' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStringExpression >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TemplateableElement. @@ -34,7 +36,7 @@ OPUMLStringExpression >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStringExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -46,78 +48,78 @@ OPUMLStringExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #StringExpression put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Expression' } +{ #category : 'accessing - Expression' } OPUMLStringExpression >> operands [ ^ (sharedGeneralizations at: #Expression) operands ] -{ #category : #'accessing - Expression' } +{ #category : 'accessing - Expression' } OPUMLStringExpression >> operands: aValueSpecification [ (sharedGeneralizations at: #Expression) operands: aValueSpecification ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStringExpression >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStringExpression >> ownedTemplateSignature: aTemplateSignature [ (sharedGeneralizations at: #TemplateableElement) ownedTemplateSignature: aTemplateSignature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStringExpression >> owningExpression [ "The StringExpression of which this StringExpression is a subExpression." ^ owningExpression ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStringExpression >> owningExpression: aStringExpression [ "The StringExpression of which this StringExpression is a subExpression." owningExpression := OPUMLToOneLink @@ -127,37 +129,37 @@ OPUMLStringExpression >> owningExpression: aStringExpression [ to: aStringExpression ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStringExpression >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStringExpression >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStringExpression >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStringExpression >> stringValueStub [ "The query stringValue() returns the String resulting from concatenating, in order, all the component String values of all the operands or subExpressions that are part of the StringExpression." @@ -170,13 +172,13 @@ endif)" ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStringExpression >> subExpressions [ "The StringExpressions that constitute this StringExpression." ^ subExpressions ifNil: [ subExpressions := OPUMLToManyLinks on: self identity opposite: #owningExpression: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStringExpression >> subExpressions: aStringExpression [ "The StringExpressions that constitute this StringExpression." self subExpressions @@ -184,57 +186,57 @@ OPUMLStringExpression >> subExpressions: aStringExpression [ addAll: aStringExpression ] -{ #category : #'accessing - Expression' } +{ #category : 'accessing - Expression' } OPUMLStringExpression >> symbol [ ^ (sharedGeneralizations at: #Expression) symbol ] -{ #category : #'accessing - Expression' } +{ #category : 'accessing - Expression' } OPUMLStringExpression >> symbol: aString [ (sharedGeneralizations at: #Expression) symbol: aString ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStringExpression >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStringExpression >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStringExpression >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStringExpression >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLStringExpression >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLStringExpression >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLStringExpression >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStringExpression >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStringExpression >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStructuralFeature.class.st b/repository/OP-UML-Metamodel/OPUMLStructuralFeature.class.st index caaa74d..deb3622 100644 --- a/repository/OP-UML-Metamodel/OPUMLStructuralFeature.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStructuralFeature.class.st @@ -2,35 +2,37 @@ A StructuralFeature is a typed feature of a Classifier that specifies the structure of instances of the Classifier. " Class { - #name : #OPUMLStructuralFeature, - #superclass : #OPUMLElement, + #name : 'OPUMLStructuralFeature', + #superclass : 'OPUMLElement', #instVars : [ 'isReadOnly' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLStructuralFeature >> featuringClassifier [ ^ (sharedGeneralizations at: #Feature) featuringClassifier ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLStructuralFeature >> featuringClassifier: aClassifier [ (sharedGeneralizations at: #Feature) featuringClassifier: aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuralFeature >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #MultiplicityElement. @@ -39,7 +41,7 @@ OPUMLStructuralFeature >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuralFeature >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -49,189 +51,189 @@ OPUMLStructuralFeature >> initializeSharedGeneralizations [ sharedGeneralizations at: #StructuralFeature put: self. ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeature >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeature >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLStructuralFeature >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuralFeature >> isReadOnly [ "If isReadOnly is true, the StructuralFeature may not be written to after initialization." ^ isReadOnly ifNil: [ isReadOnly := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuralFeature >> isReadOnly: aBoolean [ "If isReadOnly is true, the StructuralFeature may not be written to after initialization." isReadOnly := aBoolean ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLStructuralFeature >> isStatic [ ^ (sharedGeneralizations at: #Feature) isStatic ] -{ #category : #'accessing - Feature' } +{ #category : 'accessing - Feature' } OPUMLStructuralFeature >> isStatic: aBoolean [ (sharedGeneralizations at: #Feature) isStatic: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLStructuralFeature >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLStructuralFeature >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeature >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeature >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeature >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeature >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLStructuralFeature >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLStructuralFeature >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLStructuralFeature >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLStructuralFeature >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLStructuralFeature >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeature >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStructuralFeatureAction.class.st b/repository/OP-UML-Metamodel/OPUMLStructuralFeatureAction.class.st index 3c3e191..e4c82cf 100644 --- a/repository/OP-UML-Metamodel/OPUMLStructuralFeatureAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStructuralFeatureAction.class.st @@ -2,113 +2,115 @@ StructuralFeatureAction is an abstract class for all Actions that operate on StructuralFeatures. " Class { - #name : #OPUMLStructuralFeatureAction, - #superclass : #OPUMLElement, + #name : 'OPUMLStructuralFeatureAction', + #superclass : 'OPUMLElement', #instVars : [ 'object', 'structuralFeature' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStructuralFeatureAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStructuralFeatureAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuralFeatureAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,176 +120,176 @@ OPUMLStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #StructuralFeatureAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeatureAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeatureAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuralFeatureAction >> object [ "The InputPin from which the object whose StructuralFeature is to be read or written is obtained." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuralFeatureAction >> object: anInputPin [ "The InputPin from which the object whose StructuralFeature is to be read or written is obtained." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuralFeatureAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeatureAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeatureAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuralFeatureAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeatureAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuralFeatureAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuralFeatureAction >> structuralFeature [ "The StructuralFeature to be read or written." ^ structuralFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuralFeatureAction >> structuralFeature: aStructuralFeature [ "The StructuralFeature to be read or written." structuralFeature := aStructuralFeature ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuralFeatureAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStructuredActivityNode.class.st b/repository/OP-UML-Metamodel/OPUMLStructuredActivityNode.class.st index 81afead..7140eba 100644 --- a/repository/OP-UML-Metamodel/OPUMLStructuredActivityNode.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStructuredActivityNode.class.st @@ -2,8 +2,8 @@ A StructuredActivityNode is an Action that is also an ActivityGroup and whose behavior is specified by the ActivityNodes and ActivityEdges it so contains. Unlike other kinds of ActivityGroup, a StructuredActivityNode owns the ActivityNodes and ActivityEdges it contains, and so a node or edge can only be directly contained in one StructuredActivityNode, though StructuredActivityNodes may be nested. " Class { - #name : #OPUMLStructuredActivityNode, - #superclass : #OPUMLElement, + #name : 'OPUMLStructuredActivityNode', + #superclass : 'OPUMLElement', #instVars : [ 'activity', 'mustIsolate', @@ -13,16 +13,18 @@ Class { 'variables', 'structuredNodeOutputs' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> activity [ "The Activity immediately containing the StructuredActivityNode, if it is not contained in another StructuredActivityNode." ^ activity ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> activity: anActivity [ "The Activity immediately containing the StructuredActivityNode, if it is not contained in another StructuredActivityNode." activity := OPUMLToOneLink @@ -32,7 +34,7 @@ OPUMLStructuredActivityNode >> activity: anActivity [ to: anActivity ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredActivityNode >> allActionsStub [ "Returns this StructuredActivityNode and all Actions contained in it." @@ -42,7 +44,7 @@ OPUMLStructuredActivityNode >> allActionsStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredActivityNode >> allOwnedNodesStub [ "Returns all the ActivityNodes contained directly or indirectly within this StructuredActivityNode, in addition to the Pins of the StructuredActivityNode." @@ -52,37 +54,37 @@ OPUMLStructuredActivityNode >> allOwnedNodesStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> containedEdges [ ^ (sharedGeneralizations at: #ActivityGroup) containedEdges ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> containedEdges: anActivityEdge [ (sharedGeneralizations at: #ActivityGroup) containedEdges: anActivityEdge ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> containedNodes [ ^ (sharedGeneralizations at: #ActivityGroup) containedNodes ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> containedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityGroup) containedNodes: anActivityNode ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredActivityNode >> containingActivityStub [ "The Activity that directly or indirectly contains this StructuredActivityNode (considered as an Action)." @@ -92,23 +94,23 @@ OPUMLStructuredActivityNode >> containingActivityStub [ ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> edges [ "The ActivityEdges immediately contained in the StructuredActivityNode." ^ edges ifNil: [ edges := OPUMLToManyLinks on: self identity opposite: #inStructuredNode: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> edges: anActivityEdge [ "The ActivityEdges immediately contained in the StructuredActivityNode." self edges @@ -116,97 +118,97 @@ OPUMLStructuredActivityNode >> edges: anActivityEdge [ addAll: anActivityEdge ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStructuredActivityNode >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLStructuredActivityNode >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> inActivity [ ^ (sharedGeneralizations at: #ActivityGroup) inActivity ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> inActivity: anActivity [ (sharedGeneralizations at: #ActivityGroup) inActivity: anActivity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuredActivityNode >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Namespace. @@ -215,7 +217,7 @@ OPUMLStructuredActivityNode >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuredActivityNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -227,117 +229,117 @@ OPUMLStructuredActivityNode >> initializeSharedGeneralizations [ sharedGeneralizations at: #StructuredActivityNode put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredActivityNode >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredActivityNode >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> mustIsolate [ "If true, then any object used by an Action within the StructuredActivityNode cannot be accessed by any Action outside the node until the StructuredActivityNode as a whole completes. Any concurrent Actions that would result in accessing such objects are required to have their execution deferred until the completion of the StructuredActivityNode. " ^ mustIsolate ifNil: [ mustIsolate := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> mustIsolate: aBoolean [ "If true, then any object used by an Action within the StructuredActivityNode cannot be accessed by any Action outside the node until the StructuredActivityNode as a whole completes. Any concurrent Actions that would result in accessing such objects are required to have their execution deferred until the completion of the StructuredActivityNode. " mustIsolate := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> nodes [ "The ActivityNodes immediately contained in the StructuredActivityNode." ^ nodes ifNil: [ nodes := OPUMLToManyLinks on: self identity opposite: #inStructuredNode: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> nodes: anActivityNode [ "The ActivityNodes immediately contained in the StructuredActivityNode." self nodes @@ -345,97 +347,97 @@ OPUMLStructuredActivityNode >> nodes: anActivityNode [ addAll: anActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLStructuredActivityNode >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredActivityNode >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredActivityNode >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredActivityNode >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLStructuredActivityNode >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredActivityNode >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredActivityNode >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredActivityNode >> sourceNodesStub [ "Return those ActivityNodes contained immediately within the StructuredActivityNode that may act as sources of edges owned by the StructuredActivityNode." @@ -446,51 +448,51 @@ OPUMLStructuredActivityNode >> sourceNodesStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> structuredNodeInputs [ "The InputPins owned by the StructuredActivityNode." ^ structuredNodeInputs ifNil: [ structuredNodeInputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> structuredNodeInputs: anInputPin [ "The InputPins owned by the StructuredActivityNode." structuredNodeInputs := anInputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> structuredNodeOutputs [ "The OutputPins owned by the StructuredActivityNode." ^ structuredNodeOutputs ifNil: [ structuredNodeOutputs := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> structuredNodeOutputs: anOutputPin [ "The OutputPins owned by the StructuredActivityNode." structuredNodeOutputs := anOutputPin ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> subgroups [ ^ (sharedGeneralizations at: #ActivityGroup) subgroups ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> subgroups: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) subgroups: anActivityGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> superGroup [ ^ (sharedGeneralizations at: #ActivityGroup) superGroup ] -{ #category : #'accessing - ActivityGroup' } +{ #category : 'accessing - ActivityGroup' } OPUMLStructuredActivityNode >> superGroup: anActivityGroup [ (sharedGeneralizations at: #ActivityGroup) superGroup: anActivityGroup ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredActivityNode >> targetNodesStub [ "Return those ActivityNodes contained immediately within the StructuredActivityNode that may act as targets of edges owned by the StructuredActivityNode." @@ -501,13 +503,13 @@ OPUMLStructuredActivityNode >> targetNodesStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> variables [ "The Variables defined in the scope of the StructuredActivityNode." ^ variables ifNil: [ variables := OPUMLToManyLinks on: self identity opposite: #scope: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredActivityNode >> variables: aVariable [ "The Variables defined in the scope of the StructuredActivityNode." self variables @@ -515,12 +517,12 @@ OPUMLStructuredActivityNode >> variables: aVariable [ addAll: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredActivityNode >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLStructuredClassifier.class.st b/repository/OP-UML-Metamodel/OPUMLStructuredClassifier.class.st index f1f8c71..c5401d5 100644 --- a/repository/OP-UML-Metamodel/OPUMLStructuredClassifier.class.st +++ b/repository/OP-UML-Metamodel/OPUMLStructuredClassifier.class.st @@ -2,28 +2,30 @@ StructuredClassifiers may contain an internal structure of connected elements each of which plays a role in the overall Behavior modeled by the StructuredClassifier. " Class { - #name : #OPUMLStructuredClassifier, - #superclass : #OPUMLElement, + #name : 'OPUMLStructuredClassifier', + #superclass : 'OPUMLElement', #instVars : [ 'ownedAttributes', 'roles', 'parts', 'ownedConnectors' ], - #category : 'OP-UML-Metamodel-StructuredClassifiers' + #category : 'OP-UML-Metamodel-StructuredClassifiers', + #package : 'OP-UML-Metamodel', + #tag : 'StructuredClassifiers' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStructuredClassifier >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStructuredClassifier >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredClassifier >> allRolesStub [ "All features of type ConnectableElement, equivalent to all direct and inherited roles." @@ -33,109 +35,109 @@ OPUMLStructuredClassifier >> allRolesStub [ ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStructuredClassifier >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuredClassifier >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Classifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLStructuredClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -148,176 +150,176 @@ OPUMLStructuredClassifier >> initializeSharedGeneralizations [ sharedGeneralizations at: #StructuredClassifier put: self. ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredClassifier >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredClassifier >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> ownedAttributes [ "The Properties owned by the StructuredClassifier." ^ ownedAttributes ifNil: [ ownedAttributes := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> ownedAttributes: aProperty [ "The Properties owned by the StructuredClassifier." ownedAttributes := aProperty ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> ownedConnectors [ "The connectors owned by the StructuredClassifier." ^ ownedConnectors ifNil: [ ownedConnectors := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> ownedConnectors: aConnector [ "The connectors owned by the StructuredClassifier." ownedConnectors := aConnector ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStructuredClassifier >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLStructuredClassifier >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLStructuredClassifier >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLStructuredClassifier >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLStructuredClassifier >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLStructuredClassifier >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLStructuredClassifier >> partStub [ "Derivation for StructuredClassifier::/part" @@ -327,136 +329,136 @@ OPUMLStructuredClassifier >> partStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> parts [ "The Properties specifying instances that the StructuredClassifier owns by composition. This collection is derived, selecting those owned Properties where isComposite is true." ^ parts ifNil: [ parts := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> parts: aProperty [ "The Properties specifying instances that the StructuredClassifier owns by composition. This collection is derived, selecting those owned Properties where isComposite is true." parts := aProperty ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLStructuredClassifier >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredClassifier >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredClassifier >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredClassifier >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLStructuredClassifier >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> roles [ "The roles that instances may play in this StructuredClassifier." ^ roles ifNil: [ roles := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLStructuredClassifier >> roles: aConnectableElement [ "The roles that instances may play in this StructuredClassifier." roles := aConnectableElement ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStructuredClassifier >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLStructuredClassifier >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLStructuredClassifier >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStructuredClassifier >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLStructuredClassifier >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLSubstitution.class.st b/repository/OP-UML-Metamodel/OPUMLSubstitution.class.st index 5e19850..739ade0 100644 --- a/repository/OP-UML-Metamodel/OPUMLSubstitution.class.st +++ b/repository/OP-UML-Metamodel/OPUMLSubstitution.class.st @@ -2,55 +2,57 @@ A substitution is a relationship between two classifiers signifying that the substituting classifier complies with the contract specified by the contract classifier. This implies that instances of the substituting classifier are runtime substitutable where instances of the contract classifier are expected. " Class { - #name : #OPUMLSubstitution, - #superclass : #OPUMLElement, + #name : 'OPUMLSubstitution', + #superclass : 'OPUMLElement', #instVars : [ 'contract', 'substitutingClassifier' ], - #category : 'OP-UML-Metamodel-Classification' + #category : 'OP-UML-Metamodel-Classification', + #package : 'OP-UML-Metamodel', + #tag : 'Classification' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLSubstitution >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLSubstitution >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSubstitution >> contract [ "The contract with which the substituting classifier complies." ^ contract ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSubstitution >> contract: aClassifier [ "The contract with which the substituting classifier complies." contract := aClassifier ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSubstitution >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Realization. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLSubstitution >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -63,93 +65,93 @@ OPUMLSubstitution >> initializeSharedGeneralizations [ sharedGeneralizations at: #Substitution put: self. ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLSubstitution >> mapping [ ^ (sharedGeneralizations at: #Abstraction) mapping ] -{ #category : #'accessing - Abstraction' } +{ #category : 'accessing - Abstraction' } OPUMLSubstitution >> mapping: anOpaqueExpression [ (sharedGeneralizations at: #Abstraction) mapping: anOpaqueExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSubstitution >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSubstitution >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLSubstitution >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLSubstitution >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLSubstitution >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLSubstitution >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLSubstitution >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSubstitution >> substitutingClassifier [ "Instances of the substituting classifier are runtime substitutable where instances of the contract classifier are expected." ^ substitutingClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLSubstitution >> substitutingClassifier: aClassifier [ "Instances of the substituting classifier are runtime substitutable where instances of the contract classifier are expected." substitutingClassifier := OPUMLToOneLink @@ -159,42 +161,42 @@ OPUMLSubstitution >> substitutingClassifier: aClassifier [ to: aClassifier ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLSubstitution >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLSubstitution >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLSubstitution >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLSubstitution >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSubstitution >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLSubstitution >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLSubstitution >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLSubstitution >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTemplateBinding.class.st b/repository/OP-UML-Metamodel/OPUMLTemplateBinding.class.st index bf81b09..e047023 100644 --- a/repository/OP-UML-Metamodel/OPUMLTemplateBinding.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTemplateBinding.class.st @@ -2,23 +2,25 @@ A TemplateBinding is a DirectedRelationship between a TemplateableElement and a template. A TemplateBinding specifies the TemplateParameterSubstitutions of actual parameters for the formal parameters of the template. " Class { - #name : #OPUMLTemplateBinding, - #superclass : #OPUMLElement, + #name : 'OPUMLTemplateBinding', + #superclass : 'OPUMLElement', #instVars : [ 'parameterSubstitutions', 'signature', 'boundElement' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateBinding >> boundElement [ "The TemplateableElement that is bound by this TemplateBinding." ^ boundElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateBinding >> boundElement: aTemplateableElement [ "The TemplateableElement that is bound by this TemplateBinding." boundElement := OPUMLToOneLink @@ -28,27 +30,27 @@ OPUMLTemplateBinding >> boundElement: aTemplateableElement [ to: aTemplateableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateBinding >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #DirectedRelationship. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateBinding >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #DirectedRelationship put: (OPUMLDirectedRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #TemplateBinding put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateBinding >> parameterSubstitutions [ "The TemplateParameterSubstitutions owned by this TemplateBinding." ^ parameterSubstitutions ifNil: [ parameterSubstitutions := OPUMLToManyLinks on: self identity opposite: #templateBinding: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateBinding >> parameterSubstitutions: aTemplateParameterSubstitution [ "The TemplateParameterSubstitutions owned by this TemplateBinding." self parameterSubstitutions @@ -56,44 +58,44 @@ OPUMLTemplateBinding >> parameterSubstitutions: aTemplateParameterSubstitution [ addAll: aTemplateParameterSubstitution ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLTemplateBinding >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLTemplateBinding >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateBinding >> signature [ "The TemplateSignature for the template that is the target of this TemplateBinding." ^ signature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateBinding >> signature: aTemplateSignature [ "The TemplateSignature for the template that is the target of this TemplateBinding." signature := aTemplateSignature ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLTemplateBinding >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLTemplateBinding >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLTemplateBinding >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLTemplateBinding >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] diff --git a/repository/OP-UML-Metamodel/OPUMLTemplateParameter.class.st b/repository/OP-UML-Metamodel/OPUMLTemplateParameter.class.st index 6c04fc8..11f4454 100644 --- a/repository/OP-UML-Metamodel/OPUMLTemplateParameter.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTemplateParameter.class.st @@ -2,8 +2,8 @@ A TemplateParameter exposes a ParameterableElement as a formal parameter of a template. " Class { - #name : #OPUMLTemplateParameter, - #superclass : #OPUMLElement, + #name : 'OPUMLTemplateParameter', + #superclass : 'OPUMLElement', #instVars : [ 'default', 'ownedParameteredElement', @@ -11,51 +11,53 @@ Class { 'parameteredElement', 'signature' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> default [ "The ParameterableElement that is the default for this formal TemplateParameter." ^ default ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> default: aParameterableElement [ "The ParameterableElement that is the default for this formal TemplateParameter." default := aParameterableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateParameter >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateParameter >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateParameter put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> ownedDefault [ "The ParameterableElement that is owned by this TemplateParameter for the purpose of providing a default." ^ ownedDefault ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> ownedDefault: aParameterableElement [ "The ParameterableElement that is owned by this TemplateParameter for the purpose of providing a default." ownedDefault := aParameterableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> ownedParameteredElement [ "The ParameterableElement that is owned by this TemplateParameter for the purpose of exposing it as the parameteredElement." ^ ownedParameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> ownedParameteredElement: aParameterableElement [ "The ParameterableElement that is owned by this TemplateParameter for the purpose of exposing it as the parameteredElement." |anOldOwnedParameteredElement| @@ -69,13 +71,13 @@ OPUMLTemplateParameter >> ownedParameteredElement: aParameterableElement [ to: ownedParameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> parameteredElement [ "The ParameterableElement exposed by this TemplateParameter." ^ parameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> parameteredElement: aParameterableElement [ "The ParameterableElement exposed by this TemplateParameter." |anOldParameteredElement| @@ -89,13 +91,13 @@ OPUMLTemplateParameter >> parameteredElement: aParameterableElement [ to: parameteredElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> signature [ "The TemplateSignature that owns this TemplateParameter." ^ signature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameter >> signature: aTemplateSignature [ "The TemplateSignature that owns this TemplateParameter." signature := OPUMLToOneLink diff --git a/repository/OP-UML-Metamodel/OPUMLTemplateParameterSubstitution.class.st b/repository/OP-UML-Metamodel/OPUMLTemplateParameterSubstitution.class.st index 3acd4ae..10d8b69 100644 --- a/repository/OP-UML-Metamodel/OPUMLTemplateParameterSubstitution.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTemplateParameterSubstitution.class.st @@ -2,71 +2,73 @@ A TemplateParameterSubstitution relates the actual parameter to a formal TemplateParameter as part of a template binding. " Class { - #name : #OPUMLTemplateParameterSubstitution, - #superclass : #OPUMLElement, + #name : 'OPUMLTemplateParameterSubstitution', + #superclass : 'OPUMLElement', #instVars : [ 'formal', 'ownedActual', 'templateBinding', 'actual' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> actual [ "The ParameterableElement that is the actual parameter for this TemplateParameterSubstitution." ^ actual ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> actual: aParameterableElement [ "The ParameterableElement that is the actual parameter for this TemplateParameterSubstitution." actual := aParameterableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> formal [ "The formal TemplateParameter that is associated with this TemplateParameterSubstitution." ^ formal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> formal: aTemplateParameter [ "The formal TemplateParameter that is associated with this TemplateParameterSubstitution." formal := aTemplateParameter ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateParameterSubstitution >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateParameterSubstitution >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateParameterSubstitution put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> ownedActual [ "The ParameterableElement that is owned by this TemplateParameterSubstitution as its actual parameter." ^ ownedActual ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> ownedActual: aParameterableElement [ "The ParameterableElement that is owned by this TemplateParameterSubstitution as its actual parameter." ownedActual := aParameterableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> templateBinding [ "The TemplateBinding that owns this TemplateParameterSubstitution." ^ templateBinding ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateParameterSubstitution >> templateBinding: aTemplateBinding [ "The TemplateBinding that owns this TemplateParameterSubstitution." templateBinding := OPUMLToOneLink diff --git a/repository/OP-UML-Metamodel/OPUMLTemplateSignature.class.st b/repository/OP-UML-Metamodel/OPUMLTemplateSignature.class.st index 696ed77..daf87ee 100644 --- a/repository/OP-UML-Metamodel/OPUMLTemplateSignature.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTemplateSignature.class.st @@ -2,34 +2,36 @@ A Template Signature bundles the set of formal TemplateParameters for a template. " Class { - #name : #OPUMLTemplateSignature, - #superclass : #OPUMLElement, + #name : 'OPUMLTemplateSignature', + #superclass : 'OPUMLElement', #instVars : [ 'parameters', 'template', 'ownedParameters' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateSignature >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateSignature >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateSignature put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateSignature >> ownedParameters [ "The formal parameters that are owned by this TemplateSignature." ^ ownedParameters ifNil: [ ownedParameters := OPUMLToManyLinks on: self identity opposite: #signature: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateSignature >> ownedParameters: aTemplateParameter [ "The formal parameters that are owned by this TemplateSignature." self ownedParameters @@ -37,25 +39,25 @@ OPUMLTemplateSignature >> ownedParameters: aTemplateParameter [ addAll: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateSignature >> parameters [ "The ordered set of all formal TemplateParameters for this TemplateSignature." ^ parameters ifNil: [ parameters := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateSignature >> parameters: aTemplateParameter [ "The ordered set of all formal TemplateParameters for this TemplateSignature." parameters := aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateSignature >> template [ "The TemplateableElement that owns this TemplateSignature." ^ template ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateSignature >> template: aTemplateableElement [ "The TemplateableElement that owns this TemplateSignature." |anOldTemplate| diff --git a/repository/OP-UML-Metamodel/OPUMLTemplateableElement.class.st b/repository/OP-UML-Metamodel/OPUMLTemplateableElement.class.st index adf321f..8fd6831 100644 --- a/repository/OP-UML-Metamodel/OPUMLTemplateableElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTemplateableElement.class.st @@ -2,27 +2,29 @@ A TemplateableElement is an Element that can optionally be defined as a template and bound to other templates. " Class { - #name : #OPUMLTemplateableElement, - #superclass : #OPUMLElement, + #name : 'OPUMLTemplateableElement', + #superclass : 'OPUMLElement', #instVars : [ 'ownedTemplateSignature', 'templateBindings' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateableElement >> initializeDirectGeneralizations [ directGeneralizations := { } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTemplateableElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #TemplateableElement put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLTemplateableElement >> isTemplateStub [ "The query isTemplate() returns whether this TemplateableElement is actually a template." @@ -32,13 +34,13 @@ OPUMLTemplateableElement >> isTemplateStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateableElement >> ownedTemplateSignature [ "The optional TemplateSignature specifying the formal TemplateParameters for this TemplateableElement. If a TemplateableElement has a TemplateSignature, then it is a template." ^ ownedTemplateSignature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateableElement >> ownedTemplateSignature: aTemplateSignature [ "The optional TemplateSignature specifying the formal TemplateParameters for this TemplateableElement. If a TemplateableElement has a TemplateSignature, then it is a template." |anOldOwnedTemplateSignature| @@ -52,7 +54,7 @@ OPUMLTemplateableElement >> ownedTemplateSignature: aTemplateSignature [ to: ownedTemplateSignature ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLTemplateableElement >> parameterableElementsStub [ "The query parameterableElements() returns the set of ParameterableElements that may be used as the parameteredElements for a TemplateParameter of this TemplateableElement. By default, this set includes all the ownedElements. Subclasses may override this operation if they choose to restrict the set of ParameterableElements." @@ -62,13 +64,13 @@ OPUMLTemplateableElement >> parameterableElementsStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateableElement >> templateBindings [ "The optional TemplateBindings from this TemplateableElement to one or more templates." ^ templateBindings ifNil: [ templateBindings := OPUMLToManyLinks on: self identity opposite: #boundElement: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTemplateableElement >> templateBindings: aTemplateBinding [ "The optional TemplateBindings from this TemplateableElement to one or more templates." self templateBindings diff --git a/repository/OP-UML-Metamodel/OPUMLTestIdentityAction.class.st b/repository/OP-UML-Metamodel/OPUMLTestIdentityAction.class.st index bca2d0b..1047a21 100644 --- a/repository/OP-UML-Metamodel/OPUMLTestIdentityAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTestIdentityAction.class.st @@ -2,126 +2,128 @@ A TestIdentityAction is an Action that tests if two values are identical objects. " Class { - #name : #OPUMLTestIdentityAction, - #superclass : #OPUMLElement, + #name : 'OPUMLTestIdentityAction', + #superclass : 'OPUMLElement', #instVars : [ 'second', 'result', 'first' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestIdentityAction >> first [ "The InputPin on which the first input object is placed." ^ first ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestIdentityAction >> first: anInputPin [ "The InputPin on which the first input object is placed." first := anInputPin ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLTestIdentityAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLTestIdentityAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTestIdentityAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTestIdentityAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -131,176 +133,176 @@ OPUMLTestIdentityAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #TestIdentityAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTestIdentityAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTestIdentityAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLTestIdentityAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTestIdentityAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTestIdentityAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLTestIdentityAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTestIdentityAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTestIdentityAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestIdentityAction >> result [ "The OutputPin whose Boolean value indicates whether the two input objects are identical." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestIdentityAction >> result: anOutputPin [ "The OutputPin whose Boolean value indicates whether the two input objects are identical." result := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestIdentityAction >> second [ "The OutputPin on which the second input object is placed." ^ second ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTestIdentityAction >> second: anInputPin [ "The OutputPin on which the second input object is placed." second := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTestIdentityAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTimeConstraint.class.st b/repository/OP-UML-Metamodel/OPUMLTimeConstraint.class.st index 3488b7a..3f595bc 100644 --- a/repository/OP-UML-Metamodel/OPUMLTimeConstraint.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTimeConstraint.class.st @@ -2,65 +2,67 @@ A TimeConstraint is a Constraint that refers to a TimeInterval. " Class { - #name : #OPUMLTimeConstraint, - #superclass : #OPUMLElement, + #name : 'OPUMLTimeConstraint', + #superclass : 'OPUMLElement', #instVars : [ 'firstEvent', 'specification' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLTimeConstraint >> constrainedElements [ ^ (sharedGeneralizations at: #Constraint) constrainedElements ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLTimeConstraint >> constrainedElements: anElement [ (sharedGeneralizations at: #Constraint) constrainedElements: anElement ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLTimeConstraint >> context [ ^ (sharedGeneralizations at: #Constraint) context ] -{ #category : #'accessing - Constraint' } +{ #category : 'accessing - Constraint' } OPUMLTimeConstraint >> context: aNamespace [ (sharedGeneralizations at: #Constraint) context: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeConstraint >> firstEvent [ "The value of firstEvent is related to the constrainedElement. If firstEvent is true, then the corresponding observation event is the first time instant the execution enters the constrainedElement. If firstEvent is false, then the corresponding observation event is the last time instant the execution is within the constrainedElement." ^ firstEvent ifNil: [ firstEvent := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeConstraint >> firstEvent: aBoolean [ "The value of firstEvent is related to the constrainedElement. If firstEvent is true, then the corresponding observation event is the first time instant the execution enters the constrainedElement. If firstEvent is false, then the corresponding observation event is the last time instant the execution is within the constrainedElement." firstEvent := aBoolean ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeConstraint >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #IntervalConstraint. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -70,84 +72,84 @@ OPUMLTimeConstraint >> initializeSharedGeneralizations [ sharedGeneralizations at: #TimeConstraint put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeConstraint >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeConstraint >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeConstraint >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeConstraint >> specification [ "TheTimeInterval constraining the duration." ^ specification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeConstraint >> specification: aTimeInterval [ "TheTimeInterval constraining the duration." specification := aTimeInterval ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeConstraint >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeConstraint >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeConstraint >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeConstraint >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTimeEvent.class.st b/repository/OP-UML-Metamodel/OPUMLTimeEvent.class.st index 61eda4f..d7aab5d 100644 --- a/repository/OP-UML-Metamodel/OPUMLTimeEvent.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTimeEvent.class.st @@ -2,33 +2,35 @@ A TimeEvent is an Event that occurs at a specific point in time. " Class { - #name : #OPUMLTimeEvent, - #superclass : #OPUMLElement, + #name : 'OPUMLTimeEvent', + #superclass : 'OPUMLElement', #instVars : [ 'when', 'isRelative' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeEvent >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Event. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -37,95 +39,95 @@ OPUMLTimeEvent >> initializeSharedGeneralizations [ sharedGeneralizations at: #TimeEvent put: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeEvent >> isRelative [ "Specifies whether the TimeEvent is specified as an absolute or relative time." ^ isRelative ifNil: [ isRelative := false ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeEvent >> isRelative: aBoolean [ "Specifies whether the TimeEvent is specified as an absolute or relative time." isRelative := aBoolean ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeEvent >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeEvent >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeEvent >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeEvent >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeEvent >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeEvent >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeEvent >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeEvent >> when [ "Specifies the time of the TimeEvent." ^ when ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeEvent >> when: aTimeExpression [ "Specifies the time of the TimeEvent." when := aTimeExpression diff --git a/repository/OP-UML-Metamodel/OPUMLTimeExpression.class.st b/repository/OP-UML-Metamodel/OPUMLTimeExpression.class.st index 4b77cbd..272b98c 100644 --- a/repository/OP-UML-Metamodel/OPUMLTimeExpression.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTimeExpression.class.st @@ -2,50 +2,52 @@ A TimeExpression is a ValueSpecification that represents a time value. " Class { - #name : #OPUMLTimeExpression, - #superclass : #OPUMLElement, + #name : 'OPUMLTimeExpression', + #superclass : 'OPUMLElement', #instVars : [ 'observations', 'expr' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeExpression >> expr [ "A ValueSpecification that evaluates to the value of the TimeExpression." ^ expr ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeExpression >> expr: aValueSpecification [ "A ValueSpecification that evaluates to the value of the TimeExpression." expr := aValueSpecification ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeExpression >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ValueSpecification. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -55,124 +57,124 @@ OPUMLTimeExpression >> initializeSharedGeneralizations [ sharedGeneralizations at: #TimeExpression put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeExpression >> observations [ "Refers to the Observations that are involved in the computation of the TimeExpression value." ^ observations ifNil: [ observations := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeExpression >> observations: anObservation [ "Refers to the Observations that are involved in the computation of the TimeExpression value." observations := anObservation ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeExpression >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeExpression >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeExpression >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeExpression >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeExpression >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLTimeExpression >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLTimeExpression >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeExpression >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeExpression >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeExpression >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTimeInterval.class.st b/repository/OP-UML-Metamodel/OPUMLTimeInterval.class.st index 781dc7d..6d9d3e5 100644 --- a/repository/OP-UML-Metamodel/OPUMLTimeInterval.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTimeInterval.class.st @@ -2,38 +2,40 @@ A TimeInterval defines the range between two TimeExpressions. " Class { - #name : #OPUMLTimeInterval, - #superclass : #OPUMLElement, + #name : 'OPUMLTimeInterval', + #superclass : 'OPUMLElement', #instVars : [ 'min', 'max' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> booleanValue [ ^ (sharedGeneralizations at: #ValueSpecification) booleanValue ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeInterval >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Interval. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeInterval >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -44,136 +46,136 @@ OPUMLTimeInterval >> initializeSharedGeneralizations [ sharedGeneralizations at: #TimeInterval put: self. ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> integerValue [ ^ (sharedGeneralizations at: #ValueSpecification) integerValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> isComputable [ ^ (sharedGeneralizations at: #ValueSpecification) isComputable ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> isNull [ ^ (sharedGeneralizations at: #ValueSpecification) isNull ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeInterval >> max [ "Refers to the TimeExpression denoting the maximum value of the range." ^ max ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeInterval >> max: aTimeExpression [ "Refers to the TimeExpression denoting the maximum value of the range." max := aTimeExpression ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeInterval >> min [ "Refers to the TimeExpression denoting the minimum value of the range." ^ min ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeInterval >> min: aTimeExpression [ "Refers to the TimeExpression denoting the minimum value of the range." min := aTimeExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeInterval >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeInterval >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeInterval >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> realValue [ ^ (sharedGeneralizations at: #ValueSpecification) realValue ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> stringValue [ ^ (sharedGeneralizations at: #ValueSpecification) stringValue ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeInterval >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeInterval >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLTimeInterval >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLTimeInterval >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - ValueSpecification' } +{ #category : 'operations - ValueSpecification' } OPUMLTimeInterval >> unlimitedValue [ ^ (sharedGeneralizations at: #ValueSpecification) unlimitedValue ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeInterval >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeInterval >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTimeObservation.class.st b/repository/OP-UML-Metamodel/OPUMLTimeObservation.class.st index b85bd8e..fd6a16f 100644 --- a/repository/OP-UML-Metamodel/OPUMLTimeObservation.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTimeObservation.class.st @@ -2,57 +2,59 @@ A TimeObservation is a reference to a time instant during an execution. It points out the NamedElement in the model to observe and whether the observation is when this NamedElement is entered or when it is exited. " Class { - #name : #OPUMLTimeObservation, - #superclass : #OPUMLElement, + #name : 'OPUMLTimeObservation', + #superclass : 'OPUMLElement', #instVars : [ 'firstEvent', 'event' ], - #category : 'OP-UML-Metamodel-Values' + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeObservation >> event [ "The TimeObservation is determined by the entering or exiting of the event Element during execution." ^ event ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeObservation >> event: aNamedElement [ "The TimeObservation is determined by the entering or exiting of the event Element during execution." event := aNamedElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeObservation >> firstEvent [ "The value of firstEvent is related to the event. If firstEvent is true, then the corresponding observation event is the first time instant the execution enters the event Element. If firstEvent is false, then the corresponding observation event is the time instant the execution exits the event Element." ^ firstEvent ifNil: [ firstEvent := true ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTimeObservation >> firstEvent: aBoolean [ "The value of firstEvent is related to the event. If firstEvent is true, then the corresponding observation event is the first time instant the execution enters the event Element. If firstEvent is false, then the corresponding observation event is the time instant the execution exits the event Element." firstEvent := aBoolean ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeObservation >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Observation. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTimeObservation >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -61,72 +63,72 @@ OPUMLTimeObservation >> initializeSharedGeneralizations [ sharedGeneralizations at: #TimeObservation put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeObservation >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeObservation >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTimeObservation >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeObservation >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLTimeObservation >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeObservation >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLTimeObservation >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTransition.class.st b/repository/OP-UML-Metamodel/OPUMLTransition.class.st index 13e2eab..691a413 100644 --- a/repository/OP-UML-Metamodel/OPUMLTransition.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTransition.class.st @@ -2,8 +2,8 @@ A Transition represents an arc between exactly one source Vertex and exactly one Target vertex (the source and targets may be the same Vertex). It may form part of a compound transition, which takes the StateMachine from one steady State configuration to another, representing the full response of the StateMachine to an occurrence of an Event that triggered it. " Class { - #name : #OPUMLTransition, - #superclass : #OPUMLElement, + #name : 'OPUMLTransition', + #superclass : 'OPUMLElement', #instVars : [ 'redefinitionContext', 'source', @@ -15,26 +15,28 @@ Class { 'triggers', 'redefinedTransition' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> container [ "Designates the Region that owns this Transition." ^ container ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> container: aRegion [ "Designates the Region that owns this Transition." container := OPUMLToOneLink @@ -44,7 +46,7 @@ OPUMLTransition >> container: aRegion [ to: aRegion ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLTransition >> containingStateMachineStub [ "The query containingStateMachine() returns the StateMachine that contains the Transition either directly or transitively." @@ -54,51 +56,51 @@ OPUMLTransition >> containingStateMachineStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> effect [ "Specifies an optional behavior to be performed when the Transition fires." ^ effect ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> effect: aBehavior [ "Specifies an optional behavior to be performed when the Transition fires." effect := aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> guard [ "A guard is a Constraint that provides a fine-grained control over the firing of the Transition. The guard is evaluated when an Event occurrence is dispatched by the StateMachine. If the guard is true at that time, the Transition may be enabled, otherwise, it is disabled. Guards should be pure expressions without side effects. Guard expressions with side effects are ill formed." ^ guard ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> guard: aConstraint [ "A guard is a Constraint that provides a fine-grained control over the firing of the Transition. The guard is evaluated when an Event occurrence is dispatched by the StateMachine. If the guard is true at that time, the Transition may be enabled, otherwise, it is disabled. Guards should be pure expressions without side effects. Guard expressions with side effects are ill formed." guard := aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTransition >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Namespace. @@ -106,7 +108,7 @@ OPUMLTransition >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTransition >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Namespace put: (OPUMLNamespace newOnShared: sharedGeneralizations). @@ -114,7 +116,7 @@ OPUMLTransition >> initializeSharedGeneralizations [ sharedGeneralizations at: #Transition put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLTransition >> isConsistentWithStub [ "The query isConsistentWith() specifies that a redefining Transition is consistent with a redefined Transition provided that the redefining Transition has the following relation to the redefined Transition: A redefining Transition redefines all properties of the corresponding redefined Transition except the source State and the Trigger." @@ -126,143 +128,143 @@ true)" ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTransition >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTransition >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> kind [ "Indicates the precise type of the Transition." ^ kind ifNil: [ kind := OPUMLTransitionKind new external ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> kind: aTransitionKind [ "Indicates the precise type of the Transition." kind := aTransitionKind ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLTransition >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTransition >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTransition >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> redefinedTransition [ "The Transition that is redefined by this Transition." ^ redefinedTransition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> redefinedTransition: aTransition [ "The Transition that is redefined by this Transition." redefinedTransition := aTransition ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> redefinitionContext [ "References the Classifier in which context this element may be redefined." ^ redefinitionContext ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> redefinitionContext: aClassifier [ "References the Classifier in which context this element may be redefined." redefinitionContext := aClassifier ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLTransition >> redefinitionContextStub [ "The redefinition context of a Transition is the nearest containing StateMachine." @@ -277,23 +279,23 @@ endif)" ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTransition >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLTransition >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> source [ "Designates the originating Vertex (State or Pseudostate) of the Transition." ^ source ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> source: aVertex [ "Designates the originating Vertex (State or Pseudostate) of the Transition." source := OPUMLToOneLink @@ -303,13 +305,13 @@ OPUMLTransition >> source: aVertex [ to: aVertex ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> target [ "Designates the target Vertex that is reached when the Transition is taken." ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> target: aVertex [ "Designates the target Vertex that is reached when the Transition is taken." target := OPUMLToOneLink @@ -319,24 +321,24 @@ OPUMLTransition >> target: aVertex [ to: aVertex ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> triggers [ "Specifies the Triggers that may fire the transition." ^ triggers ifNil: [ triggers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransition >> triggers: aTrigger [ "Specifies the Triggers that may fire the transition." triggers := aTrigger ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTransition >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTransitionKind.class.st b/repository/OP-UML-Metamodel/OPUMLTransitionKind.class.st index 4af89b6..1875755 100644 --- a/repository/OP-UML-Metamodel/OPUMLTransitionKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTransitionKind.class.st @@ -2,47 +2,49 @@ TransitionKind is an Enumeration type used to differentiate the various kinds of Transitions. " Class { - #name : #OPUMLTransitionKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-StateMachines' + #name : 'OPUMLTransitionKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLTransitionKind class >> external [ "Implies that the Transition, if triggered, will exit the composite (source) State." ^ #external ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLTransitionKind class >> internal [ "Implies that the Transition, if triggered, occurs without exiting or entering the source State (i.e., it does not cause a state change). This means that the entry or exit condition of the source State will not be invoked. An internal Transition can be taken even if the SateMachine is in one or more Regions nested within the associated State." ^ #internal ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLTransitionKind class >> local [ "Implies that the Transition, if triggered, will not exit the composite (source) State, but it will exit and re-enter any state within the composite State that is in the current state configuration." ^ #local ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransitionKind >> external [ "Implies that the Transition, if triggered, will exit the composite (source) State." ^ #external ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransitionKind >> internal [ "Implies that the Transition, if triggered, occurs without exiting or entering the source State (i.e., it does not cause a state change). This means that the entry or exit condition of the source State will not be invoked. An internal Transition can be taken even if the SateMachine is in one or more Regions nested within the associated State." ^ #internal ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTransitionKind >> local [ "Implies that the Transition, if triggered, will not exit the composite (source) State, but it will exit and re-enter any state within the composite State that is in the current state configuration." ^ #local diff --git a/repository/OP-UML-Metamodel/OPUMLTrigger.class.st b/repository/OP-UML-Metamodel/OPUMLTrigger.class.st index 19d038b..7a15028 100644 --- a/repository/OP-UML-Metamodel/OPUMLTrigger.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTrigger.class.st @@ -2,108 +2,110 @@ A Trigger specifies a specific point at which an Event occurrence may trigger an effect in a Behavior. A Trigger may be qualified by the Port on which the Event occurred. " Class { - #name : #OPUMLTrigger, - #superclass : #OPUMLElement, + #name : 'OPUMLTrigger', + #superclass : 'OPUMLElement', #instVars : [ 'event', 'ports' ], - #category : 'OP-UML-Metamodel-CommonBehavior' + #category : 'OP-UML-Metamodel-CommonBehavior', + #package : 'OP-UML-Metamodel', + #tag : 'CommonBehavior' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTrigger >> event [ "The Event that detected by the Trigger." ^ event ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTrigger >> event: anEvent [ "The Event that detected by the Trigger." event := anEvent ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTrigger >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTrigger >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Trigger put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTrigger >> ports [ "A optional Port of through which the given effect is detected." ^ ports ifNil: [ ports := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTrigger >> ports: aPort [ "A optional Port of through which the given effect is detected." ports := aPort ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTrigger >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLType.class.st b/repository/OP-UML-Metamodel/OPUMLType.class.st index 3665edc..ac5bc83 100644 --- a/repository/OP-UML-Metamodel/OPUMLType.class.st +++ b/repository/OP-UML-Metamodel/OPUMLType.class.st @@ -2,25 +2,27 @@ A Type constrains the values represented by a TypedElement. " Class { - #name : #OPUMLType, - #superclass : #OPUMLElement, + #name : 'OPUMLType', + #superclass : 'OPUMLElement', #instVars : [ 'package' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLType >> conformsToStub [ "The query conformsTo() gives true for a Type that conforms to another. By default, two Types do not conform to each other. This query is intended to be redefined for specific conformance situations." @@ -30,14 +32,14 @@ OPUMLType >> conformsToStub [ ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLType >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #PackageableElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLType >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -45,53 +47,53 @@ OPUMLType >> initializeSharedGeneralizations [ sharedGeneralizations at: #Type put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLType >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLType >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLType >> package [ "Specifies the owning Package of this Type, if any." ^ package ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLType >> package: aPackage [ "Specifies the owning Package of this Type, if any." package := OPUMLToOneLink @@ -101,32 +103,32 @@ OPUMLType >> package: aPackage [ to: aPackage ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLType >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLType >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLType >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLType >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLType >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLTypedElement.class.st b/repository/OP-UML-Metamodel/OPUMLTypedElement.class.st index 516d4cb..13307e0 100644 --- a/repository/OP-UML-Metamodel/OPUMLTypedElement.class.st +++ b/repository/OP-UML-Metamodel/OPUMLTypedElement.class.st @@ -2,95 +2,97 @@ A TypedElement is a NamedElement that may have a Type specified for it. " Class { - #name : #OPUMLTypedElement, - #superclass : #OPUMLElement, + #name : 'OPUMLTypedElement', + #superclass : 'OPUMLElement', #instVars : [ 'type' ], - #category : 'OP-UML-Metamodel-CommonStructure' + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTypedElement >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLTypedElement >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #TypedElement put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTypedElement >> type [ "The type of the TypedElement." ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLTypedElement >> type: aType [ "The type of the TypedElement." type := aType ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLTypedElement >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLUnmarshallAction.class.st b/repository/OP-UML-Metamodel/OPUMLUnmarshallAction.class.st index 1e26c32..1d95cd6 100644 --- a/repository/OP-UML-Metamodel/OPUMLUnmarshallAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLUnmarshallAction.class.st @@ -2,114 +2,116 @@ An UnmarshallAction is an Action that retrieves the values of the StructuralFeatures of an object and places them on OutputPins. " Class { - #name : #OPUMLUnmarshallAction, - #superclass : #OPUMLElement, + #name : 'OPUMLUnmarshallAction', + #superclass : 'OPUMLElement', #instVars : [ 'object', 'results', 'unmarshallType' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLUnmarshallAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLUnmarshallAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLUnmarshallAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLUnmarshallAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -119,188 +121,188 @@ OPUMLUnmarshallAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #UnmarshallAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUnmarshallAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUnmarshallAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUnmarshallAction >> object [ "The InputPin that gives the object to be unmarshalled." ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUnmarshallAction >> object: anInputPin [ "The InputPin that gives the object to be unmarshalled." object := anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLUnmarshallAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUnmarshallAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUnmarshallAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLUnmarshallAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUnmarshallAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUnmarshallAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUnmarshallAction >> results [ "The OutputPins on which are placed the values of the StructuralFeatures of the input object." ^ results ifNil: [ results := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUnmarshallAction >> results: anOutputPin [ "The OutputPins on which are placed the values of the StructuralFeatures of the input object." results := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUnmarshallAction >> unmarshallType [ "The type of the object to be unmarshalled." ^ unmarshallType ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUnmarshallAction >> unmarshallType: aClassifier [ "The type of the object to be unmarshalled." unmarshallType := aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUnmarshallAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLUsage.class.st b/repository/OP-UML-Metamodel/OPUMLUsage.class.st index 989d895..4fbc6e7 100644 --- a/repository/OP-UML-Metamodel/OPUMLUsage.class.st +++ b/repository/OP-UML-Metamodel/OPUMLUsage.class.st @@ -2,39 +2,41 @@ A Usage is a Dependency in which the client Element requires the supplier Element (or set of Elements) for its full implementation or operation. " Class { - #name : #OPUMLUsage, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-CommonStructure' + #name : 'OPUMLUsage', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLUsage >> clients [ ^ (sharedGeneralizations at: #Dependency) clients ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLUsage >> clients: aNamedElement [ (sharedGeneralizations at: #Dependency) clients: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLUsage >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Dependency. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLUsage >> initializeSharedGeneralizations [ sharedGeneralizations at: #Relationship put: (OPUMLRelationship newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -45,112 +47,112 @@ OPUMLUsage >> initializeSharedGeneralizations [ sharedGeneralizations at: #Usage put: self. ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLUsage >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLUsage >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUsage >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLUsage >> relatedElements [ ^ (sharedGeneralizations at: #Relationship) relatedElements ] -{ #category : #'accessing - Relationship' } +{ #category : 'accessing - Relationship' } OPUMLUsage >> relatedElements: anElement [ (sharedGeneralizations at: #Relationship) relatedElements: anElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLUsage >> sources [ ^ (sharedGeneralizations at: #DirectedRelationship) sources ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLUsage >> sources: anElement [ (sharedGeneralizations at: #DirectedRelationship) sources: anElement ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLUsage >> suppliers [ ^ (sharedGeneralizations at: #Dependency) suppliers ] -{ #category : #'accessing - Dependency' } +{ #category : 'accessing - Dependency' } OPUMLUsage >> suppliers: aNamedElement [ (sharedGeneralizations at: #Dependency) suppliers: aNamedElement ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLUsage >> targets [ ^ (sharedGeneralizations at: #DirectedRelationship) targets ] -{ #category : #'accessing - DirectedRelationship' } +{ #category : 'accessing - DirectedRelationship' } OPUMLUsage >> targets: anElement [ (sharedGeneralizations at: #DirectedRelationship) targets: anElement ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLUsage >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLUsage >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLUsage >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLUsage >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLUseCase.class.st b/repository/OP-UML-Metamodel/OPUMLUseCase.class.st index 7c5106b..1c386e6 100644 --- a/repository/OP-UML-Metamodel/OPUMLUseCase.class.st +++ b/repository/OP-UML-Metamodel/OPUMLUseCase.class.st @@ -2,23 +2,25 @@ A UseCase specifies a set of actions performed by its subjects, which yields an observable result that is of value for one or more Actors or other stakeholders of each subject. " Class { - #name : #OPUMLUseCase, - #superclass : #OPUMLElement, + #name : 'OPUMLUseCase', + #superclass : 'OPUMLElement', #instVars : [ 'extends', 'extensionPoints', 'includes', 'subjects' ], - #category : 'OP-UML-Metamodel-UseCases' + #category : 'OP-UML-Metamodel-UseCases', + #package : 'OP-UML-Metamodel', + #tag : 'UseCases' } -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLUseCase >> allAttributes [ ^ (sharedGeneralizations at: #Classifier) allAttributes ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLUseCase >> allIncludedUseCasesStub [ "The query allIncludedUseCases() returns the transitive closure of all UseCases (directly or indirectly) included by this UseCase." @@ -28,68 +30,68 @@ OPUMLUseCase >> allIncludedUseCasesStub [ ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLUseCase >> allParents [ ^ (sharedGeneralizations at: #Classifier) allParents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> attributes [ ^ (sharedGeneralizations at: #Classifier) attributes ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> attributes: aProperty [ (sharedGeneralizations at: #Classifier) attributes: aProperty ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLUseCase >> classifierBehavior [ ^ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLUseCase >> classifierBehavior: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) classifierBehavior: aBehavior ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> collaborationUses [ ^ (sharedGeneralizations at: #Classifier) collaborationUses ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> collaborationUses: aCollaborationUse [ (sharedGeneralizations at: #Classifier) collaborationUses: aCollaborationUse ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> elementImports [ ^ (sharedGeneralizations at: #Namespace) elementImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> elementImports: anElementImport [ (sharedGeneralizations at: #Namespace) elementImports: anElementImport ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> extends [ "The Extend relationships owned by this UseCase." ^ extends ifNil: [ extends := OPUMLToManyLinks on: self identity opposite: #extension: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> extends: anExtend [ "The Extend relationships owned by this UseCase." self extends @@ -97,13 +99,13 @@ OPUMLUseCase >> extends: anExtend [ addAll: anExtend ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> extensionPoints [ "The ExtensionPoints owned by this UseCase." ^ extensionPoints ifNil: [ extensionPoints := OPUMLToManyLinks on: self identity opposite: #useCase: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> extensionPoints: anExtensionPoint [ "The ExtensionPoints owned by this UseCase." self extensionPoints @@ -111,58 +113,58 @@ OPUMLUseCase >> extensionPoints: anExtensionPoint [ addAll: anExtensionPoint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> features [ ^ (sharedGeneralizations at: #Classifier) features ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> features: aFeature [ (sharedGeneralizations at: #Classifier) features: aFeature ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLUseCase >> general [ ^ (sharedGeneralizations at: #Classifier) general ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> generalizations [ ^ (sharedGeneralizations at: #Classifier) generalizations ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> generalizations: aGeneralization [ (sharedGeneralizations at: #Classifier) generalizations: aGeneralization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> generals [ ^ (sharedGeneralizations at: #Classifier) generals ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> generals: aClassifier [ (sharedGeneralizations at: #Classifier) generals: aClassifier ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> importedMembers [ ^ (sharedGeneralizations at: #Namespace) importedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> importedMembers: aPackageableElement [ (sharedGeneralizations at: #Namespace) importedMembers: aPackageableElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> includes [ "The Include relationships owned by this UseCase." ^ includes ifNil: [ includes := OPUMLToManyLinks on: self identity opposite: #includingCase: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> includes: anInclude [ "The Include relationships owned by this UseCase." self includes @@ -170,24 +172,24 @@ OPUMLUseCase >> includes: anInclude [ addAll: anInclude ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> inheritedMembers [ ^ (sharedGeneralizations at: #Classifier) inheritedMembers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> inheritedMembers: aNamedElement [ (sharedGeneralizations at: #Classifier) inheritedMembers: aNamedElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLUseCase >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #BehavioredClassifier. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLUseCase >> initializeSharedGeneralizations [ sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). @@ -201,238 +203,238 @@ OPUMLUseCase >> initializeSharedGeneralizations [ sharedGeneralizations at: #UseCase put: self. ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLUseCase >> interfaceRealizations [ ^ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLUseCase >> interfaceRealizations: anInterfaceRealization [ (sharedGeneralizations at: #BehavioredClassifier) interfaceRealizations: anInterfaceRealization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> isAbstract [ ^ (sharedGeneralizations at: #Classifier) isAbstract ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> isAbstract: aBoolean [ (sharedGeneralizations at: #Classifier) isAbstract: aBoolean ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> isFinalSpecialization [ ^ (sharedGeneralizations at: #Classifier) isFinalSpecialization ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> isFinalSpecialization: aBoolean [ (sharedGeneralizations at: #Classifier) isFinalSpecialization: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUseCase >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUseCase >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> members [ ^ (sharedGeneralizations at: #Namespace) members ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> members: aNamedElement [ (sharedGeneralizations at: #Namespace) members: aNamedElement ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLUseCase >> ownedBehaviors [ ^ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors ] -{ #category : #'accessing - BehavioredClassifier' } +{ #category : 'accessing - BehavioredClassifier' } OPUMLUseCase >> ownedBehaviors: aBehavior [ (sharedGeneralizations at: #BehavioredClassifier) ownedBehaviors: aBehavior ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> ownedMembers [ ^ (sharedGeneralizations at: #Namespace) ownedMembers ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> ownedMembers: aNamedElement [ (sharedGeneralizations at: #Namespace) ownedMembers: aNamedElement ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> ownedRules [ ^ (sharedGeneralizations at: #Namespace) ownedRules ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> ownedRules: aConstraint [ (sharedGeneralizations at: #Namespace) ownedRules: aConstraint ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> ownedTemplateSignature [ ^ (sharedGeneralizations at: #Classifier) ownedTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> ownedTemplateSignature: aRedefinableTemplateSignature [ (sharedGeneralizations at: #Classifier) ownedTemplateSignature: aRedefinableTemplateSignature ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> ownedUseCases [ ^ (sharedGeneralizations at: #Classifier) ownedUseCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> ownedUseCases: anUseCase [ (sharedGeneralizations at: #Classifier) ownedUseCases: anUseCase ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLUseCase >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLUseCase >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLUseCase >> package [ ^ (sharedGeneralizations at: #Type) package ] -{ #category : #'accessing - Type' } +{ #category : 'accessing - Type' } OPUMLUseCase >> package: aPackage [ (sharedGeneralizations at: #Type) package: aPackage ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> packageImports [ ^ (sharedGeneralizations at: #Namespace) packageImports ] -{ #category : #'accessing - Namespace' } +{ #category : 'accessing - Namespace' } OPUMLUseCase >> packageImports: aPackageImport [ (sharedGeneralizations at: #Namespace) packageImports: aPackageImport ] -{ #category : #'operations - Classifier' } +{ #category : 'operations - Classifier' } OPUMLUseCase >> parents [ ^ (sharedGeneralizations at: #Classifier) parents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> powertypeExtents [ ^ (sharedGeneralizations at: #Classifier) powertypeExtents ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> powertypeExtents: aGeneralizationSet [ (sharedGeneralizations at: #Classifier) powertypeExtents: aGeneralizationSet ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLUseCase >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> redefinedClassifiers [ ^ (sharedGeneralizations at: #Classifier) redefinedClassifiers ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> redefinedClassifiers: aClassifier [ (sharedGeneralizations at: #Classifier) redefinedClassifiers: aClassifier ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUseCase >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUseCase >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUseCase >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLUseCase >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> representation [ ^ (sharedGeneralizations at: #Classifier) representation ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> representation: aCollaborationUse [ (sharedGeneralizations at: #Classifier) representation: aCollaborationUse ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> subjects [ "The subjects to which this UseCase applies. Each subject or its parts realize all the UseCases that apply to it." ^ subjects ifNil: [ subjects := OPUMLManyToManyLinks on: self identity opposite: #useCases ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLUseCase >> subjects: aClassifier [ "The subjects to which this UseCase applies. Each subject or its parts realize all the UseCases that apply to it." self subjects @@ -440,52 +442,52 @@ OPUMLUseCase >> subjects: aClassifier [ addAll: aClassifier ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> substitutions [ ^ (sharedGeneralizations at: #Classifier) substitutions ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> substitutions: aSubstitution [ (sharedGeneralizations at: #Classifier) substitutions: aSubstitution ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLUseCase >> templateBindings [ ^ (sharedGeneralizations at: #TemplateableElement) templateBindings ] -{ #category : #'accessing - TemplateableElement' } +{ #category : 'accessing - TemplateableElement' } OPUMLUseCase >> templateBindings: aTemplateBinding [ (sharedGeneralizations at: #TemplateableElement) templateBindings: aTemplateBinding ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> templateParameter [ ^ (sharedGeneralizations at: #Classifier) templateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> templateParameter: aClassifierTemplateParameter [ (sharedGeneralizations at: #Classifier) templateParameter: aClassifierTemplateParameter ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> useCases [ ^ (sharedGeneralizations at: #Classifier) useCases ] -{ #category : #'accessing - Classifier' } +{ #category : 'accessing - Classifier' } OPUMLUseCase >> useCases: anUseCase [ (sharedGeneralizations at: #Classifier) useCases: anUseCase ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLUseCase >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLUseCase >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLValuePin.class.st b/repository/OP-UML-Metamodel/OPUMLValuePin.class.st index e2f2411..23cf19c 100644 --- a/repository/OP-UML-Metamodel/OPUMLValuePin.class.st +++ b/repository/OP-UML-Metamodel/OPUMLValuePin.class.st @@ -2,102 +2,104 @@ A ValuePin is an InputPin that provides a value by evaluating a ValueSpecification. " Class { - #name : #OPUMLValuePin, - #superclass : #OPUMLElement, + #name : 'OPUMLValuePin', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> inStates [ ^ (sharedGeneralizations at: #ObjectNode) inStates ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> inStates: aState [ (sharedGeneralizations at: #ObjectNode) inStates: aState ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLValuePin >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #InputPin. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLValuePin >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -110,244 +112,244 @@ OPUMLValuePin >> initializeSharedGeneralizations [ sharedGeneralizations at: #ValuePin put: self. ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLValuePin >> isControl [ ^ (sharedGeneralizations at: #Pin) isControl ] -{ #category : #'accessing - Pin' } +{ #category : 'accessing - Pin' } OPUMLValuePin >> isControl: aBoolean [ (sharedGeneralizations at: #Pin) isControl: aBoolean ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> isControlType [ ^ (sharedGeneralizations at: #ObjectNode) isControlType ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> isControlType: aBoolean [ (sharedGeneralizations at: #ObjectNode) isControlType: aBoolean ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValuePin >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValuePin >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLValuePin >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLValuePin >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLValuePin >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> ordering [ ^ (sharedGeneralizations at: #ObjectNode) ordering ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> ordering: anObjectNodeOrderingKind [ (sharedGeneralizations at: #ObjectNode) ordering: anObjectNodeOrderingKind ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValuePin >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValuePin >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValuePin >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValuePin >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValuePin >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> selection [ ^ (sharedGeneralizations at: #ObjectNode) selection ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> selection: aBehavior [ (sharedGeneralizations at: #ObjectNode) selection: aBehavior ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLValuePin >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLValuePin >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLValuePin >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLValuePin >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - ObjectNode' } +{ #category : 'accessing - ObjectNode' } OPUMLValuePin >> upperBound: aValueSpecification [ (sharedGeneralizations at: #ObjectNode) upperBound: aValueSpecification ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLValuePin >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLValuePin >> value [ "The ValueSpecification that is evaluated to obtain the value that the ValuePin will provide." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLValuePin >> value: aValueSpecification [ "The ValueSpecification that is evaluated to obtain the value that the ValuePin will provide." value := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValuePin >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLValueSpecification.class.st b/repository/OP-UML-Metamodel/OPUMLValueSpecification.class.st index 277ab78..e7b0327 100644 --- a/repository/OP-UML-Metamodel/OPUMLValueSpecification.class.st +++ b/repository/OP-UML-Metamodel/OPUMLValueSpecification.class.st @@ -2,12 +2,14 @@ A ValueSpecification is the specification of a (possibly empty) set of values. A ValueSpecification is a ParameterableElement that may be exposed as a formal TemplateParameter and provided as the actual parameter in the binding of a template. " Class { - #name : #OPUMLValueSpecification, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Values' + #name : 'OPUMLValueSpecification', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Values', + #package : 'OP-UML-Metamodel', + #tag : 'Values' } -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> booleanValue [ "The query booleanValue() gives a single Boolean value when one can be computed." @@ -17,7 +19,7 @@ OPUMLValueSpecification >> booleanValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> booleanValueStub [ "The query booleanValue() gives a single Boolean value when one can be computed." @@ -27,17 +29,17 @@ OPUMLValueSpecification >> booleanValueStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLValueSpecification >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #TypedElement. @@ -45,7 +47,7 @@ OPUMLValueSpecification >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLValueSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #ParameterableElement put: (OPUMLParameterableElement newOnShared: sharedGeneralizations). @@ -54,7 +56,7 @@ OPUMLValueSpecification >> initializeSharedGeneralizations [ sharedGeneralizations at: #ValueSpecification put: self. ] -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> integerValue [ "The query integerValue() gives a single Integer value when one can be computed." @@ -64,7 +66,7 @@ OPUMLValueSpecification >> integerValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> integerValueStub [ "The query integerValue() gives a single Integer value when one can be computed." @@ -74,7 +76,7 @@ OPUMLValueSpecification >> integerValueStub [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> isCompatibleWithStub [ "The query isCompatibleWith() determines if this ValueSpecification is compatible with the specified ParameterableElement. This ValueSpecification is compatible with ParameterableElement p if the kind of this ValueSpecification is the same as or a subtype of the kind of p. Further, if p is a TypedElement, then the type of this ValueSpecification must be conformant with the type of p." @@ -85,7 +87,7 @@ self.type.conformsTo(p.oclAsType(TypedElement).type)))" ] -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> isComputable [ "The query isComputable() determines whether a value specification can be computed in a model. This operation cannot be fully defined in OCL. A conforming implementation is expected to deliver true for this operation for all ValueSpecifications that it can compute, and to compute all of those for which the operation is true. A conforming implementation is expected to be able to compute at least the value of all LiteralSpecifications." @@ -95,7 +97,7 @@ OPUMLValueSpecification >> isComputable [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> isComputableStub [ "The query isComputable() determines whether a value specification can be computed in a model. This operation cannot be fully defined in OCL. A conforming implementation is expected to deliver true for this operation for all ValueSpecifications that it can compute, and to compute all of those for which the operation is true. A conforming implementation is expected to be able to compute at least the value of all LiteralSpecifications." @@ -105,7 +107,7 @@ OPUMLValueSpecification >> isComputableStub [ ] -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> isNull [ "The query isNull() returns true when it can be computed that the value is null." @@ -115,7 +117,7 @@ OPUMLValueSpecification >> isNull [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> isNullStub [ "The query isNull() returns true when it can be computed that the value is null." @@ -125,57 +127,57 @@ OPUMLValueSpecification >> isNullStub [ ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLValueSpecification >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLValueSpecification >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecification >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> realValue [ "The query realValue() gives a single Real value when one can be computed." @@ -185,7 +187,7 @@ OPUMLValueSpecification >> realValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> realValueStub [ "The query realValue() gives a single Real value when one can be computed." @@ -195,7 +197,7 @@ OPUMLValueSpecification >> realValueStub [ ] -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> stringValue [ "The query stringValue() gives a single String value when one can be computed." @@ -205,7 +207,7 @@ OPUMLValueSpecification >> stringValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> stringValueStub [ "The query stringValue() gives a single String value when one can be computed." @@ -215,27 +217,27 @@ OPUMLValueSpecification >> stringValueStub [ ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLValueSpecification >> templateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) templateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLValueSpecification >> templateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) templateParameter: aTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLValueSpecification >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLValueSpecification >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #operations } +{ #category : 'operations' } OPUMLValueSpecification >> unlimitedValue [ "The query unlimitedValue() gives a single UnlimitedNatural value when one can be computed." @@ -245,7 +247,7 @@ OPUMLValueSpecification >> unlimitedValue [ ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLValueSpecification >> unlimitedValueStub [ "The query unlimitedValue() gives a single UnlimitedNatural value when one can be computed." @@ -255,12 +257,12 @@ OPUMLValueSpecification >> unlimitedValueStub [ ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLValueSpecification >> visibility [ ^ (sharedGeneralizations at: #PackageableElement) visibility ] -{ #category : #'accessing - PackageableElement' } +{ #category : 'accessing - PackageableElement' } OPUMLValueSpecification >> visibility: aVisibilityKind [ (sharedGeneralizations at: #PackageableElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLValueSpecificationAction.class.st b/repository/OP-UML-Metamodel/OPUMLValueSpecificationAction.class.st index a095be5..f68df3a 100644 --- a/repository/OP-UML-Metamodel/OPUMLValueSpecificationAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLValueSpecificationAction.class.st @@ -2,113 +2,115 @@ A ValueSpecificationAction is an Action that evaluates a ValueSpecification and provides a result. " Class { - #name : #OPUMLValueSpecificationAction, - #superclass : #OPUMLElement, + #name : 'OPUMLValueSpecificationAction', + #superclass : 'OPUMLElement', #instVars : [ 'result', 'value' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLValueSpecificationAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLValueSpecificationAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLValueSpecificationAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLValueSpecificationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,176 +120,176 @@ OPUMLValueSpecificationAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #ValueSpecificationAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValueSpecificationAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValueSpecificationAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLValueSpecificationAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValueSpecificationAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValueSpecificationAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLValueSpecificationAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValueSpecificationAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLValueSpecificationAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLValueSpecificationAction >> result [ "The OutputPin on which the result value is placed." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLValueSpecificationAction >> result: anOutputPin [ "The OutputPin on which the result value is placed." result := anOutputPin ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLValueSpecificationAction >> value [ "The ValueSpecification to be evaluated." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLValueSpecificationAction >> value: aValueSpecification [ "The ValueSpecification to be evaluated." value := aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLValueSpecificationAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLVariable.class.st b/repository/OP-UML-Metamodel/OPUMLVariable.class.st index ff39b73..0acb7aa 100644 --- a/repository/OP-UML-Metamodel/OPUMLVariable.class.st +++ b/repository/OP-UML-Metamodel/OPUMLVariable.class.st @@ -2,22 +2,24 @@ A Variable is a ConnectableElement that may store values during the execution of an Activity. Reading and writing the values of a Variable provides an alternative means for passing data than the use of ObjectFlows. A Variable may be owned directly by an Activity, in which case it is accessible from anywhere within that activity, or it may be owned by a StructuredActivityNode, in which case it is only accessible within that node. " Class { - #name : #OPUMLVariable, - #superclass : #OPUMLElement, + #name : 'OPUMLVariable', + #superclass : 'OPUMLElement', #instVars : [ 'activityScope', 'scope' ], - #category : 'OP-UML-Metamodel-Activities' + #category : 'OP-UML-Metamodel-Activities', + #package : 'OP-UML-Metamodel', + #tag : 'Activities' } -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVariable >> activityScope [ "An Activity that owns the Variable." ^ activityScope ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVariable >> activityScope: anActivity [ "An Activity that owns the Variable." activityScope := OPUMLToOneLink @@ -27,27 +29,27 @@ OPUMLVariable >> activityScope: anActivity [ to: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLVariable >> ends [ ^ (sharedGeneralizations at: #ConnectableElement) ends ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLVariable >> ends: aConnectorEnd [ (sharedGeneralizations at: #ConnectableElement) ends: aConnectorEnd ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLVariable >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #ConnectableElement. @@ -55,7 +57,7 @@ OPUMLVariable >> initializeDirectGeneralizations [ } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLVariable >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #TypedElement put: (OPUMLTypedElement newOnShared: sharedGeneralizations). @@ -65,7 +67,7 @@ OPUMLVariable >> initializeSharedGeneralizations [ sharedGeneralizations at: #Variable put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLVariable >> isAccessibleByStub [ "A Variable is accessible by Actions within its scope (the Activity or StructuredActivityNode that owns it)." @@ -77,113 +79,113 @@ endif)" ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLVariable >> isMultivalued [ ^ (sharedGeneralizations at: #MultiplicityElement) isMultivalued ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> isOrdered [ ^ (sharedGeneralizations at: #MultiplicityElement) isOrdered ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> isOrdered: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isOrdered: aBoolean ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> isUnique [ ^ (sharedGeneralizations at: #MultiplicityElement) isUnique ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> isUnique: aBoolean [ (sharedGeneralizations at: #MultiplicityElement) isUnique: aBoolean ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLVariable >> lower [ ^ (sharedGeneralizations at: #MultiplicityElement) lower ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> lower: anInteger [ (sharedGeneralizations at: #MultiplicityElement) lower: anInteger ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLVariable >> lowerBound [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> lowerValue [ ^ (sharedGeneralizations at: #MultiplicityElement) lowerValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> lowerValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) lowerValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLVariable >> owningTemplateParameter [ ^ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter ] -{ #category : #'accessing - ParameterableElement' } +{ #category : 'accessing - ParameterableElement' } OPUMLVariable >> owningTemplateParameter: aTemplateParameter [ (sharedGeneralizations at: #ParameterableElement) owningTemplateParameter: aTemplateParameter ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVariable >> scope [ "A StructuredActivityNode that owns the Variable." ^ scope ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVariable >> scope: aStructuredActivityNode [ "A StructuredActivityNode that owns the Variable." scope := OPUMLToOneLink @@ -193,57 +195,57 @@ OPUMLVariable >> scope: aStructuredActivityNode [ to: aStructuredActivityNode ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLVariable >> templateParameter [ ^ (sharedGeneralizations at: #ConnectableElement) templateParameter ] -{ #category : #'accessing - ConnectableElement' } +{ #category : 'accessing - ConnectableElement' } OPUMLVariable >> templateParameter: aConnectableElementTemplateParameter [ (sharedGeneralizations at: #ConnectableElement) templateParameter: aConnectableElementTemplateParameter ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLVariable >> type [ ^ (sharedGeneralizations at: #TypedElement) type ] -{ #category : #'accessing - TypedElement' } +{ #category : 'accessing - TypedElement' } OPUMLVariable >> type: aType [ (sharedGeneralizations at: #TypedElement) type: aType ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLVariable >> upper [ ^ (sharedGeneralizations at: #MultiplicityElement) upper ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> upper: anUnlimitedNatural [ (sharedGeneralizations at: #MultiplicityElement) upper: anUnlimitedNatural ] -{ #category : #'operations - MultiplicityElement' } +{ #category : 'operations - MultiplicityElement' } OPUMLVariable >> upperBound [ ^ (sharedGeneralizations at: #MultiplicityElement) upperBound ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> upperValue [ ^ (sharedGeneralizations at: #MultiplicityElement) upperValue ] -{ #category : #'accessing - MultiplicityElement' } +{ #category : 'accessing - MultiplicityElement' } OPUMLVariable >> upperValue: aValueSpecification [ (sharedGeneralizations at: #MultiplicityElement) upperValue: aValueSpecification ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariable >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLVariableAction.class.st b/repository/OP-UML-Metamodel/OPUMLVariableAction.class.st index 552ff65..aba6d0e 100644 --- a/repository/OP-UML-Metamodel/OPUMLVariableAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLVariableAction.class.st @@ -2,112 +2,114 @@ VariableAction is an abstract class for Actions that operate on a specified Variable. " Class { - #name : #OPUMLVariableAction, - #superclass : #OPUMLElement, + #name : 'OPUMLVariableAction', + #superclass : 'OPUMLElement', #instVars : [ 'variable' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLVariableAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLVariableAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLVariableAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #Action. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -117,164 +119,164 @@ OPUMLVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #VariableAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLVariableAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLVariableAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLVariableAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLVariableAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLVariableAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLVariableAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLVariableAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLVariableAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVariableAction >> variable [ "The Variable to be read or written." ^ variable ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVariableAction >> variable: aVariable [ "The Variable to be read or written." variable := aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVariableAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLVertex.class.st b/repository/OP-UML-Metamodel/OPUMLVertex.class.st index 0cf5865..925772f 100644 --- a/repository/OP-UML-Metamodel/OPUMLVertex.class.st +++ b/repository/OP-UML-Metamodel/OPUMLVertex.class.st @@ -2,33 +2,35 @@ A Vertex is an abstraction of a node in a StateMachine graph. It can be the source or destination of any number of Transitions. " Class { - #name : #OPUMLVertex, - #superclass : #OPUMLElement, + #name : 'OPUMLVertex', + #superclass : 'OPUMLElement', #instVars : [ 'incomings', 'container', 'outgoings' ], - #category : 'OP-UML-Metamodel-StateMachines' + #category : 'OP-UML-Metamodel-StateMachines', + #package : 'OP-UML-Metamodel', + #tag : 'StateMachines' } -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVertex >> container [ "The Region that contains this Vertex." ^ container ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVertex >> container: aRegion [ "The Region that contains this Vertex." container := OPUMLToOneLink @@ -38,7 +40,7 @@ OPUMLVertex >> container: aRegion [ to: aRegion ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLVertex >> containingStateMachineStub [ "The operation containingStateMachine() returns the StateMachine in which this Vertex is defined." @@ -64,7 +66,7 @@ endif ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLVertex >> incomingStub [ "Derivation for Vertex::/incoming." @@ -74,13 +76,13 @@ OPUMLVertex >> incomingStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVertex >> incomings [ "Specifies the Transitions entering this Vertex." ^ incomings ifNil: [ incomings := OPUMLToManyLinks on: self identity opposite: #target: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVertex >> incomings: aTransition [ "Specifies the Transitions entering this Vertex." self incomings @@ -88,20 +90,20 @@ OPUMLVertex >> incomings: aTransition [ addAll: aTransition ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLVertex >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #NamedElement. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLVertex >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #Vertex put: self. ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLVertex >> isContainedInRegionStub [ "This utility query returns true if the Vertex is contained in the Region r (input argument)." @@ -119,7 +121,7 @@ endif)" ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLVertex >> isContainedInStateStub [ "This utility operation returns true if the Vertex is contained in the State s (input argument)." @@ -137,37 +139,37 @@ endif)" ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'operations - stubs' } +{ #category : 'operations - stubs' } OPUMLVertex >> outgoingStub [ "Derivation for Vertex::/outgoing" @@ -177,13 +179,13 @@ OPUMLVertex >> outgoingStub [ ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVertex >> outgoings [ "Specifies the Transitions departing from this Vertex." ^ outgoings ifNil: [ outgoings := OPUMLToManyLinks on: self identity opposite: #source: ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVertex >> outgoings: aTransition [ "Specifies the Transitions departing from this Vertex." self outgoings @@ -191,22 +193,22 @@ OPUMLVertex >> outgoings: aTransition [ addAll: aTransition ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLVertex >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLVisibilityKind.class.st b/repository/OP-UML-Metamodel/OPUMLVisibilityKind.class.st index 1f40714..1463c95 100644 --- a/repository/OP-UML-Metamodel/OPUMLVisibilityKind.class.st +++ b/repository/OP-UML-Metamodel/OPUMLVisibilityKind.class.st @@ -2,54 +2,56 @@ VisibilityKind is an enumeration type that defines literals to determine the visibility of Elements in a model. " Class { - #name : #OPUMLVisibilityKind, - #superclass : #OPUMLEnumeration, - #category : 'OP-UML-Metamodel-CommonStructure' + #name : 'OPUMLVisibilityKind', + #superclass : 'OPUMLEnumeration', + #category : 'OP-UML-Metamodel-CommonStructure', + #package : 'OP-UML-Metamodel', + #tag : 'CommonStructure' } -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLVisibilityKind class >> private [ "A NamedElement with private visibility is only visible inside the Namespace that owns it." ^ #private ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLVisibilityKind class >> protected [ "A NamedElement with protected visibility is visible to Elements that have a generalization relationship to the Namespace that owns it." ^ #protected ] -{ #category : #'accessing - enum' } +{ #category : 'accessing - enum' } OPUMLVisibilityKind class >> public [ "A Named Element with public visibility is visible to all elements that can access the contents of the Namespace that owns it." ^ #public ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVisibilityKind >> package [ "A NamedElement with package visibility is visible to all Elements within the nearest enclosing Package (given that other owning Elements have proper visibility). Outside the nearest enclosing Package, a NamedElement marked as having package visibility is not visible. Only NamedElements that are not owned by Packages can be marked as having package visibility. " ^ #package ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVisibilityKind >> private [ "A NamedElement with private visibility is only visible inside the Namespace that owns it." ^ #private ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVisibilityKind >> protected [ "A NamedElement with protected visibility is visible to Elements that have a generalization relationship to the Namespace that owns it." ^ #protected ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLVisibilityKind >> public [ "A Named Element with public visibility is visible to all elements that can access the contents of the Namespace that owns it." ^ #public diff --git a/repository/OP-UML-Metamodel/OPUMLWriteLinkAction.class.st b/repository/OP-UML-Metamodel/OPUMLWriteLinkAction.class.st index bfd2321..3f30fff 100644 --- a/repository/OP-UML-Metamodel/OPUMLWriteLinkAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLWriteLinkAction.class.st @@ -2,119 +2,121 @@ WriteLinkAction is an abstract class for LinkActions that create and destroy links. " Class { - #name : #OPUMLWriteLinkAction, - #superclass : #OPUMLElement, - #category : 'OP-UML-Metamodel-Actions' + #name : 'OPUMLWriteLinkAction', + #superclass : 'OPUMLElement', + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLWriteLinkAction >> endDatas [ ^ (sharedGeneralizations at: #LinkAction) endDatas ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLWriteLinkAction >> endDatas: aLinkEndData [ (sharedGeneralizations at: #LinkAction) endDatas: aLinkEndData ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLWriteLinkAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLWriteLinkAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLWriteLinkAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #LinkAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLWriteLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -125,162 +127,162 @@ OPUMLWriteLinkAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #WriteLinkAction put: self. ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLWriteLinkAction >> inputValues [ ^ (sharedGeneralizations at: #LinkAction) inputValues ] -{ #category : #'accessing - LinkAction' } +{ #category : 'accessing - LinkAction' } OPUMLWriteLinkAction >> inputValues: anInputPin [ (sharedGeneralizations at: #LinkAction) inputValues: anInputPin ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteLinkAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteLinkAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteLinkAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteLinkAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteLinkAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteLinkAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteLinkAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteLinkAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteLinkAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLWriteStructuralFeatureAction.class.st b/repository/OP-UML-Metamodel/OPUMLWriteStructuralFeatureAction.class.st index 678f43e..96dc2c1 100644 --- a/repository/OP-UML-Metamodel/OPUMLWriteStructuralFeatureAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLWriteStructuralFeatureAction.class.st @@ -2,113 +2,115 @@ WriteStructuralFeatureAction is an abstract class for StructuralFeatureActions that change StructuralFeature values. " Class { - #name : #OPUMLWriteStructuralFeatureAction, - #superclass : #OPUMLElement, + #name : 'OPUMLWriteStructuralFeatureAction', + #superclass : 'OPUMLElement', #instVars : [ 'result', 'value' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLWriteStructuralFeatureAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLWriteStructuralFeatureAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLWriteStructuralFeatureAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #StructuralFeatureAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLWriteStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -119,196 +121,196 @@ OPUMLWriteStructuralFeatureAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #WriteStructuralFeatureAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteStructuralFeatureAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteStructuralFeatureAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLWriteStructuralFeatureAction >> object [ ^ (sharedGeneralizations at: #StructuralFeatureAction) object ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLWriteStructuralFeatureAction >> object: anInputPin [ (sharedGeneralizations at: #StructuralFeatureAction) object: anInputPin ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteStructuralFeatureAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteStructuralFeatureAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteStructuralFeatureAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteStructuralFeatureAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteStructuralFeatureAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteStructuralFeatureAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLWriteStructuralFeatureAction >> result [ "The OutputPin on which is put the input object as modified by the WriteStructuralFeatureAction." ^ result ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLWriteStructuralFeatureAction >> result: anOutputPin [ "The OutputPin on which is put the input object as modified by the WriteStructuralFeatureAction." result := anOutputPin ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLWriteStructuralFeatureAction >> structuralFeature [ ^ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature ] -{ #category : #'accessing - StructuralFeatureAction' } +{ #category : 'accessing - StructuralFeatureAction' } OPUMLWriteStructuralFeatureAction >> structuralFeature: aStructuralFeature [ (sharedGeneralizations at: #StructuralFeatureAction) structuralFeature: aStructuralFeature ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLWriteStructuralFeatureAction >> value [ "The InputPin that provides the value to be added or removed from the StructuralFeature." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLWriteStructuralFeatureAction >> value: anInputPin [ "The InputPin that provides the value to be added or removed from the StructuralFeature." value := anInputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteStructuralFeatureAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/OPUMLWriteVariableAction.class.st b/repository/OP-UML-Metamodel/OPUMLWriteVariableAction.class.st index f6b4b81..9c5b229 100644 --- a/repository/OP-UML-Metamodel/OPUMLWriteVariableAction.class.st +++ b/repository/OP-UML-Metamodel/OPUMLWriteVariableAction.class.st @@ -2,112 +2,114 @@ WriteVariableAction is an abstract class for VariableActions that change Variable values. " Class { - #name : #OPUMLWriteVariableAction, - #superclass : #OPUMLElement, + #name : 'OPUMLWriteVariableAction', + #superclass : 'OPUMLElement', #instVars : [ 'value' ], - #category : 'OP-UML-Metamodel-Actions' + #category : 'OP-UML-Metamodel-Actions', + #package : 'OP-UML-Metamodel', + #tag : 'Actions' } -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> activity [ ^ (sharedGeneralizations at: #ActivityNode) activity ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> activity: anActivity [ (sharedGeneralizations at: #ActivityNode) activity: anActivity ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> clientDependencies [ ^ (sharedGeneralizations at: #NamedElement) clientDependencies ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> clientDependencies: aDependency [ (sharedGeneralizations at: #NamedElement) clientDependencies: aDependency ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> context [ ^ (sharedGeneralizations at: #Action) context ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> context: aClassifier [ (sharedGeneralizations at: #Action) context: aClassifier ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLWriteVariableAction >> handlers [ ^ (sharedGeneralizations at: #ExecutableNode) handlers ] -{ #category : #'accessing - ExecutableNode' } +{ #category : 'accessing - ExecutableNode' } OPUMLWriteVariableAction >> handlers: anExceptionHandler [ (sharedGeneralizations at: #ExecutableNode) handlers: anExceptionHandler ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inGroups [ ^ (sharedGeneralizations at: #ActivityNode) inGroups ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inGroups: anActivityGroup [ (sharedGeneralizations at: #ActivityNode) inGroups: anActivityGroup ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inInterruptibleRegions [ ^ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inInterruptibleRegions: anInterruptibleActivityRegion [ (sharedGeneralizations at: #ActivityNode) inInterruptibleRegions: anInterruptibleActivityRegion ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inPartitions [ ^ (sharedGeneralizations at: #ActivityNode) inPartitions ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inPartitions: anActivityPartition [ (sharedGeneralizations at: #ActivityNode) inPartitions: anActivityPartition ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inStructuredNode [ ^ (sharedGeneralizations at: #ActivityNode) inStructuredNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> inStructuredNode: aStructuredActivityNode [ (sharedGeneralizations at: #ActivityNode) inStructuredNode: aStructuredActivityNode ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> incomings [ ^ (sharedGeneralizations at: #ActivityNode) incomings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> incomings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) incomings: anActivityEdge ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLWriteVariableAction >> initializeDirectGeneralizations [ directGeneralizations := { sharedGeneralizations at: #VariableAction. } ] -{ #category : #initialization } +{ #category : 'initialization' } OPUMLWriteVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #NamedElement put: (OPUMLNamedElement newOnShared: sharedGeneralizations). sharedGeneralizations at: #RedefinableElement put: (OPUMLRedefinableElement newOnShared: sharedGeneralizations). @@ -118,174 +120,174 @@ OPUMLWriteVariableAction >> initializeSharedGeneralizations [ sharedGeneralizations at: #WriteVariableAction put: self. ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> inputs [ ^ (sharedGeneralizations at: #Action) inputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> inputs: anInputPin [ (sharedGeneralizations at: #Action) inputs: anInputPin ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteVariableAction >> isLeaf [ ^ (sharedGeneralizations at: #RedefinableElement) isLeaf ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteVariableAction >> isLeaf: aBoolean [ (sharedGeneralizations at: #RedefinableElement) isLeaf: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> isLocallyReentrant [ ^ (sharedGeneralizations at: #Action) isLocallyReentrant ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> isLocallyReentrant: aBoolean [ (sharedGeneralizations at: #Action) isLocallyReentrant: aBoolean ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> localPostconditions [ ^ (sharedGeneralizations at: #Action) localPostconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> localPostconditions: aConstraint [ (sharedGeneralizations at: #Action) localPostconditions: aConstraint ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> localPreconditions [ ^ (sharedGeneralizations at: #Action) localPreconditions ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> localPreconditions: aConstraint [ (sharedGeneralizations at: #Action) localPreconditions: aConstraint ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> name [ ^ (sharedGeneralizations at: #NamedElement) name ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> name: aString [ (sharedGeneralizations at: #NamedElement) name: aString ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> nameExpression [ ^ (sharedGeneralizations at: #NamedElement) nameExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> nameExpression: aStringExpression [ (sharedGeneralizations at: #NamedElement) nameExpression: aStringExpression ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> namespace [ ^ (sharedGeneralizations at: #NamedElement) namespace ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> namespace: aNamespace [ (sharedGeneralizations at: #NamedElement) namespace: aNamespace ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> outgoings [ ^ (sharedGeneralizations at: #ActivityNode) outgoings ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> outgoings: anActivityEdge [ (sharedGeneralizations at: #ActivityNode) outgoings: anActivityEdge ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> outputs [ ^ (sharedGeneralizations at: #Action) outputs ] -{ #category : #'accessing - Action' } +{ #category : 'accessing - Action' } OPUMLWriteVariableAction >> outputs: anOutputPin [ (sharedGeneralizations at: #Action) outputs: anOutputPin ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> qualifiedName [ ^ (sharedGeneralizations at: #NamedElement) qualifiedName ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> qualifiedName: aString [ (sharedGeneralizations at: #NamedElement) qualifiedName: aString ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteVariableAction >> redefinedElements [ ^ (sharedGeneralizations at: #RedefinableElement) redefinedElements ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteVariableAction >> redefinedElements: aRedefinableElement [ (sharedGeneralizations at: #RedefinableElement) redefinedElements: aRedefinableElement ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> redefinedNodes [ ^ (sharedGeneralizations at: #ActivityNode) redefinedNodes ] -{ #category : #'accessing - ActivityNode' } +{ #category : 'accessing - ActivityNode' } OPUMLWriteVariableAction >> redefinedNodes: anActivityNode [ (sharedGeneralizations at: #ActivityNode) redefinedNodes: anActivityNode ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteVariableAction >> redefinitionContexts [ ^ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts ] -{ #category : #'accessing - RedefinableElement' } +{ #category : 'accessing - RedefinableElement' } OPUMLWriteVariableAction >> redefinitionContexts: aClassifier [ (sharedGeneralizations at: #RedefinableElement) redefinitionContexts: aClassifier ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLWriteVariableAction >> value [ "The InputPin that gives the value to be added or removed from the Variable." ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } OPUMLWriteVariableAction >> value: anInputPin [ "The InputPin that gives the value to be added or removed from the Variable." value := anInputPin ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLWriteVariableAction >> variable [ ^ (sharedGeneralizations at: #VariableAction) variable ] -{ #category : #'accessing - VariableAction' } +{ #category : 'accessing - VariableAction' } OPUMLWriteVariableAction >> variable: aVariable [ (sharedGeneralizations at: #VariableAction) variable: aVariable ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> visibility [ ^ (sharedGeneralizations at: #NamedElement) visibility ] -{ #category : #'accessing - NamedElement' } +{ #category : 'accessing - NamedElement' } OPUMLWriteVariableAction >> visibility: aVisibilityKind [ (sharedGeneralizations at: #NamedElement) visibility: aVisibilityKind ] diff --git a/repository/OP-UML-Metamodel/package.st b/repository/OP-UML-Metamodel/package.st index 571fed8..597c65e 100644 --- a/repository/OP-UML-Metamodel/package.st +++ b/repository/OP-UML-Metamodel/package.st @@ -1 +1 @@ -Package { #name : #'OP-UML-Metamodel' } +Package { #name : 'OP-UML-Metamodel' }