Further split materialization method

OpenPonk · Jul 25, 2024 · 7411717 · 7411717
1 parent 2b76335
commit 7411717
Showing 1 changed file with 12 additions and 6 deletions.
diff --git 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' }