diff --git a/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st b/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st index be4bb63c..062b32c3 100644 --- a/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st +++ b/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st @@ -19,6 +19,8 @@ Class { OPDirectionalRelationshipController >> createDiagramElement [ super createDiagramElement. + self ensureSourceIn: diagramController. + self ensureTargetIn: diagramController. ^ self diagramElement source: self source ensureDiagramElement; target: self target ensureDiagramElement; @@ -52,14 +54,6 @@ OPDirectionalRelationshipController >> edgeBuilder [ 'Depracated without replacement - use Roassal directly or define own figures' ] -{ #category : 'construction' } -OPDirectionalRelationshipController >> ensureShownDependenciesInDiagram: aDiagramController [ - - self ensureSourceIn: aDiagramController. - self ensureTargetIn: aDiagramController. - super ensureShownDependenciesInDiagram: aDiagramController -] - { #category : 'accessing' } OPDirectionalRelationshipController >> ensureSourceIn: aDiagramController [ @@ -122,6 +116,14 @@ OPDirectionalRelationshipController >> renderSimplified [ diagramElement := self diagramElementClass renderSimplifiedForController: self. ] +{ #category : 'construction' } +OPDirectionalRelationshipController >> showWithoutDependentInDiagram: aDiagramController [ + + self ensureSourceIn: aDiagramController. + self ensureTargetIn: aDiagramController. + ^ super showWithoutDependentInDiagram: aDiagramController +] + { #category : 'accessing' } OPDirectionalRelationshipController >> source [ diff --git a/repository/OpenPonk-Core/OPProjectController.class.st b/repository/OpenPonk-Core/OPProjectController.class.st index 9e1f193a..9825252b 100644 --- a/repository/OpenPonk-Core/OPProjectController.class.st +++ b/repository/OpenPonk-Core/OPProjectController.class.st @@ -24,16 +24,14 @@ Class { { #category : 'instance creation' } OPProjectController class >> fromDirectory: aFolder [ - ^ [ :job | - | materializer | - job title: 'Reading project from file'. - materializer := aFolder files - detect: [ :any | - any basename = OPExportInfo fileName ] - ifFound: [ :exportInfoFile | - OPSerializer forExportInfoFile: exportInfoFile ] - ifNone: [ OPProjectDirectoryMaterializer new ]. - materializer loadProjectFrom: aFolder asFileReference ] asJob run + | materializer | + materializer := aFolder files + detect: [ :any | + any basename = OPExportInfo fileName ] + ifFound: [ :exportInfoFile | + OPSerializer forExportInfoFile: exportInfoFile ] + ifNone: [ OPProjectDirectoryMaterializer new ]. + ^ materializer loadProjectFrom: aFolder asFileReference ] { #category : 'opening' }