x

OpenPonk · Jul 25, 2024 · 57811fd · 57811fd
1 parent 5a7cbd4
commit 57811fd
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st b/repository/OpenPonk-Core/OPStonDiagramSerializer.class.st
@@ -30,7 +30,12 @@ OPStonDiagramSerializer >> elementsByIdsOf: aModel [
 	| innerElements allElements |
 	innerElements := OPNavigatorAdapters new allChildrenFor: aModel.
 	allElements := innerElements asArray copyWith: aModel.
-	^ (allElements collect: [ :each | each uuid -> each ]) asDictionary
+	Notification signal: 'Elements: ' , allElements size asString.
+	^ (allElements withIndexCollect: [ :index :each |
+		   Notification signal:
+			   'E ' , index asString , ': ' , each uuid asString , '->'
+			   , each asString.
+		   each uuid -> each ]) asDictionary
 ]
 
 { #category : 'accessing' }