diff --git a/repository/BaselineOfBPMN/BaselineOfBPMN.class.st b/repository/BaselineOfBPMN/BaselineOfBPMN.class.st index 9d4886e..0421488 100644 --- a/repository/BaselineOfBPMN/BaselineOfBPMN.class.st +++ b/repository/BaselineOfBPMN/BaselineOfBPMN.class.st @@ -1,10 +1,11 @@ Class { - #name : #BaselineOfBPMN, - #superclass : #BaselineOf, - #category : #BaselineOfBPMN + #name : 'BaselineOfBPMN', + #superclass : 'BaselineOf', + #category : 'BaselineOfBPMN', + #package : 'BaselineOfBPMN' } -{ #category : #baselines } +{ #category : 'baselines' } BaselineOfBPMN >> baseline: spec [ diff --git a/repository/BaselineOfBPMN/package.st b/repository/BaselineOfBPMN/package.st index 3ed5f08..9c4de83 100644 --- a/repository/BaselineOfBPMN/package.st +++ b/repository/BaselineOfBPMN/package.st @@ -1 +1 @@ -Package { #name : #BaselineOfBPMN } +Package { #name : 'BaselineOfBPMN' } diff --git a/repository/OpenPonk-BPMN-Validation/AC01MessageReceive.class.st b/repository/OpenPonk-BPMN-Validation/AC01MessageReceive.class.st index 2decc0d..58ce43f 100644 --- a/repository/OpenPonk-BPMN-Validation/AC01MessageReceive.class.st +++ b/repository/OpenPonk-BPMN-Validation/AC01MessageReceive.class.st @@ -1,15 +1,17 @@ Class { - #name : #AC01MessageReceive, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AC01MessageReceive', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AC01MessageReceive class >> validateClass [ ^ OPBPMNActivityModel. ] -{ #category : #verification } +{ #category : 'verification' } AC01MessageReceive >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/AC02MessageSend.class.st b/repository/OpenPonk-BPMN-Validation/AC02MessageSend.class.st index 3300c95..9c0dab6 100644 --- a/repository/OpenPonk-BPMN-Validation/AC02MessageSend.class.st +++ b/repository/OpenPonk-BPMN-Validation/AC02MessageSend.class.st @@ -1,15 +1,17 @@ Class { - #name : #AC02MessageSend, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AC02MessageSend', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AC02MessageSend class >> validateClass [ ^ OPBPMNActivityModel. ] -{ #category : #verification } +{ #category : 'verification' } AC02MessageSend >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/AC03MessageReceiveOther.class.st b/repository/OpenPonk-BPMN-Validation/AC03MessageReceiveOther.class.st index 2f20671..ff9edb7 100644 --- a/repository/OpenPonk-BPMN-Validation/AC03MessageReceiveOther.class.st +++ b/repository/OpenPonk-BPMN-Validation/AC03MessageReceiveOther.class.st @@ -1,15 +1,17 @@ Class { - #name : #AC03MessageReceiveOther, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AC03MessageReceiveOther', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AC03MessageReceiveOther class >> validateClass [ ^ OPBPMNActivityModel. ] -{ #category : #verification } +{ #category : 'verification' } AC03MessageReceiveOther >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNActivityModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/AC04MessageSendOther.class.st b/repository/OpenPonk-BPMN-Validation/AC04MessageSendOther.class.st index f6f2fc0..2324a29 100644 --- a/repository/OpenPonk-BPMN-Validation/AC04MessageSendOther.class.st +++ b/repository/OpenPonk-BPMN-Validation/AC04MessageSendOther.class.st @@ -1,15 +1,17 @@ Class { - #name : #AC04MessageSendOther, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AC04MessageSendOther', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AC04MessageSendOther class >> validateClass [ ^ OPBPMNActivityModel. ] -{ #category : #verification } +{ #category : 'verification' } AC04MessageSendOther >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNActivityModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/AC05ActivityMergingFlows.class.st b/repository/OpenPonk-BPMN-Validation/AC05ActivityMergingFlows.class.st index 9c13862..8508b7c 100644 --- a/repository/OpenPonk-BPMN-Validation/AC05ActivityMergingFlows.class.st +++ b/repository/OpenPonk-BPMN-Validation/AC05ActivityMergingFlows.class.st @@ -1,15 +1,17 @@ Class { - #name : #AC05ActivityMergingFlows, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AC05ActivityMergingFlows', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AC05ActivityMergingFlows class >> validateClass [ ^ OPBPMNActivityModel. ] -{ #category : #verification } +{ #category : 'verification' } AC05ActivityMergingFlows >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counterIn counterOut | (aVerifiedObject isKindOf: OPBPMNActivityModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/AN01FlowNodeIncomingFlow.class.st b/repository/OpenPonk-BPMN-Validation/AN01FlowNodeIncomingFlow.class.st index 5a857be..e745c92 100644 --- a/repository/OpenPonk-BPMN-Validation/AN01FlowNodeIncomingFlow.class.st +++ b/repository/OpenPonk-BPMN-Validation/AN01FlowNodeIncomingFlow.class.st @@ -1,15 +1,17 @@ Class { - #name : #AN01FlowNodeIncomingFlow, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AN01FlowNodeIncomingFlow', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AN01FlowNodeIncomingFlow class >> validateClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #verification } +{ #category : 'verification' } AN01FlowNodeIncomingFlow >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/AN02FlowNodeOutgoingFlow.class.st b/repository/OpenPonk-BPMN-Validation/AN02FlowNodeOutgoingFlow.class.st index 0df910d..aa97f07 100644 --- a/repository/OpenPonk-BPMN-Validation/AN02FlowNodeOutgoingFlow.class.st +++ b/repository/OpenPonk-BPMN-Validation/AN02FlowNodeOutgoingFlow.class.st @@ -1,15 +1,17 @@ Class { - #name : #AN02FlowNodeOutgoingFlow, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AN02FlowNodeOutgoingFlow', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AN02FlowNodeOutgoingFlow class >> validateClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #verification } +{ #category : 'verification' } AN02FlowNodeOutgoingFlow >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNFlowNodeModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/AN03MaxOneDefaultFlow.class.st b/repository/OpenPonk-BPMN-Validation/AN03MaxOneDefaultFlow.class.st index 17b4e43..3673247 100644 --- a/repository/OpenPonk-BPMN-Validation/AN03MaxOneDefaultFlow.class.st +++ b/repository/OpenPonk-BPMN-Validation/AN03MaxOneDefaultFlow.class.st @@ -1,15 +1,17 @@ Class { - #name : #AN03MaxOneDefaultFlow, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AN03MaxOneDefaultFlow', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AN03MaxOneDefaultFlow class >> validateClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #verification } +{ #category : 'verification' } AN03MaxOneDefaultFlow >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | aCounter | diff --git a/repository/OpenPonk-BPMN-Validation/AN04LabeledMessageFlow.class.st b/repository/OpenPonk-BPMN-Validation/AN04LabeledMessageFlow.class.st index 5b78014..dcaae8a 100644 --- a/repository/OpenPonk-BPMN-Validation/AN04LabeledMessageFlow.class.st +++ b/repository/OpenPonk-BPMN-Validation/AN04LabeledMessageFlow.class.st @@ -1,15 +1,17 @@ Class { - #name : #AN04LabeledMessageFlow, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AN04LabeledMessageFlow', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AN04LabeledMessageFlow class >> validateClass [ ^ OPBPMNNodeModel. ] -{ #category : #verification } +{ #category : 'verification' } AN04LabeledMessageFlow >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/AN05LabelValidation.class.st b/repository/OpenPonk-BPMN-Validation/AN05LabelValidation.class.st index a955ca1..032c2ae 100644 --- a/repository/OpenPonk-BPMN-Validation/AN05LabelValidation.class.st +++ b/repository/OpenPonk-BPMN-Validation/AN05LabelValidation.class.st @@ -1,15 +1,17 @@ Class { - #name : #AN05LabelValidation, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AN05LabelValidation', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AN05LabelValidation class >> validateClass [ ^ OPBPMNNodeModel. ] -{ #category : #verification } +{ #category : 'verification' } AN05LabelValidation >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | size | diff --git a/repository/OpenPonk-BPMN-Validation/AN06OnlyConditionalFlow.class.st b/repository/OpenPonk-BPMN-Validation/AN06OnlyConditionalFlow.class.st index a1022ba..8743f2e 100644 --- a/repository/OpenPonk-BPMN-Validation/AN06OnlyConditionalFlow.class.st +++ b/repository/OpenPonk-BPMN-Validation/AN06OnlyConditionalFlow.class.st @@ -1,15 +1,17 @@ Class { - #name : #AN06OnlyConditionalFlow, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'AN06OnlyConditionalFlow', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } AN06OnlyConditionalFlow class >> validateClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #verification } +{ #category : 'verification' } AN06OnlyConditionalFlow >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNFlowNodeModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/BE02OneSequenceFlow.class.st b/repository/OpenPonk-BPMN-Validation/BE02OneSequenceFlow.class.st index c4bb0f9..7d834b2 100644 --- a/repository/OpenPonk-BPMN-Validation/BE02OneSequenceFlow.class.st +++ b/repository/OpenPonk-BPMN-Validation/BE02OneSequenceFlow.class.st @@ -1,15 +1,17 @@ Class { - #name : #BE02OneSequenceFlow, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'BE02OneSequenceFlow', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BE02OneSequenceFlow class >> validateClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #verification } +{ #category : 'verification' } BE02OneSequenceFlow >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNBoundaryEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/BE03BoundaryErrorSibling.class.st b/repository/OpenPonk-BPMN-Validation/BE03BoundaryErrorSibling.class.st index be32b87..b2c8b08 100644 --- a/repository/OpenPonk-BPMN-Validation/BE03BoundaryErrorSibling.class.st +++ b/repository/OpenPonk-BPMN-Validation/BE03BoundaryErrorSibling.class.st @@ -1,15 +1,17 @@ Class { - #name : #BE03BoundaryErrorSibling, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'BE03BoundaryErrorSibling', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BE03BoundaryErrorSibling class >> validateClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #verification } +{ #category : 'verification' } BE03BoundaryErrorSibling >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNBoundaryEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/BE04BoundaryEscalationSibling.class.st b/repository/OpenPonk-BPMN-Validation/BE04BoundaryEscalationSibling.class.st index 96662a5..5fe0e67 100644 --- a/repository/OpenPonk-BPMN-Validation/BE04BoundaryEscalationSibling.class.st +++ b/repository/OpenPonk-BPMN-Validation/BE04BoundaryEscalationSibling.class.st @@ -1,15 +1,17 @@ Class { - #name : #BE04BoundaryEscalationSibling, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'BE04BoundaryEscalationSibling', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BE04BoundaryEscalationSibling class >> validateClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #verification } +{ #category : 'verification' } BE04BoundaryEscalationSibling >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNBoundaryEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/BE05ErrorNonInterrupting.class.st b/repository/OpenPonk-BPMN-Validation/BE05ErrorNonInterrupting.class.st index 5fb9704..e7fb5b1 100644 --- a/repository/OpenPonk-BPMN-Validation/BE05ErrorNonInterrupting.class.st +++ b/repository/OpenPonk-BPMN-Validation/BE05ErrorNonInterrupting.class.st @@ -1,15 +1,17 @@ Class { - #name : #BE05ErrorNonInterrupting, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'BE05ErrorNonInterrupting', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BE05ErrorNonInterrupting class >> validateClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #verification } +{ #category : 'verification' } BE05ErrorNonInterrupting >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNBoundaryEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/EE03MessageSend.class.st b/repository/OpenPonk-BPMN-Validation/EE03MessageSend.class.st index 73541da..64157f0 100644 --- a/repository/OpenPonk-BPMN-Validation/EE03MessageSend.class.st +++ b/repository/OpenPonk-BPMN-Validation/EE03MessageSend.class.st @@ -1,15 +1,17 @@ Class { - #name : #EE03MessageSend, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'EE03MessageSend', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } EE03MessageSend class >> validateClass [ ^ OPBPMNEndEventModel. ] -{ #category : #verification } +{ #category : 'verification' } EE03MessageSend >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNEndEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/EE04MessageOther.class.st b/repository/OpenPonk-BPMN-Validation/EE04MessageOther.class.st index 22f94d9..840d62a 100644 --- a/repository/OpenPonk-BPMN-Validation/EE04MessageOther.class.st +++ b/repository/OpenPonk-BPMN-Validation/EE04MessageOther.class.st @@ -1,15 +1,17 @@ Class { - #name : #EE04MessageOther, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'EE04MessageOther', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } EE04MessageOther class >> validateClass [ ^ OPBPMNEndEventModel. ] -{ #category : #verification } +{ #category : 'verification' } EE04MessageOther >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNEndEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/GW02Splitting.class.st b/repository/OpenPonk-BPMN-Validation/GW02Splitting.class.st index c4dc283..3b30d1c 100644 --- a/repository/OpenPonk-BPMN-Validation/GW02Splitting.class.st +++ b/repository/OpenPonk-BPMN-Validation/GW02Splitting.class.st @@ -1,15 +1,17 @@ Class { - #name : #GW02Splitting, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'GW02Splitting', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } GW02Splitting class >> validateClass [ ^ OPBPMNGatewayModel. ] -{ #category : #verification } +{ #category : 'verification' } GW02Splitting >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNGatewayModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/GW03ShouldSplitting.class.st b/repository/OpenPonk-BPMN-Validation/GW03ShouldSplitting.class.st index 2a3023c..f494b05 100644 --- a/repository/OpenPonk-BPMN-Validation/GW03ShouldSplitting.class.st +++ b/repository/OpenPonk-BPMN-Validation/GW03ShouldSplitting.class.st @@ -1,15 +1,17 @@ Class { - #name : #GW03ShouldSplitting, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'GW03ShouldSplitting', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } GW03ShouldSplitting class >> validateClass [ ^ OPBPMNGatewayModel. ] -{ #category : #verification } +{ #category : 'verification' } GW03ShouldSplitting >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNGatewayModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/GW04Eventbased.class.st b/repository/OpenPonk-BPMN-Validation/GW04Eventbased.class.st index f3d8f7a..458b94a 100644 --- a/repository/OpenPonk-BPMN-Validation/GW04Eventbased.class.st +++ b/repository/OpenPonk-BPMN-Validation/GW04Eventbased.class.st @@ -1,15 +1,17 @@ Class { - #name : #GW04Eventbased, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'GW04Eventbased', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } GW04Eventbased class >> validateClass [ ^ OPBPMNGatewayModel. ] -{ #category : #verification } +{ #category : 'verification' } GW04Eventbased >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/GW05ParallelEventGatewayOutgoingFlows.class.st b/repository/OpenPonk-BPMN-Validation/GW05ParallelEventGatewayOutgoingFlows.class.st index 1e02676..23eae7c 100644 --- a/repository/OpenPonk-BPMN-Validation/GW05ParallelEventGatewayOutgoingFlows.class.st +++ b/repository/OpenPonk-BPMN-Validation/GW05ParallelEventGatewayOutgoingFlows.class.st @@ -1,15 +1,17 @@ Class { - #name : #GW05ParallelEventGatewayOutgoingFlows, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'GW05ParallelEventGatewayOutgoingFlows', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } GW05ParallelEventGatewayOutgoingFlows class >> validateClass [ ^ OPBPMNGatewayModel. ] -{ #category : #verification } +{ #category : 'verification' } GW05ParallelEventGatewayOutgoingFlows >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNGatewayModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/GW06NoConditionalOutgoingFlows.class.st b/repository/OpenPonk-BPMN-Validation/GW06NoConditionalOutgoingFlows.class.st index 6edd476..9d125a3 100644 --- a/repository/OpenPonk-BPMN-Validation/GW06NoConditionalOutgoingFlows.class.st +++ b/repository/OpenPonk-BPMN-Validation/GW06NoConditionalOutgoingFlows.class.st @@ -1,15 +1,17 @@ Class { - #name : #GW06NoConditionalOutgoingFlows, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'GW06NoConditionalOutgoingFlows', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } GW06NoConditionalOutgoingFlows class >> validateClass [ ^ OPBPMNGatewayModel. ] -{ #category : #verification } +{ #category : 'verification' } GW06NoConditionalOutgoingFlows >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/GW07LabeledOutgoingFlows.class.st b/repository/OpenPonk-BPMN-Validation/GW07LabeledOutgoingFlows.class.st index 6f8a94c..8da30d0 100644 --- a/repository/OpenPonk-BPMN-Validation/GW07LabeledOutgoingFlows.class.st +++ b/repository/OpenPonk-BPMN-Validation/GW07LabeledOutgoingFlows.class.st @@ -1,15 +1,17 @@ Class { - #name : #GW07LabeledOutgoingFlows, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'GW07LabeledOutgoingFlows', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } GW07LabeledOutgoingFlows class >> validateClass [ ^ OPBPMNGatewayModel. ] -{ #category : #verification } +{ #category : 'verification' } GW07LabeledOutgoingFlows >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/IE01MessageReceive.class.st b/repository/OpenPonk-BPMN-Validation/IE01MessageReceive.class.st index 68011ba..5592642 100644 --- a/repository/OpenPonk-BPMN-Validation/IE01MessageReceive.class.st +++ b/repository/OpenPonk-BPMN-Validation/IE01MessageReceive.class.st @@ -1,15 +1,17 @@ Class { - #name : #IE01MessageReceive, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'IE01MessageReceive', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } IE01MessageReceive class >> validateClass [ ^ OPBPMNIntermediateEventModel. ] -{ #category : #verification } +{ #category : 'verification' } IE01MessageReceive >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/IE02MessageSend.class.st b/repository/OpenPonk-BPMN-Validation/IE02MessageSend.class.st index cc4a34e..912477e 100644 --- a/repository/OpenPonk-BPMN-Validation/IE02MessageSend.class.st +++ b/repository/OpenPonk-BPMN-Validation/IE02MessageSend.class.st @@ -1,15 +1,17 @@ Class { - #name : #IE02MessageSend, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'IE02MessageSend', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } IE02MessageSend class >> validateClass [ ^ OPBPMNIntermediateEventModel. ] -{ #category : #verification } +{ #category : 'verification' } IE02MessageSend >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | diff --git a/repository/OpenPonk-BPMN-Validation/IE03MessageReceiveOther.class.st b/repository/OpenPonk-BPMN-Validation/IE03MessageReceiveOther.class.st index ce29eb5..3e2d0f6 100644 --- a/repository/OpenPonk-BPMN-Validation/IE03MessageReceiveOther.class.st +++ b/repository/OpenPonk-BPMN-Validation/IE03MessageReceiveOther.class.st @@ -1,15 +1,17 @@ Class { - #name : #IE03MessageReceiveOther, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'IE03MessageReceiveOther', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } IE03MessageReceiveOther class >> validateClass [ ^ OPBPMNIntermediateEventModel. ] -{ #category : #verification } +{ #category : 'verification' } IE03MessageReceiveOther >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNIntermediateEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/IE04MessageSendOther.class.st b/repository/OpenPonk-BPMN-Validation/IE04MessageSendOther.class.st index e5de9e0..919a7ca 100644 --- a/repository/OpenPonk-BPMN-Validation/IE04MessageSendOther.class.st +++ b/repository/OpenPonk-BPMN-Validation/IE04MessageSendOther.class.st @@ -1,15 +1,17 @@ Class { - #name : #IE04MessageSendOther, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'IE04MessageSendOther', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } IE04MessageSendOther class >> validateClass [ ^ OPBPMNIntermediateEventModel. ] -{ #category : #verification } +{ #category : 'verification' } IE04MessageSendOther >> validateObject: aVerifiedObject withModel: aVerifiedModel [ | counter | (aVerifiedObject isKindOf: OPBPMNIntermediateEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAC01ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAC01ValidationTest.class.st index 7dfedc8..44cae37 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAC01ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAC01ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAC01ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAC01ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC01ValidationTest >> getTestedClass [ ^ AC01MessageReceive. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC01ValidationTest >> getValidatedClass [ ^ OPBPMNActivityModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC01ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC01ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC01ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAC02ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAC02ValidationTest.class.st index 4ff85b6..ff8941e 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAC02ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAC02ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAC02ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAC02ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC02ValidationTest >> getTestedClass [ ^ AC02MessageSend. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC02ValidationTest >> getValidatedClass [ ^ OPBPMNActivityModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC02ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC02ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC02ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAC03ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAC03ValidationTest.class.st index 99f9ee1..62d98c6 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAC03ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAC03ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAC03ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAC03ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC03ValidationTest >> getTestedClass [ ^ AC03MessageReceiveOther ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC03ValidationTest >> getValidatedClass [ ^ OPBPMNActivityModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC03ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC03ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC03ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAC04ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAC04ValidationTest.class.st index 3e085e1..e3fa0f3 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAC04ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAC04ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAC04ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAC04ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC04ValidationTest >> getTestedClass [ ^ AC04MessageSendOther ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC04ValidationTest >> getValidatedClass [ ^ OPBPMNActivityModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC04ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC04ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC04ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAC05ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAC05ValidationTest.class.st index 5e820fd..b0f96f3 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAC05ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAC05ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAC05ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAC05ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC05ValidationTest >> getTestedClass [ ^ AC05ActivityMergingFlows ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC05ValidationTest >> getValidatedClass [ ^ OPBPMNActivityModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC05ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC05ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAC05ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAN01ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAN01ValidationTest.class.st index 57c17e2..c14ad0c 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAN01ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAN01ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAN01ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAN01ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN01ValidationTest >> getTestedClass [ ^ AN01FlowNodeIncomingFlow. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN01ValidationTest >> getValidatedClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN01ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN01ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN01ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAN02ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAN02ValidationTest.class.st index 4305581..2624f51 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAN02ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAN02ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAN02ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAN02ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN02ValidationTest >> getTestedClass [ ^ AN02FlowNodeOutgoingFlow. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN02ValidationTest >> getValidatedClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN02ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN02ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN02ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAN03ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAN03ValidationTest.class.st index 5a66b10..9ab9cc6 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAN03ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAN03ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAN03ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAN03ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN03ValidationTest >> getTestedClass [ ^ AN03MaxOneDefaultFlow. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN03ValidationTest >> getValidatedClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN03ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN03ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN03ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAN04ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAN04ValidationTest.class.st index 5cc8d0d..ab3505f 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAN04ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAN04ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAN04ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAN04ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN04ValidationTest >> getTestedClass [ ^ AN04LabeledMessageFlow. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN04ValidationTest >> getValidatedClass [ ^ OPBPMNNodeModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN04ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN04ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN04ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAN05ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAN05ValidationTest.class.st index 9cbc5da..8bdbd6b 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAN05ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAN05ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAN05ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAN05ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN05ValidationTest >> getTestedClass [ ^ AN05LabelValidation. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN05ValidationTest >> getValidatedClass [ ^ OPBPMNNodeModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN05ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN05ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN05ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAN06ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAN06ValidationTest.class.st index 4d84a4a..3094c7d 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAN06ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAN06ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNAN06ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAN06ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN06ValidationTest >> getTestedClass [ ^ AN06OnlyConditionalFlow. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN06ValidationTest >> getValidatedClass [ ^ OPBPMNFlowNodeModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN06ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN06ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAN06ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNAbstractValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNAbstractValidationTest.class.st index 0208160..ac584ca 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNAbstractValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNAbstractValidationTest.class.st @@ -1,46 +1,48 @@ Class { - #name : #OPBPMNAbstractValidationTest, - #superclass : #TestCase, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNAbstractValidationTest', + #superclass : 'TestCase', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> canValidateTest [ self assert: (self getTestedClass canValidate: self getNotValidatedClassInstance) equals: false. self assert: (self getTestedClass canValidate: self getValidatedClassInstance) equals: true. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> getNotValidatedClass [ ^ Object. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> getNotValidatedClassInstance [ ^ self getNotValidatedClass new. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> getTestedClass [ self subclassResponsibility. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> getValidatedClass [ self subclassResponsibility. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> getValidatedClassInstance [ ^ self getValidatedClass new. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> newTest [ self should: [ self getTestedClass new. ] raise: ShouldNotImplement. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNAbstractValidationTest >> validatedClassTest [ self assert: self getTestedClass validateClass equals: self getValidatedClass. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNBE02ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNBE02ValidationTest.class.st index 08b3a31..656c010 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNBE02ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNBE02ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNBE02ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNBE02ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE02ValidationTest >> getTestedClass [ ^ BE02OneSequenceFlow. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE02ValidationTest >> getValidatedClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE02ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE02ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE02ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNBE03ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNBE03ValidationTest.class.st index db34806..08d585a 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNBE03ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNBE03ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNBE03ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNBE03ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE03ValidationTest >> getTestedClass [ ^ BE03BoundaryErrorSibling. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE03ValidationTest >> getValidatedClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE03ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE03ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE03ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNBE04ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNBE04ValidationTest.class.st index feadb4a..fcea81c 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNBE04ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNBE04ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNBE04ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNBE04ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE04ValidationTest >> getTestedClass [ ^ BE04BoundaryEscalationSibling. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE04ValidationTest >> getValidatedClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE04ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE04ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE04ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNBE05ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNBE05ValidationTest.class.st index 6d8f66d..7764de1 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNBE05ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNBE05ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNBE05ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNBE05ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE05ValidationTest >> getTestedClass [ ^ BE05ErrorNonInterrupting. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE05ValidationTest >> getValidatedClass [ ^ OPBPMNBoundaryEventModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE05ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE05ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNBE05ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNEE03ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNEE03ValidationTest.class.st index 4bce5a0..1cc93cb 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNEE03ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNEE03ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNEE03ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNEE03ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE03ValidationTest >> getTestedClass [ ^ EE03MessageSend. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE03ValidationTest >> getValidatedClass [ ^ OPBPMNEndEventModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE03ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE03ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE03ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNEE04ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNEE04ValidationTest.class.st index 4da26f3..7fc541c 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNEE04ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNEE04ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNEE04ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNEE04ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE04ValidationTest >> getTestedClass [ ^ EE04MessageOther. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE04ValidationTest >> getValidatedClass [ ^ OPBPMNEndEventModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE04ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE04ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNEE04ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNGW02ValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNGW02ValidationTest.class.st index 26b02de..76ea76e 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNGW02ValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNGW02ValidationTest.class.st @@ -1,30 +1,32 @@ Class { - #name : #OPBPMNGW02ValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNGW02ValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNGW02ValidationTest >> getTestedClass [ ^ GW02Splitting. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNGW02ValidationTest >> getValidatedClass [ ^ OPBPMNGatewayModel. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNGW02ValidationTest >> testCanValidate [ self canValidateTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNGW02ValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNGW02ValidationTest >> testValidatedClass [ self validatedClassTest. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidation.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidation.class.st index b323d04..e9e4f0b 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidation.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidation.class.st @@ -1,21 +1,23 @@ Class { - #name : #OPBPMNValidation, - #superclass : #Object, - #category : #'OpenPonk-BPMN-Validation-Settings' + #name : 'OPBPMNValidation', + #superclass : 'Object', + #category : 'OpenPonk-BPMN-Validation-Settings', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Settings' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidation class >> canValidate: aVerifiedObject [ "^ aVerifiedObject class = self validateClass." ^ aVerifiedObject isKindOf: self validateClass. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidation class >> new [ ^ self shouldNotImplement. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidation class >> validate: aVerifiedObject withModel: aVerifiedModel [ | verification | (self canValidate: aVerifiedObject) ifFalse: [ ^ {} ]. @@ -23,12 +25,12 @@ OPBPMNValidation class >> validate: aVerifiedObject withModel: aVerifiedModel [ ^ verification validateObject: aVerifiedObject withModel: aVerifiedModel. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidation class >> validateClass [ ^ nil. ] -{ #category : #verification } +{ #category : 'verification' } OPBPMNValidation >> validateObject: aVerifiedObject withModel: aVerifiedModel [ self subclassResponsibility. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationController.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationController.class.st index 055dae5..22823bd 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationController.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationController.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationController, - #superclass : #Object, - #category : #'OpenPonk-BPMN-Validation-Controllers' + #name : 'OPBPMNValidationController', + #superclass : 'Object', + #category : 'OpenPonk-BPMN-Validation-Controllers', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Controllers' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationController >> getValidateObjects: aValidateModel [ | verifiedObjects | verifiedObjects := aValidateModel nodes. @@ -13,14 +15,14 @@ OPBPMNValidationController >> getValidateObjects: aValidateModel [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationController >> getValidations [ ^ (RPackageOrganizer default packageNamed: 'OpenPonk-BPMN-Validation') definedClasses select: [ :class |class tags asSet includes: 'Validation-Classes']. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationController >> validate: aValidateModel [ | validateObjects validations results | @@ -45,7 +47,7 @@ OPBPMNValidationController >> validate: aValidateModel [ ^ results ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationController >> validateProcess: aValidateModel [ | results validateObjects startEventCounter poolCounter activityCounter activityAlone | @@ -88,7 +90,7 @@ OPBPMNValidationController >> validateProcess: aValidateModel [ ^ results ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationController >> validateSingleObject: aValidateObject withValidations: aValidations withModel: aValidatedModel withResults: aValidationsResults [ ^ aValidations do: [ :validations | diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationControllerTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationControllerTest.class.st index cea5b5a..57405f3 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationControllerTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationControllerTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationControllerTest, - #superclass : #TestCase, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNValidationControllerTest', + #superclass : 'TestCase', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationControllerTest >> testGetValidatedObjects [ | controller validations activity pool subprocess array model collection | controller := OPBPMNValidationController new. @@ -19,7 +21,7 @@ OPBPMNValidationControllerTest >> testGetValidatedObjects [ self assert: (controller getValidateObjects: model) equals: array. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationControllerTest >> testGetValidations [ | controller validations | controller := OPBPMNValidationController new. @@ -30,7 +32,7 @@ OPBPMNValidationControllerTest >> testGetValidations [ self assert: (validations allSatisfy: [ :validationClass | validationClass tags asSet includes: 'Validation-Classes'. ]) equals: true. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationControllerTest >> testValidate [ | activity array model controller results dataO | activity := OPBPMNActivityModel new. @@ -47,7 +49,7 @@ OPBPMNValidationControllerTest >> testValidate [ self assert: (results hasErrors: model) equals: false. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationControllerTest >> testValidateProcess [ | activity array model controller results dataO startE | activity := OPBPMNActivityModel new. @@ -75,7 +77,7 @@ OPBPMNValidationControllerTest >> testValidateProcess [ ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationControllerTest >> testValidateSingleObject [ | activity array model controller results | activity := OPBPMNActivityModel new. diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationFrameworkSettings.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationFrameworkSettings.class.st index 37ef1f9..4afb1d9 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationFrameworkSettings.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationFrameworkSettings.class.st @@ -1,34 +1,36 @@ Class { - #name : #OPBPMNValidationFrameworkSettings, - #superclass : #Object, + #name : 'OPBPMNValidationFrameworkSettings', + #superclass : 'Object', #instVars : [ 'settings' ], #classInstVars : [ 'settingsInstance' ], - #category : #'OpenPonk-BPMN-Validation-Settings' + #category : 'OpenPonk-BPMN-Validation-Settings', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Settings' } -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationFrameworkSettings class >> getInstance [ settingsInstance ifNil: [ settingsInstance := self new. ]. ^ settingsInstance. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationFrameworkSettings class >> settingsInstance [ settingsInstance ifNil: [ settingsInstance := self new. ]. ^ settingsInstance. ] -{ #category : #access } +{ #category : 'access' } OPBPMNValidationFrameworkSettings >> getSettingFor: aVerificationClass [ (settings includesKey: aVerificationClass) ifFalse: [ settings add: (aVerificationClass -> true) ]. ^ settings at: aVerificationClass. ] -{ #category : #access } +{ #category : 'access' } OPBPMNValidationFrameworkSettings >> initialize [ | controller | controller := OPBPMNValidationController new. @@ -36,7 +38,7 @@ OPBPMNValidationFrameworkSettings >> initialize [ controller getValidations do: [ :class | settings add: (class -> true). ] ] -{ #category : #access } +{ #category : 'access' } OPBPMNValidationFrameworkSettings >> setSettingFor: aVerificationClass withValue: aValue [ settings at: aVerificationClass put: aValue. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessage.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessage.class.st index feca733..f3c153b 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessage.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessage.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPBPMNValidationMessage, - #superclass : #Object, + #name : 'OPBPMNValidationMessage', + #superclass : 'Object', #instVars : [ 'messageText', 'objectReference', 'validation' ], - #category : #'OpenPonk-BPMN-Validation-Messages' + #category : 'OpenPonk-BPMN-Validation-Messages', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Messages' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationMessage class >> createFor: aObject withValidation: aVerification withText: aText [ | message | message := self basicNew. @@ -19,47 +21,47 @@ OPBPMNValidationMessage class >> createFor: aObject withValidation: aVerificatio ^ message. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBPMNValidationMessage class >> new [ ^ self shouldNotImplement. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> getObjectReferenceName [ ^ self objectReference name. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> messageText [ ^ messageText. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> messageText: aText [ ^ messageText := aText. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> objectReference [ ^ objectReference. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> objectReference: aObject [ ^ objectReference := aObject. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> severity [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> validation [ ^ validation. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessage >> validation: aVerificationReference [ ^ validation := aVerificationReference. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageError.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageError.class.st index 2cae92d..b0f2607 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageError.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageError.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationMessageError, - #superclass : #OPBPMNValidationMessage, - #category : #'OpenPonk-BPMN-Validation-Messages' + #name : 'OPBPMNValidationMessageError', + #superclass : 'OPBPMNValidationMessage', + #category : 'OpenPonk-BPMN-Validation-Messages', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Messages' } -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessageError >> severity [ ^ 'Error' ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageTest.class.st index dadbb3f..217c0d8 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationMessageTest, - #superclass : #TestCase, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNValidationMessageTest', + #superclass : 'TestCase', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testCreateForWithValidatinoWithText [ | validationMessage testObject testValidation testMessageText | testObject := Object new. @@ -16,7 +18,7 @@ OPBPMNValidationMessageTest >> testCreateForWithValidatinoWithText [ assert: validationMessage messageText equals: testMessageText. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testMessageText [ | validationMessage testObject testValidation testMessageText secondText | testObject := Object new. @@ -30,12 +32,12 @@ OPBPMNValidationMessageTest >> testMessageText [ ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testNew [ self should: [ OPBPMNValidationMessage new. ] raise: ShouldNotImplement. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testObjectReference [ | validationMessage testObject testValidation testMessageText secondObject | testObject := Object new. @@ -48,7 +50,7 @@ OPBPMNValidationMessageTest >> testObjectReference [ self assert: validationMessage objectReference equals: secondObject. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testValidation [ | validationMessage testObject testValidation testMessageText secondVal | testObject := Object new. @@ -61,7 +63,7 @@ OPBPMNValidationMessageTest >> testValidation [ self assert: validationMessage validation equals: secondVal. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testValidationError [ | validationMessage testObject testValidation testMessageText | testObject := Object new. @@ -72,7 +74,7 @@ OPBPMNValidationMessageTest >> testValidationError [ self assert: validationMessage severity = 'Error'. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationMessageTest >> testValidationWarning [ | validationMessage testObject testValidation testMessageText | testObject := Object new. diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageUI.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageUI.class.st index 48ae11c..5a3d946 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageUI.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageUI.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationMessageUI, - #superclass : #Object, - #category : #'OpenPonk-BPMN-Validation-UI' + #name : 'OPBPMNValidationMessageUI', + #superclass : 'Object', + #category : 'OpenPonk-BPMN-Validation-UI', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'UI' } -{ #category : #displaying } +{ #category : 'displaying' } OPBPMNValidationMessageUI class >> getObjectReferenceName: aVerificationMessage [ (aVerificationMessage objectReference respondsTo: #name) ifTrue: [ ^ aVerificationMessage objectReference name ]. diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageWarning.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageWarning.class.st index 65f262d..9bf1c8f 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageWarning.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationMessageWarning.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationMessageWarning, - #superclass : #OPBPMNValidationMessage, - #category : #'OpenPonk-BPMN-Validation-Messages' + #name : 'OPBPMNValidationMessageWarning', + #superclass : 'OPBPMNValidationMessage', + #category : 'OpenPonk-BPMN-Validation-Messages', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Messages' } -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationMessageWarning >> severity [ ^ 'Warning' ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResults.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResults.class.st index 36a5c30..5a8ca41 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResults.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResults.class.st @@ -1,19 +1,21 @@ Class { - #name : #OPBPMNValidationResults, - #superclass : #Object, + #name : 'OPBPMNValidationResults', + #superclass : 'Object', #instVars : [ 'results' ], - #category : #'OpenPonk-BPMN-Validation-Results' + #category : 'OpenPonk-BPMN-Validation-Results', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Results' } -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> addResult: aVerificationMessage [ aVerificationMessage ifNotNil: [ results add: aVerificationMessage ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> addResults: aVerificationMessageCollection [ (aVerificationMessageCollection isKindOf: OPBPMNValidationResults) @@ -24,34 +26,34 @@ OPBPMNValidationResults >> addResults: aVerificationMessageCollection [ ifFalse: [ results add: aVerificationMessageCollection ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> hasErrors: aVerifiedObject [ ^ self selectErrors anySatisfy: [ :verificationMessage | verificationMessage objectReference = aVerifiedObject ]. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> hasWarnings: aVerifiedObject [ ^ self selectWarnings anySatisfy: [ :verificationMessage | verificationMessage objectReference = aVerifiedObject ]. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> initialize [ super initialize. results := Set new. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> results [ ^ results. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> selectErrors [ ^ results select: [ :verificationMessage | verificationMessage class = OPBPMNValidationMessageError ]. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResults >> selectWarnings [ ^ results select: [ :verificationMessage | verificationMessage class = OPBPMNValidationMessageWarning ]. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsTest.class.st index 620d6c2..3dbfcc1 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNValidationResultsTest, - #superclass : #TestCase, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNValidationResultsTest', + #superclass : 'TestCase', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testAddResult [ | validationResults dummyMessage | dummyMessage := 'dummyMessage'. @@ -14,7 +16,7 @@ OPBPMNValidationResultsTest >> testAddResult [ self assert: (validationResults results anySatisfy: [ :item | item = dummyMessage ]) ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testAddResults [ | validationResults dummyMessages | dummyMessages := {'dummyMessage'. 'dummyMessage2'. }. @@ -27,7 +29,7 @@ OPBPMNValidationResultsTest >> testAddResults [ ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testHasErrors [ | validationResults dummyMessage dummyObject dummyVerification | dummyObject := Object new. @@ -39,7 +41,7 @@ OPBPMNValidationResultsTest >> testHasErrors [ self assert: (validationResults hasErrors: dummyObject). ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testHasWarnings [ | validationResults dummyMessage dummyObject dummyVerification | dummyObject := Object new. @@ -51,12 +53,12 @@ OPBPMNValidationResultsTest >> testHasWarnings [ self assert: (validationResults hasWarnings: dummyObject). ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testInitialize [ self assert: OPBPMNValidationResults new results equals: Set new. ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testResults [ | validationResults dummyMessage | dummyMessage := 'dummyMessage'. @@ -67,7 +69,7 @@ OPBPMNValidationResultsTest >> testResults [ self assert: (validationResults results anySatisfy: [ :item | item = dummyMessage ]) ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testSelectErrors [ | validationResults dummyMessage dummyObject dummyValidation | dummyObject := Object new. @@ -80,7 +82,7 @@ OPBPMNValidationResultsTest >> testSelectErrors [ self assert: (validationResults selectErrors anySatisfy: [ :item | item = dummyMessage ]). ] -{ #category : #tests } +{ #category : 'tests' } OPBPMNValidationResultsTest >> testSelectWarnings [ | validationResults dummyMessage dummyObject dummyValidation | dummyObject := Object new. diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsUI.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsUI.class.st index 1f723d2..612a96f 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsUI.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationResultsUI.class.st @@ -1,16 +1,18 @@ Class { - #name : #OPBPMNValidationResultsUI, - #superclass : #Object, + #name : 'OPBPMNValidationResultsUI', + #superclass : 'Object', #instVars : [ 'controller', 'validationResults', 'highlighted', 'prevColor' ], - #category : #'OpenPonk-BPMN-Validation-UI' + #category : 'OpenPonk-BPMN-Validation-UI', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'UI' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNValidationResultsUI class >> createUIFor: aVerificationResults withControllers: aControllers [ | verUI | verUI := self new. @@ -19,7 +21,7 @@ OPBPMNValidationResultsUI class >> createUIFor: aVerificationResults withControl ^ verUI. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> changeElementColor: aElement toColor: aColor [ | diagramElementArray | diagramElementArray := (self controller controllers select: [ :aController | aController model = aElement ]) asArray. @@ -27,23 +29,23 @@ OPBPMNValidationResultsUI >> changeElementColor: aElement toColor: aColor [ diagramElementArray first diagramElement updateRenderFromSelf. ] . ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> controller [ ^ controller . ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> controller: aController [ controller := aController. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> getElementColor: aElement [ (self controller controllers select: [ :aController | aController model = aElement ]) do: [ :aController | ^ aController diagramElement borderColor. ]. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> highlightElement: aElement [ highlighted ifNotNil: [ @@ -53,12 +55,12 @@ OPBPMNValidationResultsUI >> highlightElement: aElement [ self changeElementColor: aElement toColor: Color green ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> highlighted [ ^ highlighted ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> inspectorDocumentationReferenceIn: composite [ ^ SpTablePresenter new @@ -69,7 +71,7 @@ OPBPMNValidationResultsUI >> inspectorDocumentationReferenceIn: composite [ yourself. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> inspectorTableIn: composite [ @@ -87,17 +89,17 @@ OPBPMNValidationResultsUI >> inspectorTableIn: composite [ (SpStringTableColumn title: 'Reason' evaluated: #messageText) ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> notifySelectChanged: aSelection [ aSelection ifNotNil: [ self highlightElement: aSelection objectReference. ]. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> validationResults [ ^ validationResults. ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNValidationResultsUI >> validationResults: aValidationResults [ validationResults := aValidationResults. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationTest.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationTest.class.st index da2014d..3f6835d 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationTest.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationTest.class.st @@ -1,35 +1,37 @@ Class { - #name : #OPBPMNValidationTest, - #superclass : #OPBPMNAbstractValidationTest, - #category : #'OpenPonk-BPMN-Validation-Tests' + #name : 'OPBPMNValidationTest', + #superclass : 'OPBPMNAbstractValidationTest', + #category : 'OpenPonk-BPMN-Validation-Tests', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Tests' } -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> getTestedClass [ ^ OPBPMNValidation. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> getValidatedClass [ ^ nil. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> getValidatedClassInstance [ ^ nil. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> testCanValidate [ self assert: (self getTestedClass canValidate: self getNotValidatedClassInstance) equals: false. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> testNew [ self newTest. ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> testValidateObjectWithModel [ self assertCollection: @@ -39,7 +41,7 @@ OPBPMNValidationTest >> testValidateObjectWithModel [ hasSameElements: {} ] -{ #category : #constants } +{ #category : 'constants' } OPBPMNValidationTest >> testValidatedClass [ self assert: self getTestedClass validateClass equals: self getValidatedClass. ] diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationUI.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationUI.class.st index f6d3e9d..7529589 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationUI.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationUI.class.st @@ -1,13 +1,15 @@ Class { - #name : #OPBPMNValidationUI, - #superclass : #Object, + #name : 'OPBPMNValidationUI', + #superclass : 'Object', #classInstVars : [ 'class' ], - #category : #'OpenPonk-BPMN-Validation-UI' + #category : 'OpenPonk-BPMN-Validation-UI', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'UI' } -{ #category : #specs } +{ #category : 'specs' } OPBPMNValidationUI class >> changeElementColorTo: aColor using: aController [ @@ -16,7 +18,7 @@ OPBPMNValidationUI class >> changeElementColorTo: aColor using: aController [ aController diagramElement updateRenderFromSelf ] -{ #category : #specs } +{ #category : 'specs' } OPBPMNValidationUI class >> removeHighlightsFromElementsIn: aDiagramController [ aDiagramController controllers do: [ :controller | @@ -24,7 +26,7 @@ OPBPMNValidationUI class >> removeHighlightsFromElementsIn: aDiagramController [ aDiagramController updateCanvas ] -{ #category : #specs } +{ #category : 'specs' } OPBPMNValidationUI class >> toolbarMenu: aBuilder [ @@ -36,7 +38,7 @@ OPBPMNValidationUI class >> toolbarMenu: aBuilder [ "self toolbarMenuItemFor: aBuilder ] -{ #category : #specs } +{ #category : 'specs' } OPBPMNValidationUI class >> toolbarMenuItemFor: aBuilder [ (aBuilder item: 'Validations') @@ -53,7 +55,7 @@ OPBPMNValidationUI class >> toolbarMenuItemFor: aBuilder [ aBuilder model diagramController ] ] ] -{ #category : #specs } +{ #category : 'specs' } OPBPMNValidationUI class >> updateValidatedElementStyle: aVerificationResults using: aController [ | color | @@ -70,7 +72,7 @@ OPBPMNValidationUI class >> updateValidatedElementStyle: aVerificationResults us aController diagramElement updateRenderFromSelf ] -{ #category : #specs } +{ #category : 'specs' } OPBPMNValidationUI class >> updateValidatedElements: aVerificationResults using: aDiagramController [ aDiagramController controllers do: [ :controller | diff --git a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationWorkbench.class.st b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationWorkbench.class.st index ceea71b..0a5a82b 100644 --- a/repository/OpenPonk-BPMN-Validation/OPBPMNValidationWorkbench.class.st +++ b/repository/OpenPonk-BPMN-Validation/OPBPMNValidationWorkbench.class.st @@ -1,6 +1,6 @@ Class { - #name : #OPBPMNValidationWorkbench, - #superclass : #SpPresenter, + #name : 'OPBPMNValidationWorkbench', + #superclass : 'SpPresenter', #instVars : [ 'editors', 'notebook', @@ -15,10 +15,12 @@ Class { #classInstVars : [ 'isDevelopmentMode' ], - #category : #'OpenPonk-BPMN-Validation-Extensions' + #category : 'OpenPonk-BPMN-Validation-Extensions', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Extensions' } -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -39,31 +41,31 @@ OPBPMNValidationWorkbench class >> defaultLayout [ yourself ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> initialExtent [ ^ self currentWorld extent * 0.8 min: 1600 @ 1000 ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> initialListsWidth [ ^ 250 ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> isDevelopmentMode [ ^ OPWorkbench isDevelopmentMode ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> open [ ^ (self newApplication: OPApplication new) open ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> openModel: aModel [ | project | project := OPProject new. @@ -74,7 +76,7 @@ OPBPMNValidationWorkbench class >> openModel: aModel [ yourself ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> openProject: aProject [ ^ (self newApplication: OPApplication new) @@ -82,7 +84,7 @@ OPBPMNValidationWorkbench class >> openProject: aProject [ yourself ] -{ #category : #layout } +{ #category : 'layout' } OPBPMNValidationWorkbench class >> verificationFrameworkSettingsGroups: aBuilder [ "I create groups for anti-patterns and verifications." @@ -98,7 +100,7 @@ OPBPMNValidationWorkbench class >> verificationFrameworkSettingsGroups: aBuilder order: 240 ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> closeEditorOfDiagram: aDiagram [ editors @@ -107,7 +109,7 @@ OPBPMNValidationWorkbench >> closeEditorOfDiagram: aDiagram [ notebook removePage: (editorInfo at: #page) ] ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> closedTabOfEditor: anEditor [ self projectController updateDiagram: @@ -122,7 +124,7 @@ OPBPMNValidationWorkbench >> closedTabOfEditor: anEditor [ self announce: (OPEditorClosed on: anEditor) ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> connectPresenters [ super connectPresenters. @@ -133,18 +135,18 @@ OPBPMNValidationWorkbench >> connectPresenters [ whenPageRemovedDo: [ :page | self pageRemoved: page ] ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> deleteDiagram: aDiagram [ self closeEditorOfDiagram: aDiagram. self projectController removeDiagram: aDiagram ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> diagramsList [ ^ diagramsList ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> focusEditorOf: aDiagram [ | editorTabInfo | @@ -169,19 +171,19 @@ OPBPMNValidationWorkbench >> focusEditorOf: aDiagram [ focusedEditor diagramController showElements ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> focusedEditor [ ^ focusedEditor ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> initialize [ pluginRegistry := OPPluginRegistry default. editors := IdentityDictionary new. super initialize ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> initializePresenters [ topToolbar := self instantiate: OPWorkbenchToolbar. @@ -195,7 +197,7 @@ OPBPMNValidationWorkbench >> initializePresenters [ add: notebook ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> initializeWindow: aWindow [ aWindow @@ -204,18 +206,18 @@ OPBPMNValidationWorkbench >> initializeWindow: aWindow [ initialExtent: self class initialExtent ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> notebook [ ^ notebook ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> openEditorOn: aModel [ self openEditorOnDiagram: (project diagrams detect: [ :each | each model = aModel ]) ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> openEditorOnDiagram: aDiagram [ | editor notebookPage plugin model | @@ -246,7 +248,7 @@ OPBPMNValidationWorkbench >> openEditorOnDiagram: aDiagram [ ^ editor ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> openProject: aProject [ project := aProject. @@ -264,7 +266,7 @@ OPBPMNValidationWorkbench >> openProject: aProject [ projectController openDiagrams ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> pageRemoved: aPage [ "activePresenter is editor" @@ -272,22 +274,22 @@ OPBPMNValidationWorkbench >> pageRemoved: aPage [ self closedTabOfEditor: aPage activePresenter ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> pluginRegistry [ ^ pluginRegistry ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> projectController [ ^ projectController ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> projectTree [ ^ projectTree ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> showAllElementsInAllDiagrams [ self projectController controllers do: [ :each | @@ -301,7 +303,7 @@ OPBPMNValidationWorkbench >> showAllElementsInAllDiagrams [ self projectController controllers do: #zoomToFit ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> title [ ^ project @@ -309,18 +311,18 @@ OPBPMNValidationWorkbench >> title [ ifNotNil: [ project name , ' - OpenPonk' ] ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> topToolbar [ ^ topToolbar ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> updateTitle [ ^ self withWindowDo: [ :window | window title: self title ] ] -{ #category : #opening } +{ #category : 'opening' } OPBPMNValidationWorkbench >> workbench [ ^ self ] diff --git a/repository/OpenPonk-BPMN-Validation/PR05BlackBoxIncomingMessage.class.st b/repository/OpenPonk-BPMN-Validation/PR05BlackBoxIncomingMessage.class.st index dc284dc..7d76840 100644 --- a/repository/OpenPonk-BPMN-Validation/PR05BlackBoxIncomingMessage.class.st +++ b/repository/OpenPonk-BPMN-Validation/PR05BlackBoxIncomingMessage.class.st @@ -1,15 +1,17 @@ Class { - #name : #PR05BlackBoxIncomingMessage, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'PR05BlackBoxIncomingMessage', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PR05BlackBoxIncomingMessage class >> validateClass [ ^ OPBPMNPoolModel. ] -{ #category : #verification } +{ #category : 'verification' } PR05BlackBoxIncomingMessage >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNPoolModel ) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/PR06BlackBoxOutgoingMessage.class.st b/repository/OpenPonk-BPMN-Validation/PR06BlackBoxOutgoingMessage.class.st index 21f1321..0856656 100644 --- a/repository/OpenPonk-BPMN-Validation/PR06BlackBoxOutgoingMessage.class.st +++ b/repository/OpenPonk-BPMN-Validation/PR06BlackBoxOutgoingMessage.class.st @@ -1,15 +1,17 @@ Class { - #name : #PR06BlackBoxOutgoingMessage, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'PR06BlackBoxOutgoingMessage', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PR06BlackBoxOutgoingMessage class >> validateClass [ ^ OPBPMNPoolModel. ] -{ #category : #verification } +{ #category : 'verification' } PR06BlackBoxOutgoingMessage >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNPoolModel ) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/PR2347ProcessErrors.class.st b/repository/OpenPonk-BPMN-Validation/PR2347ProcessErrors.class.st index 220f928..03d57ad 100644 --- a/repository/OpenPonk-BPMN-Validation/PR2347ProcessErrors.class.st +++ b/repository/OpenPonk-BPMN-Validation/PR2347ProcessErrors.class.st @@ -1,10 +1,12 @@ Class { - #name : #PR2347ProcessErrors, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'PR2347ProcessErrors', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PR2347ProcessErrors class >> PR02ActivityCounterError: aValidateModel [ ^ (OPBPMNValidationMessageError createFor: aValidateModel @@ -13,7 +15,7 @@ PR2347ProcessErrors class >> PR02ActivityCounterError: aValidateModel [ , ' must have at least one Activity.'). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PR2347ProcessErrors class >> PR03MoreProcesses: aValidateModel [ ^ (OPBPMNValidationMessageWarning createFor: aValidateModel @@ -22,7 +24,7 @@ PR2347ProcessErrors class >> PR03MoreProcesses: aValidateModel [ , ' elements of one process should be in one Pool.'). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PR2347ProcessErrors class >> PR04AllInsidePool: aValidateModel [ ^ (OPBPMNValidationMessageWarning createFor: aValidateModel @@ -31,7 +33,7 @@ PR2347ProcessErrors class >> PR04AllInsidePool: aValidateModel [ , ' if diagram contains Pool, all elements should be inside of Pool.'). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } PR2347ProcessErrors class >> PR07StartCounterError: aValidateModel [ ^ (OPBPMNValidationMessageWarning createFor: aValidateModel @@ -40,7 +42,7 @@ PR2347ProcessErrors class >> PR07StartCounterError: aValidateModel [ , ' should containt at least one Start Event and at least one End Event.'). ] -{ #category : #verification } +{ #category : 'verification' } PR2347ProcessErrors >> validateObject: aVerifiedObject withModel: aVerifiedModel [ "validation in ValidationController. Error methods here on class side" ^ { } diff --git a/repository/OpenPonk-BPMN-Validation/SE03MessageReceive.class.st b/repository/OpenPonk-BPMN-Validation/SE03MessageReceive.class.st index 6b39e58..0ac0fc8 100644 --- a/repository/OpenPonk-BPMN-Validation/SE03MessageReceive.class.st +++ b/repository/OpenPonk-BPMN-Validation/SE03MessageReceive.class.st @@ -1,15 +1,17 @@ Class { - #name : #SE03MessageReceive, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'SE03MessageReceive', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } SE03MessageReceive class >> validateClass [ ^ OPBPMNStartEventModel. ] -{ #category : #verification } +{ #category : 'verification' } SE03MessageReceive >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNStartEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/SE04MessageOther.class.st b/repository/OpenPonk-BPMN-Validation/SE04MessageOther.class.st index 1ad7827..a4fcc8b 100644 --- a/repository/OpenPonk-BPMN-Validation/SE04MessageOther.class.st +++ b/repository/OpenPonk-BPMN-Validation/SE04MessageOther.class.st @@ -1,15 +1,17 @@ Class { - #name : #SE04MessageOther, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'SE04MessageOther', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } SE04MessageOther class >> validateClass [ ^ OPBPMNStartEventModel. ] -{ #category : #verification } +{ #category : 'verification' } SE04MessageOther >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNStartEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/SE05Error.class.st b/repository/OpenPonk-BPMN-Validation/SE05Error.class.st index f22f691..83f64fb 100644 --- a/repository/OpenPonk-BPMN-Validation/SE05Error.class.st +++ b/repository/OpenPonk-BPMN-Validation/SE05Error.class.st @@ -1,15 +1,17 @@ Class { - #name : #SE05Error, - #superclass : #OPBPMNValidation, - #category : #'OpenPonk-BPMN-Validation-Validation-Classes' + #name : 'SE05Error', + #superclass : 'OPBPMNValidation', + #category : 'OpenPonk-BPMN-Validation-Validation-Classes', + #package : 'OpenPonk-BPMN-Validation', + #tag : 'Validation-Classes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } SE05Error class >> validateClass [ ^ OPBPMNStartEventModel. ] -{ #category : #verification } +{ #category : 'verification' } SE05Error >> validateObject: aVerifiedObject withModel: aVerifiedModel [ (aVerifiedObject isKindOf: OPBPMNStartEventModel) ifTrue: [ diff --git a/repository/OpenPonk-BPMN-Validation/package.st b/repository/OpenPonk-BPMN-Validation/package.st index 6dcf1ca..ce9ab52 100644 --- a/repository/OpenPonk-BPMN-Validation/package.st +++ b/repository/OpenPonk-BPMN-Validation/package.st @@ -1 +1 @@ -Package { #name : #'OpenPonk-BPMN-Validation' } +Package { #name : 'OpenPonk-BPMN-Validation' } diff --git a/repository/OpenPonk-BPMN-XML-Export/OPBPMNPathmap.class.st b/repository/OpenPonk-BPMN-XML-Export/OPBPMNPathmap.class.st index 499b38a..50371a7 100644 --- a/repository/OpenPonk-BPMN-XML-Export/OPBPMNPathmap.class.st +++ b/repository/OpenPonk-BPMN-XML-Export/OPBPMNPathmap.class.st @@ -1,29 +1,31 @@ Class { - #name : #OPBPMNPathmap, - #superclass : #Object, + #name : 'OPBPMNPathmap', + #superclass : 'Object', #instVars : [ 'mapping' ], - #category : #'OpenPonk-BPMN-XML-Export-Utility' + #category : 'OpenPonk-BPMN-XML-Export-Utility', + #package : 'OpenPonk-BPMN-XML-Export', + #tag : 'Utility' } -{ #category : #adding } +{ #category : 'adding' } OPBPMNPathmap >> add: aPath [ self add: aPath retrieveUsing: [ OPBPMNSpecsStorage current at: aPath ] ] -{ #category : #adding } +{ #category : 'adding' } OPBPMNPathmap >> add: aPath retrieveUsing: aBlock [ mapping at: aPath put: aBlock value ] -{ #category : #adding } +{ #category : 'adding' } OPBPMNPathmap >> initialize [ super initialize. mapping := OrderedDictionary new ] -{ #category : #adding } +{ #category : 'adding' } OPBPMNPathmap >> mapping [ ^ mapping ] diff --git a/repository/OpenPonk-BPMN-XML-Export/OPBPMNSpecsStorage.class.st b/repository/OpenPonk-BPMN-XML-Export/OPBPMNSpecsStorage.class.st index b638aff..1cf1bdb 100644 --- a/repository/OpenPonk-BPMN-XML-Export/OPBPMNSpecsStorage.class.st +++ b/repository/OpenPonk-BPMN-XML-Export/OPBPMNSpecsStorage.class.st @@ -1,16 +1,18 @@ Class { - #name : #OPBPMNSpecsStorage, - #superclass : #Object, + #name : 'OPBPMNSpecsStorage', + #superclass : 'Object', #instVars : [ 'storage' ], #classVars : [ 'Current' ], - #category : #'OpenPonk-BPMN-XML-Export-Utility' + #category : 'OpenPonk-BPMN-XML-Export-Utility', + #package : 'OpenPonk-BPMN-XML-Export', + #tag : 'Utility' } -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNSpecsStorage class >> current [ " Current := nil @@ -18,7 +20,7 @@ OPBPMNSpecsStorage class >> current [ ^ Current ifNil: [ Current := self new ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNSpecsStorage >> initialize [ super initialize. storage := Dictionary new diff --git a/repository/OpenPonk-BPMN-XML-Export/OPBPMNXMLWriterExport.class.st b/repository/OpenPonk-BPMN-XML-Export/OPBPMNXMLWriterExport.class.st index 5f1f74d..d8d0ae8 100644 --- a/repository/OpenPonk-BPMN-XML-Export/OPBPMNXMLWriterExport.class.st +++ b/repository/OpenPonk-BPMN-XML-Export/OPBPMNXMLWriterExport.class.st @@ -1,6 +1,6 @@ Class { - #name : #OPBPMNXMLWriterExport, - #superclass : #Object, + #name : 'OPBPMNXMLWriterExport', + #superclass : 'Object', #instVars : [ 'unresolved', 'identityCache', @@ -8,15 +8,17 @@ Class { 'stereotypes', 'umlMetamodel' ], - #category : #'OpenPonk-BPMN-XML-Export-Writer' + #category : 'OpenPonk-BPMN-XML-Export-Writer', + #package : 'OpenPonk-BPMN-XML-Export', + #tag : 'Writer' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLWriterExport class >> toString: aModel [ ^ OPBPMNXMLWriter writeToString: (self new write: aModel) ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterExport >> initialize [ super initialize. unresolved := OrderedCollection new. diff --git a/repository/OpenPonk-BPMN-XML-Export/package.st b/repository/OpenPonk-BPMN-XML-Export/package.st index d83a4ff..9f8da4a 100644 --- a/repository/OpenPonk-BPMN-XML-Export/package.st +++ b/repository/OpenPonk-BPMN-XML-Export/package.st @@ -1 +1 @@ -Package { #name : #'OpenPonk-BPMN-XML-Export' } +Package { #name : 'OpenPonk-BPMN-XML-Export' } diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLAttribute.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLAttribute.class.st index e65507c..23feb88 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLAttribute.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLAttribute.class.st @@ -1,23 +1,25 @@ Class { - #name : #OPBPMNXMLAttribute, - #superclass : #OPBPMNXMLInfoItems, + #name : 'OPBPMNXMLAttribute', + #superclass : 'OPBPMNXMLInfoItems', #instVars : [ 'xmlName' ], - #category : #'OpenPonk-BPMN-XML-DOM' + #category : 'OpenPonk-BPMN-XML-DOM', + #package : 'OpenPonk-BPMN-XML', + #tag : 'DOM' } -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLAttribute >> isAttribute [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLAttribute >> xmlName [ ^ xmlName ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLAttribute >> xmlName: aString [ xmlName := aString ] diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLElement.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLElement.class.st index 36748ca..d54b7da 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLElement.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLElement.class.st @@ -1,28 +1,30 @@ Class { - #name : #OPBPMNXMLElement, - #superclass : #OPBPMNXMLInfoItems, + #name : 'OPBPMNXMLElement', + #superclass : 'OPBPMNXMLInfoItems', #instVars : [ 'xmlName' ], - #category : #'OpenPonk-BPMN-XML-DOM' + #category : 'OpenPonk-BPMN-XML-DOM', + #package : 'OpenPonk-BPMN-XML', + #tag : 'DOM' } -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLElement >> isElement [ ^ true ] -{ #category : #writing } +{ #category : 'writing' } OPBPMNXMLElement >> writeXMLOn: aWriter [ aWriter tag: self xmlName ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLElement >> xmlName [ ^ xmlName ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLElement >> xmlName: aString [ xmlName := aString ] diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLInfoItems.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLInfoItems.class.st index 4e62bcc..1e8e3c2 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLInfoItems.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLInfoItems.class.st @@ -1,50 +1,52 @@ Class { - #name : #OPBPMNXMLInfoItems, - #superclass : #Object, - #category : #'OpenPonk-BPMN-XML-DOM' + #name : 'OPBPMNXMLInfoItems', + #superclass : 'Object', + #category : 'OpenPonk-BPMN-XML-DOM', + #package : 'OpenPonk-BPMN-XML', + #tag : 'DOM' } -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isAttribute [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isElement [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isObjectElement [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isReferenceAttribute [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isReferenceElement [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isReferenceItem [ ^ self isReferenceAttribute | self isReferenceElement ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isValueAttribute [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isValueElement [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPBPMNXMLInfoItems >> isValueItem [ ^ self isValueAttribute | self isValueElement ] diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLObjectElement.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLObjectElement.class.st index 2f3be66..3fc2ba9 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLObjectElement.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLObjectElement.class.st @@ -1,18 +1,20 @@ Class { - #name : #OPBPMNXMLObjectElement, - #superclass : #OPBPMNXMLElement, + #name : 'OPBPMNXMLObjectElement', + #superclass : 'OPBPMNXMLElement', #instVars : [ 'containedItems' ], - #category : #'OpenPonk-BPMN-XML-DOM' + #category : 'OpenPonk-BPMN-XML-DOM', + #package : 'OpenPonk-BPMN-XML', + #tag : 'DOM' } -{ #category : #visiting } +{ #category : 'visiting' } OPBPMNXMLObjectElement >> accept: aVisitor [ aVisitor visitObjectElement: self ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLObjectElement >> initialize [ super initialize. containedItems := OrderedCollection new diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLPrettyWriter.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLPrettyWriter.class.st index 8e6040a..6ec51c3 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLPrettyWriter.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLPrettyWriter.class.st @@ -1,18 +1,20 @@ Class { - #name : #OPBPMNXMLPrettyWriter, - #superclass : #XMLPrettyPrintingWriterFormatter, + #name : 'OPBPMNXMLPrettyWriter', + #superclass : 'XMLPrettyPrintingWriterFormatter', #instVars : [ 'lineBreak' ], - #category : #'OpenPonk-BPMN-XML-Writer' + #category : 'OpenPonk-BPMN-XML-Writer', + #package : 'OpenPonk-BPMN-XML', + #tag : 'Writer' } -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLPrettyWriter >> lineBreak: aCharacterOrString [ lineBreak := aCharacterOrString asString ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLPrettyWriter >> writeLineBreak [ self writer atBeginning ifFalse: [ self writer nextPutAll: lineBreak. @@ -20,7 +22,7 @@ OPBPMNXMLPrettyWriter >> writeLineBreak [ ifTrue: [ self writeIndent ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPBPMNXMLPrettyWriter >> writer: aWriter [ super writer: aWriter. lineBreak ifNil: [ lineBreak := aWriter lineBreak ] diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLReader.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLReader.class.st index a00e05d..568585a 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLReader.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLReader.class.st @@ -1,34 +1,36 @@ Class { - #name : #OPBPMNXMLReader, - #superclass : #Object, - #category : #'OpenPonk-BPMN-XML-Reader' + #name : 'OPBPMNXMLReader', + #superclass : 'Object', + #category : 'OpenPonk-BPMN-XML-Reader', + #package : 'OpenPonk-BPMN-XML', + #tag : 'Reader' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLReader class >> read: aStream mapping: aMapping [ aMapping at: 'result' put: aStream contents. ^ (self readFromMapping: aMapping) at: 'result' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLReader class >> readFrom: aStream [ ^ self new readFrom: aStream ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLReader class >> readFromMapping: aMapping [ "aMapping is a Dictionary of HREF URI -> XMI contents" ^ self new readFromMapping: aMapping ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLReader >> read: aStream mapping: aMapping [ aMapping at: 'result' put: aStream contents. ^ (self readFromMapping: aMapping) at: 'result' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLReader >> readFrom: aStream [ | dom root | dom := XMLDOMParser parse: aStream usingNamespaces: false. @@ -36,7 +38,7 @@ OPBPMNXMLReader >> readFrom: aStream [ ^ root ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBPMNXMLReader >> readFromMapping: aMapping [ | graphs | graphs := OrderedDictionary new. diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLReaderVisitor.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLReaderVisitor.class.st index 2b0c566..1e3b74a 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLReaderVisitor.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLReaderVisitor.class.st @@ -1,27 +1,29 @@ Class { - #name : #OPBPMNXMLReaderVisitor, - #superclass : #XMLDOMVisitor, + #name : 'OPBPMNXMLReaderVisitor', + #superclass : 'XMLDOMVisitor', #instVars : [ 'mapping', 'refIdMapping', 'unresolved' ], - #category : #'OpenPonk-BPMN-XML-Reader' + #category : 'OpenPonk-BPMN-XML-Reader', + #package : 'OpenPonk-BPMN-XML', + #tag : 'Reader' } -{ #category : #factory } +{ #category : 'factory' } OPBPMNXMLReaderVisitor >> attributeFor: aXMLAttribute [ (self isReferenceAttribute: aXMLAttribute) ifTrue: [ ^ self referenceAttributeFor: aXMLAttribute ]. ^ self valueAttributeFor: aXMLAttribute ] -{ #category : #factory } +{ #category : 'factory' } OPBPMNXMLReaderVisitor >> elementAt: aXMLElement [ ^ mapping at: aXMLElement ] -{ #category : #factory } +{ #category : 'factory' } OPBPMNXMLReaderVisitor >> elementFor: aXMLElement [ (self isValueElement: aXMLElement) ifTrue: [ ^ self valueElementFor: aXMLElement ]. @@ -30,7 +32,7 @@ OPBPMNXMLReaderVisitor >> elementFor: aXMLElement [ ^ self objectElementFor: aXMLElement ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLReaderVisitor >> initialize [ super initialize. mapping := Dictionary new. @@ -38,12 +40,12 @@ OPBPMNXMLReaderVisitor >> initialize [ unresolved := OrderedCollection new ] -{ #category : #factory } +{ #category : 'factory' } OPBPMNXMLReaderVisitor >> resolveAll [ unresolved do: #value ] -{ #category : #factory } +{ #category : 'factory' } OPBPMNXMLReaderVisitor >> visitDocument: aDocument [ self visit: aDocument root. self resolveAll. diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriter.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriter.class.st index e72d432..b3889e8 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriter.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriter.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPBPMNXMLWriter, - #superclass : #Object, - #category : #'OpenPonk-BPMN-XML-Writer' + #name : 'OPBPMNXMLWriter', + #superclass : 'Object', + #category : 'OpenPonk-BPMN-XML-Writer', + #package : 'OpenPonk-BPMN-XML', + #tag : 'Writer' } -{ #category : #writing } +{ #category : 'writing' } OPBPMNXMLWriter class >> toString: anXML [ | visitor | @@ -13,7 +15,7 @@ OPBPMNXMLWriter class >> toString: anXML [ ^ visitor contents ] -{ #category : #writing } +{ #category : 'writing' } OPBPMNXMLWriter class >> write: anXML toStream: aStream [ aStream << (self toString: anXML) diff --git a/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriterVisitor.class.st b/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriterVisitor.class.st index 71e8d3f..d0a0198 100644 --- a/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriterVisitor.class.st +++ b/repository/OpenPonk-BPMN-XML/OPBPMNXMLWriterVisitor.class.st @@ -1,46 +1,48 @@ Class { - #name : #OPBPMNXMLWriterVisitor, - #superclass : #Object, + #name : 'OPBPMNXMLWriterVisitor', + #superclass : 'Object', #instVars : [ 'writer', 'allFlows', 'allMessageFlows', 'namespace' ], - #category : #'OpenPonk-BPMN-XML-Writer' + #category : 'OpenPonk-BPMN-XML-Writer', + #package : 'OpenPonk-BPMN-XML', + #tag : 'Writer' } -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> addFlow: aFlow [ allFlows add: aFlow. ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> addMessageFlow: aFlow [ allMessageFlows add: aFlow. ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> allFlows [ ^ allFlows ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> allMessageFlows [ ^ allMessageFlows ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> contents [ ^ writer contents ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> diagramNamespace [ ^ 'bpmndi:' ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> initialize [ super initialize. writer := XMLWriter new. @@ -52,27 +54,27 @@ OPBPMNXMLWriterVisitor >> initialize [ allMessageFlows := OrderedCollection new ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> namespace [ ^ namespace ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> namespace: aValue [ namespace := aValue ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> removeAllFlows [ allFlows removeAll. ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> removeFlow: aFlow [ aFlow ifNotNil: [ allFlows remove: aFlow ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visit: aRootElement [ writer tag: self namespace, 'definitions' @@ -88,7 +90,7 @@ OPBPMNXMLWriterVisitor >> visit: aRootElement [ self visitDiagram: aRootElement] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitDiagram: aRootElement [ " @@ -111,7 +113,7 @@ OPBPMNXMLWriterVisitor >> visitDiagram: aRootElement [ do: [ :each | self visitDiagramElement: each ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitDiagramElement: anElement [ " @@ -140,7 +142,7 @@ OPBPMNXMLWriterVisitor >> visitDiagramElement: anElement [ writer tag: self diagramNamespace , 'BPMNLabel' ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitDiagramFlow: anElement [ " @@ -160,7 +162,7 @@ OPBPMNXMLWriterVisitor >> visitDiagramFlow: anElement [ with: 'y' -> anElement target diagramElement position y asString) ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitDiagramParticipant: anElement [ writer @@ -178,7 +180,7 @@ OPBPMNXMLWriterVisitor >> visitDiagramParticipant: anElement [ writer tag: self diagramNamespace , 'BPMNLabel' ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitElement: anElement [ "" @@ -206,7 +208,7 @@ OPBPMNXMLWriterVisitor >> visitElement: anElement [ self visitFlowRef: each inOut: 'outgoing' ] ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitElementActivity: anElement [ "" writer @@ -226,7 +228,7 @@ OPBPMNXMLWriterVisitor >> visitElementActivity: anElement [ do: [ :each | self visitFlowRef: each inOut: 'outgoing' ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitElementEvent: anElement [ "" writer @@ -249,7 +251,7 @@ OPBPMNXMLWriterVisitor >> visitElementEvent: anElement [ ifTrue: [self visitElementEventTimer: anElement] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitElementEventTimer: anElement [ " PT5M @@ -266,7 +268,7 @@ OPBPMNXMLWriterVisitor >> visitElementEventTimer: anElement [ with: anElement timerValue ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitFlow: aFlow type: aType [ "" aType = aFlow printType @@ -280,7 +282,7 @@ OPBPMNXMLWriterVisitor >> visitFlow: aFlow type: aType [ with: 'id' -> (aFlow printIdType , aFlow uuid asString)) ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitFlowRef: aFlow inOut: inOut [ "_6-0e5130ce-1e7d-0d00-a4c6-bd810e3ea2c6 or" "_6-0e5130ce-1e7d-0d00-a4c7-8c720e3ea2c6" @@ -293,7 +295,7 @@ OPBPMNXMLWriterVisitor >> visitFlowRef: aFlow inOut: inOut [ with: aFlow printIdType , aFlow uuid asString ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitParticipantRef: anElement [ "" writer @@ -304,7 +306,7 @@ OPBPMNXMLWriterVisitor >> visitParticipantRef: anElement [ with: 'processRef' -> (anElement printIdType , anElement uuid asString)) ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> visitSemantic: aRootElement [ "" | counter | @@ -338,7 +340,7 @@ OPBPMNXMLWriterVisitor >> visitSemantic: aRootElement [ do: [ :each | self visitFlow: each type: 'messageFlow' ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPBPMNXMLWriterVisitor >> writer [ ^ writer ] diff --git a/repository/OpenPonk-BPMN-XML/package.st b/repository/OpenPonk-BPMN-XML/package.st index 08d9f44..198b8c1 100644 --- a/repository/OpenPonk-BPMN-XML/package.st +++ b/repository/OpenPonk-BPMN-XML/package.st @@ -1 +1 @@ -Package { #name : #'OpenPonk-BPMN-XML' } +Package { #name : 'OpenPonk-BPMN-XML' }