Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/Test.cls.xml	(revision 59510)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan ingevulde Boring">
+<Implementation><![CDATA[
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+	Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(15,15,5,5)
+	Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(15,15,5,5)
+	Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(15,15,5,5)
+	Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(15,15,5,5)
+	Do Boringen.VoegToeElement(DoorBoring)
+	Do Boringen.VoegToeElement(Puntboring)
+	Do Boringen.VoegToeElement(Rugboring)
+	Do Boringen.VoegToeElement(Zijboring)
+		Do ..AssertSvg(Boringen, "<Boringen>  <doorboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""doorboring"">      <circle cx=""2.5"" cy=""2.5"" r="".5""></circle>    </svg>  </doorboring>  <puntboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""puntboring"">      <crossdiag>        <line x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>        <line x1=""0"" y1=""5"" x2=""5"" y2=""0""></line>      </crossdiag>    </svg>  </puntboring>  <rugboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""rugboring"">      <circle cx=""2.5"" cy=""2.5"" r="".5""></circle>      <crossdiag>        <line x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>        <line x1=""0"" y1=""5"" x2=""5"" y2=""0""></line>      </crossdiag>    </svg>  </rugboring>  <zijboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""zijboring"">      <tcross>        <line x1=""0"" y1=""0"" x2=""5"" y2=""0""></line>        <line x1=""2.5"" y1=""0"" x2=""2.5"" y2=""5""></line>      </tcross>    </svg>  </zijboring></Boringen>")
+]]></Implementation>
+</Method>
+
+<Method name="AssertSvg">
+<FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Replace($$ObjToXML^vhLib(SvgObject), $$$CRLF,""), VerwachteXml)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(revision 59510)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Property name="DoorBoringen">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="doorboring"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="PuntBoringen">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="puntboring"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="RugBoringen">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="rugboring"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ZijBoringen">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="zijboring"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Method name="VoegToeElement">
+<FormalSpec>Boring:TECH.Svg.Basis.DomElement</FormalSpec>
+<Implementation><![CDATA[
+	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring")
+	{
+	do ..DoorBoringen.Insert(Boring)
+	}
+	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring")
+	{
+	do ..PuntBoringen.Insert(Boring)
+	}
+	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring")
+	{
+	do ..RugBoringen.Insert(Boring)
+	}
+	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring")
+	{
+	do ..ZijBoringen.Insert(Boring)
+	}
+]]></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>DoorBoringen</Value>
+</Value>
+<Value name="8">
+<Value>PuntBoringen</Value>
+</Value>
+<Value name="9">
+<Value>RugBoringen</Value>
+</Value>
+<Value name="10">
+<Value>ZijBoringen</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>