From 3cec46690b264c959b6f23a8384443ae251b9b50 Mon Sep 17 00:00:00 2001 From: Jan Bliznicenko Date: Mon, 24 Jun 2024 17:23:10 +0200 Subject: [PATCH] moved few methods to OP core, removed few unused ones --- .../OPBormProcessNodeController.class.st | 35 ------------------- .../OPBormRelationshipController.class.st | 24 ------------- 2 files changed, 59 deletions(-) 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 -]