Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml
===================================================================
diff -u -r60209 -r60292
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60209)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60292)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test bestaan DoorBoring">
+<Method name="aTest bestaan DoorBoring">
 <Implementation><![CDATA[
 	
 		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(0,0,5,##class(TECH.Svg.enu.Kleur).Zwart())
@@ -12,7 +12,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test invulling objecten DoorBoring">
+<Method name="aTest invulling objecten DoorBoring">
 <Implementation><![CDATA[
 	
 		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(0,0,5,##class(TECH.Svg.enu.Kleur).Zwart())
Index: vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r60285 -r60292
--- vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 60285)
+++ vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 60292)
@@ -7,29 +7,24 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory</Super>
 
-<Method name="MaakDoorboring">
-<Implementation><![CDATA[
-]]></Implementation>
+<Method name="MaakDoorBoring">
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakPuntBoring">
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakRugBoring">
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakSpecialeBoring">
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakZijBoring">
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml
===================================================================
diff -u -r60226 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 60292)
@@ -13,22 +13,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Rotation:%Integer=0,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 ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Group = ##class(TECH.Svg.Basis.Group).%New()
-	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New(Width, Height, kleur)
-	Set ..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(..SvgBox,Group)
-	Do ..SvgBox.VoegToeID("zijboring")
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml
===================================================================
diff -u -r60226 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60292)
@@ -13,19 +13,11 @@
 </Property>
 
 <Method name="%OnNew">
-<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 ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	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 ElementToevoeger.VoegToeElement(..SvgBox, CrossVH)
-	DO ..SvgBox.VoegToeID("specialeBoring")
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60222 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60222)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60292)
@@ -9,13 +9,23 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
+<Property name="BoringElementFactory">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory</Type>
+</Property>
+
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..BoringElementFactory = $$$Inject(BoringElementFactory, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New())
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
 	Set ..Group = ##class(TECH.Svg.Basis.SvgBox).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -49,29 +59,29 @@
 			#dim BoorType As %String = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 			If (BoorType="Z") {
 				#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
-				Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,10,10,Rotation,Kleur)
+				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos,YPos,10,10,Rotation,Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,ZijBoring)
 			}
 			ElseIf(Boring.IsSpecialeBoring()){
-				Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(XPos,YPos,10,10,Kleur)
+				Set SpecialeBoring = ..BoringElementFactory.SpecialeBoring(XPos,YPos,10,10,Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
 			}
 			ElseIf (Boring.BoorDiepte < 0) {
-				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
+				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,DoorBoring)
 			}
 			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
-				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,YPos,10,10,Kleur)
+				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos,YPos,10,10,Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,PuntBoring)
 			}
 			Else {
 		
-				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10,Kleur)
+				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10,Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,RugBoring)
 			}	
 		
 			If (BoorType = "Z"), (Boring.BoorDiepte < 0) {
-				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,10,10,Kleur)
+				Set DoorBoring =  ..BoringElementFactory.MaakDoorBoring(XPos,YPos,10,10,Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,DoorBoring)
 			}
 			Set Boring = Boringen.GetNext(.Key)
@@ -87,7 +97,7 @@
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set BoringenIterator = ##class(TECH.ListIterator).%New(Boringen)
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	
 	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Blauw()
 	#dim TijdelijkeOffsetX As %Integer = Beslag.ConstructAfm.GetAt("OFFSX")
 	#dim TijdelijkeOffsetY As %Integer = Beslag.ConstructAfm.GetAt("OFFSY")
@@ -112,8 +122,8 @@
 		Set OffsetY = Hoogte - TijdelijkeOffsetX
 	}
 	
-	#Dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(BPosX - OffsetX, BPosY - OffsetY,Hoogte,Breedte)
-	#Dim Rechthoek As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte, Hoogte)
+	#Dim SvgBox As TECH.Svg.Basis.SvgBox = ..BasisElementFactory.MaakSvgBox(BPosX - OffsetX, BPosY - OffsetY,Hoogte,Breedte)
+	#Dim Rechthoek As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte, Hoogte)
 	Do Rechthoek.SetStroke(##class(TECH.Svg.enu.Kleur).Blauw())
 	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Geen())
 
