Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60385 -r60452
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60385)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60452)
@@ -21,8 +21,12 @@
 <Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm</Type>
 </Property>
 
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory,BeslagBoringSpecialevorm:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm</FormalSpec>
+<FormalSpec>BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory,BeslagBoringSpecialevorm:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm,ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -31,15 +35,17 @@
 	Set ..BoringElementFactory = $$$Inject(BoringElementFactory, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New())
 	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
 	Set ..BeslagBoringSpecialevorm = $$$Inject(BeslagBoringSpecialevorm, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New())
+	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
 	Set ..Group = ##class(TECH.Svg.Basis.SvgBox).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeBoringen">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+
 	Do ..Group.VoegToeID("Boringen")
 	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Zwart()
 	#dim Boringen As array of Prod.GADef.emKadBoring = KaderdeurObject.Boringen
@@ -65,29 +71,29 @@
 			If (BoorType="Z") {
 				#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
 				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos,YPos,10,10,Rotation,Kleur)
-				Do ElementToevoeger.VoegToeElement(..Group,ZijBoring)
+				Do ..ElementToevoeger.VoegToeElement(..Group,ZijBoring)
 			}
 			ElseIf(Boring.IsSpecialeBoring()){
 				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos,YPos,10,10,Kleur)
-				Do ElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
+				Do ..ElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
 			}
 			ElseIf (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
-				Do ElementToevoeger.VoegToeElement(..Group,DoorBoring)
+				Do ..ElementToevoeger.VoegToeElement(..Group,DoorBoring)
 			}
 			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
 				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos,YPos,10,10,Kleur)
-				Do ElementToevoeger.VoegToeElement(..Group,PuntBoring)
+				Do ..ElementToevoeger.VoegToeElement(..Group,PuntBoring)
 			}
 			Else {
 		
 				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10,Kleur)
-				Do ElementToevoeger.VoegToeElement(..Group,RugBoring)
+				Do ..ElementToevoeger.VoegToeElement(..Group,RugBoring)
 			}	
 		
 			If (BoorType = "Z"), (Boring.BoorDiepte < 0) {
 				Set DoorBoring =  ..BoringElementFactory.MaakDoorBoring(XPos,YPos,10,10,Kleur)
-				Do ElementToevoeger.VoegToeElement(..Group,DoorBoring)
+				Do ..ElementToevoeger.VoegToeElement(..Group,DoorBoring)
 			}
 			Set Boring = Boringen.GetNext(.Key)
 		}
@@ -98,7 +104,7 @@
 <Method name="VoegToeBeslagBoringen">
 <FormalSpec>Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set BoringenIterator = ##class(TECH.ListIterator).%New(Boringen)
@@ -153,13 +159,13 @@
 		#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) {
-			Do ElementToevoeger.VoegToeElement(SvgBox, ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation))
+			Do ..ElementToevoeger.VoegToeElement(SvgBox, ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation))
 		}
 		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 =  ..BoringElementFactory.MaakZijBoring(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur)
-			Do ElementToevoeger.VoegToeElement(SvgBox,ZijBoring)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox,ZijBoring)
 		}
 		ElseIf(Boring.IsSpecialeBoring()){
 			Set GrootteBoring = 10
@@ -168,12 +174,12 @@
 			} Else {
 				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur)
 			}
-			Do ElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring)
 		}
 		ElseIf (Boring.BoorDiepte < 0) {
 			Set GrootteBoring = 10
 			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,GrootteBoring/2, Kleur)
-			Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)
 		}
 		ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){
 			Set GrootteBoring = 10
@@ -182,20 +188,20 @@
 			} Else {
 				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur)
 			}
-			Do ElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
 		}
 		Else {
 			#dim Straal As %Integer = GrootteBoring/2
 			If (GrootteBoring<10) {
 				Set RugBoring = ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10, Kleur)
-				Do ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
+				Do ..ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
 			}
 			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
-			Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
+			Do ..ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
 		}	
 	
 	}
-	Do ElementToevoeger.VoegToeElement(SvgBox,Rechthoek)
+	Do ..ElementToevoeger.VoegToeElement(SvgBox,Rechthoek)
 	Do SvgBox.VoegToeID("beslag")
 	Do ..Group.VoegToeElement(SvgBox)
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u -r60351 -r60452
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 60351)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 60452)
@@ -23,14 +23,11 @@
 <FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer,ID:%String,Transform:%String="translate(0 0) rotate(0)"</FormalSpec>
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(238).String("hoi")
-	Do ##class(Tools.Wlip).%New(238).ObjToText(..BasisElementFactory)
 	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList,1)
 	#dim Circle1 As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(XCirkel,YCirkel,3)
 	#dim Circle2 As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(YCirkel,XCirkel,3)
-	Do ##class(Tools.Wlip).%New(238).String("aangemaakt")
 	Do Path.SetFill("#A0A0A0")
 	Do Path.SetOpacity(0.5)
 	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60405 -r60452
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60405)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60452)
@@ -7,6 +7,18 @@
 <Type>TECH.Svg.BasisElementFactory</Type>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VulDrieRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,LosProfiel:%Boolean=0</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
@@ -52,12 +64,10 @@
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(238).String(Breedte_" "_Hoogte)
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
 	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
-	Do ##class(Tools.Wlip).%New(238).String("outer aangemaakt")
 	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
@@ -69,18 +79,6 @@
   	Quit KaderGroup
 ]]></Implementation>
 </Method>
-
-<Method name="%OnNew">
-<FormalSpec>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())
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>