Bloc host: all kinds of lines need outskirts centered by default

ObjectProfile · Aug 29, 2023 · 8a4db8c · 8a4db8c
1 parent d02260d
commit 8a4db8c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 13 deletions.
diff --git a/src/Roassal3-Bloc/RSAbstractLine.extension.st b/src/Roassal3-Bloc/RSAbstractLine.extension.st
@@ -3,8 +3,10 @@ Extension { #name : #RSAbstractLine }
 { #category : #'*Roassal3-Bloc' }
 RSAbstractLine >> asBlElement [
 
-	^ self asBlGeometry asElement
+	^ BlElement new
 		  roassalShape: self;
+		  geometry: self asBlGeometry;
+		  beOutskirtsCentered;
 		  in: [ :e | self updateBlElement: e ];
 		  yourself
 ]

diff --git a/src/Roassal3-Bloc/RSBezier.extension.st b/src/Roassal3-Bloc/RSBezier.extension.st
@@ -1,17 +1,5 @@
 Extension { #name : #RSBezier }
 
-{ #category : #'*Roassal3-Bloc' }
-RSBezier >> asBlElement [
-	"Note: We don't use the geometry's #asElement because it answers an element that doesn't use the 'blPaint' to fill."
-
-	^ BlElement new
-		  roassalShape: self;
-		  geometry: self asBlGeometry;
-		  outskirts: BlOutskirts centered;
-		  in: [ :e | self updateBlElement: e ];
-		  yourself
-]
-
 { #category : #'*Roassal3-Bloc' }
 RSBezier >> asBlGeometry [