Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml
===================================================================
diff -u -r60124 -r60390
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.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.TCross">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling,TECH.RegisteredObject</Super>
 
 <Parameter name="XMLNAME">
 <Default>tcross</Default>
@@ -18,66 +18,28 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set ..HorizontalLine = BasisElementFactory.MaakLijn(0,0, Width, 0)
-	Do ..HorizontalLine.SetFill(kleur)
-	Set ..VerticalLine = BasisElementFactory.MaakLijn(Width/2, 0, Width/2, Height)
-	Do ..VerticalLine.SetFill(kleur)
-	Quit $$$OK
+<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 val=..HorizontalLine
-   	Set sc = val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-   	if ('sc) {
-   		Quit sc 
-   	}Else {
- 		Set val=..VerticalLine
-   		Set sc=  val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-		Quit sc
-   	}
+	#dim sc As %Status
+
+	Set sc = ..HorizontalLine.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 = ..VerticalLine.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>HorizontalLine</Value>
-</Value>
-<Value name="8">
-<Value>VerticalLine</Value>
-</Value>
-</Data>
-</Storage>
 </Class>