From 7411717df4c4534113d2347a093c4dae9d51fd4c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Blizni=C4=8Denko?= Date: Thu, 25 Jul 2024 18:58:53 +0200 Subject: [PATCH] Further split materialization method --- .../OPStonDiagramSerializer.class.st | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st index 4522b2b4..9fa9a8da 100644 --- a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st +++ b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st @@ -24,18 +24,24 @@ OPStonDiagramSerializer class >> minImportVersion [ ^ 1 ] +{ #category : 'serialize/materialize' } +OPStonDiagramSerializer >> elementsByIdsFrom: elements [ + + SystemNotification signal: 'Elements: ' , elements size asString. + ^ (elements withIndexCollect: [ :each :index | + SystemNotification signal: + 'E ' , index asString , ': ' , each uuid asString , '->' + , each asString. + each uuid -> each ]) asDictionary +] + { #category : 'serialize/materialize' } OPStonDiagramSerializer >> elementsByIdsOf: aModel [ | innerElements allElements | innerElements := OPNavigatorAdapters new allChildrenFor: aModel. allElements := innerElements asArray copyWith: aModel. - Notification signal: 'Elements: ' , allElements size asString. - ^ (allElements withIndexCollect: [ :each :index | - Notification signal: - 'E ' , index asString , ': ' , each uuid asString , '->' - , each asString. - each uuid -> each ]) asDictionary + ^ self elementsByIdsFrom: allElements ] { #category : 'accessing' }