Fixed layouting

OpenPonk · Oct 26, 2023 · d418422 · d418422
1 parent 8b04e4f
commit d418422
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/repository/OpenPonk-FSM/OPFsmController.class.st b/repository/OpenPonk-FSM/OPFsmController.class.st
@@ -18,9 +18,9 @@ OPFsmController >> applyLayout: anAlgorithm [
 	figures := self controllers
 		           select: [ :each | each isKindOf: OPFsmVertexController ]
 		           thenCollect: #figure.
-	edges := (figures flatCollect: #connectedLines) reject: [ :each | 
+	edges := (figures flatCollect: #connectedLines) reject: [ :each |
 		         each from = each to ].
-	anAlgorithm on: figures edges: edges
+	anAlgorithm on: figures asGroup edges: edges asGroup
 ]
 
 { #category : #testing }