Index: TECH/Svg/Basis/DomElement.cls.xml
===================================================================
diff -u -r3633 -r3641
--- TECH/Svg/Basis/DomElement.cls.xml	(.../DomElement.cls.xml)	(revision 3633)
+++ TECH/Svg/Basis/DomElement.cls.xml	(.../DomElement.cls.xml)	(revision 3641)
@@ -49,11 +49,12 @@
 	Set ..StrokeWidth =StrokeWidth
 	Set ..StrokeDashArray = StrokeDashArray
 	Set ..Overflow = Overflow
+	Set ..Opacity = Opacity
 ]]></Implementation>
 </Method>
 
 <Method name="SetFill">
-<FormalSpec>Fill:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<FormalSpec>Fill:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Geen()</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Set ..Fill = Fill
 ]]></Implementation>
@@ -68,6 +69,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetStrokeDashArray">
+<FormalSpec>StrokeDashArray:%String="none"</FormalSpec>
+<Implementation><![CDATA[	Set ..StrokeDashArray = StrokeDashArray
+]]></Implementation>
+</Method>
+
 <Method name="SetOverflow">
 <FormalSpec>Overflow:TECH.Svg.enu.Overflow=##class(TECH.Svg.enu.Overflow).Visible()</FormalSpec>
 <Implementation><![CDATA[	Set ..Overflow = Overflow