Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml
===================================================================
diff -u -r60124 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Parameter name="XMLNAME">
 <Default>rugboring</Default>
@@ -48,6 +48,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>RugBoringState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -83,6 +84,16 @@
 <Value>BasisElementFactory</Value>
 </Value>
 </Data>
+<Data name="RugBoringState">
+<Structure>listnode</Structure>
+<Subscript>"RugBoring"</Subscript>
+<Value name="1">
+<Value>SvgBox</Value>
+</Value>
+<Value name="2">
+<Value>BasisElementFactory</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml
===================================================================
diff -u -r60049 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60049)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Parameter name="XMLNAME">
 <Default>specialeBoring</Default>
@@ -13,14 +13,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<FormalSpec>MidX:%Integer,MidY:%Integer,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()
-	#Dim CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(Width,Height)
+	Set CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(Width,Height, kleur)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossVH)
 	DO ..SvgBox.VoegToeID("specialeBoring")
@@ -40,6 +40,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>SpecialeBoringState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -63,6 +64,12 @@
 <Value>SvgBox</Value>
 </Value>
 </Data>
+<Data name="SpecialeBoringState">
+<Subscript>"SpecialeBoring"</Subscript>
+<Value name="1">
+<Value>SvgBox</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml
===================================================================
diff -u -r60124 -r60128
--- 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 60128)
@@ -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</Super>
 
 <Parameter name="XMLNAME">
 <Default>tcross</Default>
@@ -51,6 +51,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>TCrossState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -77,6 +78,16 @@
 <Value>VerticalLine</Value>
 </Value>
 </Data>
+<Data name="TCrossState">
+<Structure>listnode</Structure>
+<Subscript>"TCross"</Subscript>
+<Value name="1">
+<Value>HorizontalLine</Value>
+</Value>
+<Value name="2">
+<Value>VerticalLine</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml
===================================================================
diff -u -r60124 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Parameter name="XMLNAME">
 <Default>zijboring</Default>
@@ -40,6 +40,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>ZijBoringState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -63,6 +64,13 @@
 <Value>SvgBox</Value>
 </Value>
 </Data>
+<Data name="ZijBoringState">
+<Structure>listnode</Structure>
+<Subscript>"ZijBoring"</Subscript>
+<Value name="1">
+<Value>SvgBox</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r60124 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Parameter name="XMLNAME">
 <Default>crossvh</Default>
@@ -51,6 +51,17 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>CrossVHState</State>
+<Data name="CrossVHState">
+<Structure>listnode</Structure>
+<Subscript>"CrossVH"</Subscript>
+<Value name="1">
+<Value>HorizontalLine</Value>
+</Value>
+<Value name="2">
+<Value>VerticalLine</Value>
+</Value>
+</Data>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/BasisElementSvgTooling.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/BasisElementSvgTooling.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/BasisElementSvgTooling.cls.xml	(revision 60128)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^APPS.HaluxB584.BasisElement235S</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60125 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60125)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Property name="SvgBox">
 <Description><![CDATA[
@@ -149,8 +149,24 @@
 ]]></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[
+	
+	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>BeslagBoringSpecialeVormState</State>
+<Data name="BeslagBoringSpecialeVormState">
+<Subscript>"BeslagBoringSpecialeVorm"</Subscript>
+<Value name="1">
+<Value>SvgBox</Value>
+</Value>
+</Data>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml
===================================================================
diff -u -r60124 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 60128)
@@ -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</Super>
 
 <Parameter name="XMLNAME">
 <Default>crossdiag</Default>
@@ -51,6 +51,17 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>CrossDiagState</State>
+<Data name="CrossDiagState">
+<Structure>listnode</Structure>
+<Subscript>"CrossDiag"</Subscript>
+<Value name="1">
+<Value>TopLine</Value>
+</Value>
+<Value name="2">
+<Value>BottomLine</Value>
+</Value>
+</Data>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml
===================================================================
diff -u -r60124 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Parameter name="XMLNAME">
 <Default>puntboring</Default>
@@ -37,6 +37,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>PuntBoringState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -60,6 +61,13 @@
 <Value>SvgBox</Value>
 </Value>
 </Data>
+<Data name="PuntBoringState">
+<Structure>listnode</Structure>
+<Subscript>"PuntBoring"</Subscript>
+<Value name="1">
+<Value>SvgBox</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u -r60124 -r60128
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60124)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60128)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
 
 <Parameter name="XMLNAME">
 <Default>doorboring</Default>
@@ -40,6 +40,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>DoorBoringState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -63,6 +64,13 @@
 <Value>SvgBox</Value>
 </Value>
 </Data>
+<Data name="DoorBoringState">
+<Structure>listnode</Structure>
+<Subscript>"DoorBoring"</Subscript>
+<Value name="1">
+<Value>SvgBox</Value>
+</Value>
+</Data>
 </Storage>
 </Class>