diff --git a/repository/OpenPonk-BormEditor/OPBormProcessNodeController.class.st b/repository/OpenPonk-BormEditor/OPBormProcessNodeController.class.st index f3e84b1..ba80e56 100644 --- a/repository/OpenPonk-BormEditor/OPBormProcessNodeController.class.st +++ b/repository/OpenPonk-BormEditor/OPBormProcessNodeController.class.st @@ -1,9 +1,6 @@ Class { #name : 'OPBormProcessNodeController', #superclass : 'OPBormElementController', - #instVars : [ - 'ownerParticipant' - ], #category : 'OpenPonk-BormEditor-Controllers', #package : 'OpenPonk-BormEditor', #tag : 'Controllers' @@ -66,39 +63,7 @@ OPBormProcessNodeController >> hookDiagramElement [ self model submodel ] ] -{ #category : 'accessing' } -OPBormProcessNodeController >> ownerParticipant [ - ^ ownerParticipant -] - -{ #category : 'accessing' } -OPBormProcessNodeController >> ownerParticipant: aParticipantController [ - ownerParticipant := aParticipantController -] - { #category : 'destruction' } OPBormProcessNodeController >> removeModel [ self model owner remove: self model ] - -{ #category : 'construction' } -OPBormProcessNodeController >> setOwnerParticipant [ - - self ownerParticipant: (self diagramController controllerForModel: - (self diagramController model participants detect: [ :any | - any elements includes: model ])) -] - -{ #category : 'construction' } -OPBormProcessNodeController >> showInDiagram: aDiagramController [ - - super showInDiagram: aDiagramController. - self setOwnerParticipant -] - -{ #category : 'construction' } -OPBormProcessNodeController >> showWithoutDependentInDiagram: aDiagramController [ - - super showWithoutDependentInDiagram: aDiagramController. - self setOwnerParticipant -] diff --git a/repository/OpenPonk-BormEditor/OPBormRelationshipController.class.st b/repository/OpenPonk-BormEditor/OPBormRelationshipController.class.st index bca77f4..4efff36 100644 --- a/repository/OpenPonk-BormEditor/OPBormRelationshipController.class.st +++ b/repository/OpenPonk-BormEditor/OPBormRelationshipController.class.st @@ -31,27 +31,3 @@ OPBormRelationshipController >> elementsToShowInside [ OPBormRelationshipController >> isHideable [ ^ true ] - -{ #category : 'construction' } -OPBormRelationshipController >> showInDiagram: aDiagramController [ - "protocol: #construction" - - aDiagramController - controllerForModel: model target - ifNone: [ ^ aDiagramController - controllerForModel: model source - ifNone: [ self - error: - 'Trying to create controller for relationship that depends on elements, but none of them is shown in diagram before' ] ]. - aDiagramController - controllerForModel: model source - ifNone: [ ^ self ]. - ^ super showInDiagram: aDiagramController -] - -{ #category : 'construction' } -OPBormRelationshipController >> showWithoutDependentInDiagram: aDiagramController [ - aDiagramController showWithoutDependentInDiagramModel: model target. - aDiagramController showWithoutDependentInDiagramModel: model source. - ^ super showWithoutDependentInDiagram: aDiagramController -]