From 46058cedf901f76fb86cf6ae647a92a163963d79 Mon Sep 17 00:00:00 2001
From: Martin Dias <tinchodias@gmail.com>
Date: Mon, 27 May 2024 22:45:40 -0400
Subject: [PATCH] Set default vborder and background to SVG geometry when
 converted to element

---
 src/Bloc-SVG/BlSvgPath.class.st | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Bloc-SVG/BlSvgPath.class.st b/src/Bloc-SVG/BlSvgPath.class.st
index d6510eefb..b81d89b26 100644
--- a/src/Bloc-SVG/BlSvgPath.class.st
+++ b/src/Bloc-SVG/BlSvgPath.class.st
@@ -40,6 +40,16 @@ BlSvgPath class >> pathString: aString [
 		yourself
 ]
 
+{ #category : #converting }
+BlSvgPath >> asElement [
+	"Answer the default element for this geometry. The answer should comply the SVG default style."
+
+	^ super asElement
+		background: Color black;
+		border: BlBorder empty;
+		yourself
+]
+
 { #category : #'geometry testing' }
 BlSvgPath >> containsPoint: aPoint alreadyInGeometryBoundsOf: aBlElement [