diff --git a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st index bf8d85c..d95e683 100644 --- 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 index b4e5e21..f967623 100644 --- 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 }