Index: vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(revision 60285)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory</Super>
+
+<Method name="MaakDoorboring">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="MaakPuntBoring">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="MaakRugBoring">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="MaakSpecialeBoring">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="MaakZijBoring">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(revision 60285)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory">
+<Super>TECH.Mockable</Super>
+
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakDoorboring">
+<FormalSpec>PosX:%Integer,PosY:%Integer,Straal:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<Implementation><![CDATA[
+	Set Doorboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New()
+	#dim Circle As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(Straal,Straal,Straal)
+	Do Circle.SetFill(Kleur)
+	Set Doorboring.SvgBox = ..BasisElementFactory.MaakSvgBox(PosX-Straal,PosY-Straal, Straal*2, Straal*2)
+	Do ..ElementToevoeger.VoegToeElement(Doorboring.SvgBox,Circle)
+	Do Doorboring.SvgBox.VoegToeID("doorboring")
+	Quit Doorboring
+]]></Implementation>
+</Method>
+
+<Method name="MaakPuntBoring">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<Implementation><![CDATA[
+	Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New()
+	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height,Kleur)
+	Set Puntboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Do ..ElementToevoeger.VoegToeElement(Puntboring.SvgBox,CrossDiag)
+	Do Puntboring.SvgBox.VoegToeID("puntboring")
+	Quit Puntboring
+]]></Implementation>
+</Method>
+
+<Method name="MaakRugBoring">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<Implementation><![CDATA[
+	Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New()
+	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height, Kleur)
+	#dim Circle As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/2.2))
+	Do Circle.SetFill(Kleur)
+	Set Rugboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Do ..ElementToevoeger.VoegToeElement(Rugboring.SvgBox,CrossDiag)
+	Do ..ElementToevoeger.VoegToeElement(Rugboring.SvgBox,Circle)
+	Do Rugboring.SvgBox.VoegToeID("rugboring")
+	Quit Rugboring
+]]></Implementation>
+</Method>
+
+<Method name="MaakZijBoring">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Rotation:%Integer=0,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<Implementation><![CDATA[
+	Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New()
+	Set Group = ##class(TECH.Svg.Basis.Group).%New()
+	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New(Width, Height, kleur)
+	Set Zijboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Do Group.VoegToeTransform("rotate("_Rotation_" "_(Width/2)_" "_(Height/2)_")")
+	Do Group.VoegToeElement(TCross)
+	Do ..ElementToevoeger.VoegToeElement(Zijboring.SvgBox,Group)
+	Do Zijboring.SvgBox.VoegToeID("zijboring")
+	Quit Zijboring
+]]></Implementation>
+</Method>
+
+<Method name="MaakSpecialeBoring">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
+<Implementation><![CDATA[
+	Set Specialeboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New()
+	Set CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(Width,Height, kleur)
+	Set Specialeboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
+	Do ..ElementToevoeger.VoegToeElement(Specialeboring.SvgBox, CrossVH)
+	Do Specialeboring.SvgBox.VoegToeID("specialeBoring")
+	Quit Specialeboring
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>