@@ -132,6 +142,12 @@
  		#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)   ; Externe boring
  		#dim strColor As %Integer = "blue"
 		#dim BoorType As %Integer = Boring.BoringType
+		#dim Circle As TECH.Svg.Basis.Circle
+		#dim ZijBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring
+		#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring
+		#dim RugBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring
+		#dim PuntBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring
+		#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
 		If ($L(Boring.VmlID) > 2) {
@@ -141,39 +157,39 @@
 		ElseIf (BoorType="Z") {
 			Set GrootteBoring = 14
 			Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
-			Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur)
+			Set ZijBoring =  ..BoringElementFactory.MaakZijBoring(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur)
 			Do ElementToevoeger.VoegToeElement(SvgBox,ZijBoring)
 		}
 		ElseIf(Boring.IsSpecialeBoring()){
 			Set GrootteBoring = 10
 			if (YPos < 0) {
-			Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
+			Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
 			} Else {
-				Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur)
+				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur)
 			}
 			Do ElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring)
 		}
 		ElseIf (Boring.BoorDiepte < 0) {
 			Set GrootteBoring = 10
-			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
+			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,GrootteBoring/2, Kleur)
 			Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)
 		}
 		ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){
 			Set GrootteBoring = 10
 			if (YPos < 0) {
-				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
+				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
 			} Else {
-				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur)
+				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur)
 			}
 			Do ElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
 		}
 		Else {
 			If (GrootteBoring<10) {
-				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur)
+				Set RugBoring = ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10, Kleur)
 				Do ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
 			}Else {
 				#dim Straal As %Integer = GrootteBoring/2
-				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
+				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
 				Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
 			}
 		}	
Index: vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(revision 60292)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+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,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	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[	do ..VerwerkMethodCall("MaakDoorBoring",PosX,PosY,Straal,Kleur)
+]]></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[	do ..VerwerkMethodCall("MaakPuntBoring",MidX,MidY,Width,Height,Kleur)
+]]></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[	do ..VerwerkMethodCall("MaakRugBoring",MidX,MidY,Width,Height,Kleur)
+]]></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[	do ..VerwerkMethodCall("MaakSpecialeBoring",MidX,MidY,Width,Height,kleur)
+]]></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[	do ..VerwerkMethodCall("MaakZijBoring",MidX,MidY,Width,Height,Rotation,kleur)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r60285 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 60285)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 60292)
@@ -24,7 +24,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakDoorboring">
+<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()
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml
===================================================================
diff -u -r60226 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60292)
@@ -18,23 +18,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),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 = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set ..BasisElementFactory =##class(TECH.Svg.BasisElementFactory).%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 ..SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
-	Do ElementToevoeger.VoegToeElement(..SvgBox,CrossDiag)
-	Do ElementToevoeger.VoegToeElement(..SvgBox,Circle)
-	Do ..SvgBox.VoegToeID("rugboring")
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u -r60226 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60292)
@@ -13,20 +13,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PosX:%Integer,PosY:%Integer,Straal:%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 ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	#dim Circle As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel( Straal,Straal,Straal)
-	Do Circle.SetFill(Kleur)
-	Set ..SvgBox = BasisElementFactory.MaakSvgBox(PosX-Straal,PosY-Straal, Straal*2, Straal*2)
-	Do ElementToevoeger.VoegToeElement(..SvgBox,Circle)
-	Do ..SvgBox.VoegToeID("doorboring")
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml
===================================================================
diff -u -r60226 -r60292
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60292)
@@ -13,19 +13,11 @@
 </Property>
 
 <Method name="%OnNew">
-<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 ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height,Kleur)
-	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
-	Do ElementToevoeger.VoegToeElement(..SvgBox,CrossDiag)
-	Do ..SvgBox.VoegToeID("puntboring")
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>