Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(revision 59413)
@@ -0,0 +1,59 @@
+<?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>
+
+<Parameter name="XMLNAME">
+<Default>specialeBoring</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 CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(Width,Height)
+	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	DO ..SvgBox.VoegToeElement(CrossVH)
+	DO ..SvgBox.VoegToeID("specialeBoring")
+	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: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Zijboring.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Zijboring.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Zijboring.cls.xml	(revision 59413)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Zijboring">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>zijboring</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[
+
+	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New( Width, Height)
+	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	DO ..SvgBox.VoegToeElement(TCross)
+	DO ..SvgBox.VoegToeID("zijboring")
+	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: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Rugboring.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Rugboring.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Rugboring.cls.xml	(revision 59413)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Rugboring">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>rugboring</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 CrossDiag as APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height)
+	#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(CrossDiag)
+	DO ..SvgBox.VoegToeElement(Circle)
+	DO ..SvgBox.VoegToeID("rugboring")
+	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>CrossDiag</Value>
+</Value>
+<Value name="8">
+<Value>Circle</Value>
+</Value>
+<Value name="9">
+<Value>Group</Value>
+</Value>
+<Value name="10">
+<Value>SvgBox</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/PuntBoring.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/PuntBoring.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/PuntBoring.cls.xml	(revision 59413)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.PuntBoring">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>puntboring</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[
+	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height)
+	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	DO ..SvgBox.VoegToeElement(CrossDiag)
+	DO ..SvgBox.VoegToeID("puntboring")
+	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: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/DoorBoring.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/DoorBoring.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/DoorBoring.cls.xml	(revision 59413)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.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>