Index: TECH/Svg/Basis/DomElement.cls.xml
===================================================================
diff -u -r3620 -r3628
--- TECH/Svg/Basis/DomElement.cls.xml	(.../DomElement.cls.xml)	(revision 3620)
+++ TECH/Svg/Basis/DomElement.cls.xml	(.../DomElement.cls.xml)	(revision 3628)
@@ -3,9 +3,91 @@
 <Class name="TECH.Svg.Basis.DomElement">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
+<Property name="Fill">
+<Type>TECH.Svg.enu.Kleur</Type>
+<Parameter name="XMLNAME" value="fill"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Stroke">
+<Type>TECH.Svg.enu.Kleur</Type>
+<Parameter name="XMLNAME" value="stroke"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="StrokeWidth">
+<Type>%Double</Type>
+<Parameter name="XMLNAME" value="stroke-width"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="StrokeDashArray">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="stroke-dasharray"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Overflow">
+<Type>TECH.Svg.enu.Overflow</Type>
+<Parameter name="XMLNAME" value="overflow"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Method name="SetParameters">
+<FormalSpec>Fill:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),Stroke:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),StrokeWidth:%Double=1.0,StrokeDashArray:%String="none",Overflow:TECH.Svg.enu.Overflow=##class(TECH.Svg.enu.Overflow).Visible()</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Fill = Fill	
+	Set ..Stroke = Stroke
+	Set ..StrokeWidth =StrokeWidth
+	Set ..StrokeDashArray = StrokeDashArray
+	Set ..Overflow = Overflow
+]]></Implementation>
+</Method>
+
+<Method name="SetFill">
+<FormalSpec>Fill:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Set ..Fill = Fill
+]]></Implementation>
+</Method>
+
+<Method name="SetStroke">
+<FormalSpec>Stroke:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),StrokeWidth:%Double=1.0,StrokeDashArray:%String="none"</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Stroke = Stroke
+	Set ..StrokeWidth = StrokeWidth
+	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
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>DomElementState</State>
 <StreamLocation>^TECH.Svg.Basis.DomElementS</StreamLocation>
+<Data name="DomElementState">
+<Value name="1">
+<Value>Fill</Value>
+</Value>
+<Value name="2">
+<Value>Stroke</Value>
+</Value>
+<Value name="3">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="4">
+<Value>StrokeDashArray</Value>
+</Value>
+<Value name="5">
+<Value>Overflow</Value>
+</Value>
+</Data>
 </Storage>
 </Class>