Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml
===================================================================
diff -u -r59411 -r60390
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 59411)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 60390)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling,TECH.RegisteredObject</Super>
 
 <Parameter name="XMLNAME">
 <Default>crossdiag</Default>
@@ -18,47 +18,28 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Width:%Integer,Height:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="XMLExport">
+<FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..TopLine = (##class(TECH.Svg.Basis.Line).%New(0,0,Width,Height))
-	Set ..BottomLine = (##class(TECH.Svg.Basis.Line).%New(0,Height,Width,0))
+   	#dim sc As %Status
+
+	Set sc = ..TopLine.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Error bij XmlExport van TopLine bij object "_$this)
+	Set sc = ..BottomLine.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Error bij XmlExport van BottomLine bij object "_$this)
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<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>
-<Value name="6">
-<Value>Opacity</Value>
-</Value>
-<Value name="7">
-<Value>TopLine</Value>
-</Value>
-<Value name="8">
-<Value>BottomLine</Value>
-</Value>
-</Data>
-</Storage>
 </Class>