Index: TECH/Svg/Basis/DomElement.cls.xml
===================================================================
diff -u -r3628 -r3633
--- TECH/Svg/Basis/DomElement.cls.xml	(.../DomElement.cls.xml)	(revision 3628)
+++ TECH/Svg/Basis/DomElement.cls.xml	(.../DomElement.cls.xml)	(revision 3633)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Svg.Basis.DomElement">
+<ClassType>serial</ClassType>
 <Super>%SerialObject,%XML.Adaptor</Super>
 
 <Property name="Fill">
@@ -33,8 +34,14 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
+<Property name="Opacity">
+<Type>%Double</Type>
+<Parameter name="XMLNAME" value="opacity"/>
+<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>
+<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(),Opacity:%Double=1.0</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Fill = Fill	
@@ -67,6 +74,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetOpacity">
+<FormalSpec>Opacity:%Double=1.0</FormalSpec>
+<Implementation><![CDATA[	Set ..Opacity = Opacity
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>DomElementState</State>
@@ -87,6 +100,9 @@
 <Value name="5">
 <Value>Overflow</Value>
 </Value>
+<Value name="6">
+<Value>Opacity</Value>
+</Value>
 </Data>
 </Storage>
 </Class>