Fix line geometry

OpenSmock · Aug 7, 2024 · 918cfd3 · 918cfd3
1 parent dba6d1b
commit 918cfd3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st
@@ -25,8 +25,8 @@ PyramidAbstractBorderCommand >> setValueFor: aBlElement with: anArgument [
 
 	| builder |
 	builder := self borderBuilderOf: aBlElement.
-	self updateBuilder: builder with: anArgument.
-	aBlElement border: builder build.
+	self updateBuilder: builder with: anArgument value.
+	aBlElement border: builder build
 ]
 
 { #category : #'as yet unclassified' }

diff --git a/src/Pyramid-Bloc/PyramidBlocGeometryPlugin.class.st b/src/Pyramid-Bloc/PyramidBlocGeometryPlugin.class.st
@@ -35,6 +35,7 @@ PyramidBlocGeometryPlugin class >> geometryClasses [
 		  BlCircleGeometry.
 		  BlAnnulusSectorGeometry.
 		  BlTriangleGeometry.
+		  BlLineGeometry .
 		  BlPolylineGeometry.
 		  BlBezierCurveGeometry.
 		  BlPolygonGeometry }