Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml
===================================================================
diff -u -r59415 -r59503
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml	(.../Test.cls.xml)	(revision 59415)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml	(.../Test.cls.xml)	(revision 59503)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan Zijboring">
 <Implementation><![CDATA[
 	
-		Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Zijboring).%New(15,15,5,5)
+		Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(15,15,5,5)
 		
 		Do ..AssertSvg(Zijboring, "<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>")
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml
===================================================================
diff -u -r59413 -r59503
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 59413)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../Boring/PuntBoring.cls.xml)	(revision 59503)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.PuntBoring">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring">
 <Super>TECH.Svg.Basis.DomElement</Super>
 
 <Parameter name="XMLNAME">
FishEye: Tag 59503 refers to a dead (removed) revision in file `APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Rugboring.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring.cls.xml
===================================================================
diff -u -r59413 -r59503
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring.cls.xml	(.../Rugboring.cls.xml)	(revision 59413)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring.cls.xml	(.../Boring/RugBoring.cls.xml)	(revision 59503)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Rugboring">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring">
 <Super>TECH.Svg.Basis.DomElement</Super>
 
 <Parameter name="XMLNAME">
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(revision 59503)
@@ -0,0 +1,59 @@
+<?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>
+
+<Parameter name="XMLNAME">
+<Default>doorboring</Default>
+</Parameter>
+
+<Property name="SvgBox">
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Parameter name="XMLNAME" value="svg"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#Dim Circle as TECH.Svg.Basis.Circle = ##class(TECH.Svg.Basis.Circle).%New(Width/2,Height/2,(Width/10))
+	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	DO ..SvgBox.VoegToeElement(Circle)
+	DO ..SvgBox.VoegToeID("doorboring")
+	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>SvgBox</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring/Test.cls.xml
===================================================================
diff -u -r59415 -r59503
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59415)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59503)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan Puntboring">
 <Implementation><![CDATA[
 	
-		Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.PuntBoring).%New(15,15,5,5)
+		Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(15,15,5,5)
 		
 		Do ..AssertSvg(Puntboring, "<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>")
 ]]></Implementation>
FishEye: Tag 59503 refers to a dead (removed) revision in file `APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Zijboring.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring/Test.cls.xml
===================================================================
diff -u -r59415 -r59503
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring/Test.cls.xml	(.../Test.cls.xml)	(revision 59415)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Rugboring/Test.cls.xml	(.../Test.cls.xml)	(revision 59503)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan Rugboring">
 <Implementation><![CDATA[
 	
-		Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Rugboring).%New(15,15,5,5)
+		Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(15,15,5,5)
 		
 		Do ..AssertSvg(Rugboring, "<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>")
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring.cls.xml
===================================================================
diff -u -r59413 -r59503
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring.cls.xml	(.../Zijboring.cls.xml)	(revision 59413)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring.cls.xml	(.../Boring/ZijBoring.cls.xml)	(revision 59503)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Zijboring">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring">
 <Super>TECH.Svg.Basis.DomElement</Super>
 
 <Parameter name="XMLNAME">
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml
===================================================================
diff -u -r59415 -r59503
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59415)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 59503)
@@ -6,7 +6,7 @@
 <Method name="Test bestaan DoorBoring">
 <Implementation><![CDATA[
 	
-		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.DoorBoring).%New(15,15,5,5)
+		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(15,15,5,5)
 		
 		Do ..AssertSvg(DoorBoring, "<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>")
 ]]></Implementation>
FishEye: Tag 59503 refers to a dead (removed) revision in file `APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/PuntBoring.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?