Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u -r60222 -r60351
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60222)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60351)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
+<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	#dim ProfPlaats As %String = "PL"
@@ -16,8 +16,41 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met rechts profiel">
+<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met links profiel">
 <Implementation><![CDATA[
+	
+	#dim ProfPlaats As %String = "PL"
+	#dim ProductiewijzeID As %String = "LPR"
+	#dim HoekId As %Integer = 2
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450 
+	
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Set CoordinatesList = ##class(TECH.Svg.Services.CoordinatesService).%New().MaakCoordinatenLijstVanPunten(1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten", 1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61).DanReturn(CoordinatesList)
+	Set HoekverbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
+	Set HoekverbinderLinksOnder =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
+	Set HoekverbinderMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links boven").DanReturn(HoekverbinderLinksBoven)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts boven", "translate(350 0) rotate(90)").DanReturn(HoekverbinderLinksBoven)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)").DanReturn(HoekverbinderLinksBoven)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)").DanReturn(HoekverbinderLinksBoven)
+	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
+	
+	
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,, HoekverbinderMakerMock)
+	
+	Do HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	
+
+	Do CoordinatesServiceMock.Verifieer()
+	Do HoekverbinderMakerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met rechts profiel">
+<Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	#dim ProfPlaats As %String = "PR"
 	#dim ProductiewijzeID As %String = ""
@@ -29,7 +62,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los links profiel">
+<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met los links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	#dim ProfPlaats As %String = "PL"
@@ -42,7 +75,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los rechts profiel">
+<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met los rechts profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	#dim ProfPlaats As %String = "PR"
Index: vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(revision 60351)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker">
+<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.Hoekverbinder.HoekverbinderMaker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakHoekverbinder">
+<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[	quit ..VerwerkMethodCall("MaakHoekverbinder",CoordinatesList,XCirkel,YCirkel,ID,Transform)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60268 -r60351
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60268)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60351)
@@ -3,6 +3,33 @@
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="CoordinatesService">
+<Type>TECH.Svg.Services.CoordinatesService</Type>
+</Property>
+
+<Property name="HoekverbinderMaker">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</Type>
+</Property>
+
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CoordinatesService:TECH.Svg.Services.CoordinatesService,ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,HoekverbinderMaker:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CoordinatesService = $$$Inject(CoordinatesService, ##class(TECH.Svg.Services.CoordinatesService).%New())
+	Set ..HoekverbinderMaker = $$$Inject(HoekverbinderMaker, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New())
+	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeVerbinder">
 <FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
@@ -18,68 +45,60 @@
 <Method name="VulVerbinders">
 <FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	#dim BreedteVerbinder As %Integer
 	#dim XCirkel As %Integer 
 	#dim YCirkel As %Integer 
 	#dim LengteVerbinder As %Integer 
 	#dim StartVerbinder =1
 	if (HoekId=2) {
+		Do ##class(Tools.Wlip).%New(238).String("hoi")
 		Set BreedteVerbinder = 61
 		Set XCirkel =39
 		Set LengteVerbinder = 41
 		Set YCirkel = 19 
-		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	} ElseIf (HoekId=1){
 		Set BreedteVerbinder = 43
 		Set LengteVerbinder = 17
 		Set XCirkel = 23
 		Set YCirkel = 6 
-		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	}
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
-	
-	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
-	
-	Set VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
-	
-	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
+	Do ##class(Tools.Wlip).%New(238).ObjToText(CoordinatesList)
+	Do ##class(Tools.Wlip).%New(238).String(Breedte)
+	Do ##class(Tools.Wlip).%New(238).String(Hoogte)
+	#dim VerbinderLinksBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
+	#dim VerbinderRechtsBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
+	#dim VerbinderLinksOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
+	#dim VerbinderRechtsOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
 	;benedenprofiel
 	If (ProfPlaats="PO"){ 
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
 	;bovenprofiel
 	If (ProfPlaats="PB"){
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
 	;linkse profiel
 	If (ProfPlaats="PL"){
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
 	}
 	;rechtse profiel
 	If (ProfPlaats="PR"){
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
-	
 	If (ProfPlaats="All") {
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
-	
 	Quit VerbinderGroup
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(revision 60351)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker">
+<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.Hoekverbinder.HoekverbinderMaker</Super>
+
+<Method name="MaakHoekverbinder">
+<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[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 60351 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker/Test.cls.xml	(revision 60351)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test aanmaken objecten voor hoekverbinder links boven">
+<Implementation><![CDATA[
+	
+	#dim XCirkel As %Integer = 39
+	#dim YCirkel As %Integer = 19 
+	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
+	#dim VerbinderLinksBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
+	Set VerbinderLinksBoven = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
+	
+	Do $$$AssertEquals(VerbinderLinksBoven.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderLinksBoven.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test uitvoeren methodes voor hoekverbinder links boven">
+<Implementation><![CDATA[
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set BasisElementFactory	= ##class(TECH.Svg.BasisElementFactory).%New()
+	#dim XCirkel As %Integer = 39
+	#dim YCirkel As %Integer = 19 
+	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(CoordinatesList,1)
+	#dim Cirkel As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(5,5,3)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath",CoordinatesList,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",39,19,3).DanReturn(Cirkel)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",19,39,3).DanReturn(Cirkel)
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New(BasisElementFactoryMock)
+
+	Do HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
+	
+	Do BasisElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken objecten voor hoekverbinder links onder">
+<Implementation><![CDATA[
+	
+	#dim XCirkel As %Integer = 39
+	#dim YCirkel As %Integer = 19 
+	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
+	#dim VerbinderLinksOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
+	Set VerbinderLinksOnder = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_450_") rotate(270)")
+	
+	Do $$$AssertEquals(VerbinderLinksOnder.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderLinksOnder.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken objecten voor hoekverbinder rechts onder">
+<Implementation><![CDATA[
+	
+	#dim XCirkel As %Integer = 39
+	#dim YCirkel As %Integer = 19 
+	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
+	#dim VerbinderRechtsOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
+	Set VerbinderRechtsOnder = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_350_" "_450_") rotate(180)")
+	
+	Do $$$AssertEquals(VerbinderRechtsOnder.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderRechtsOnder.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken objecten voor hoekverbinder rechts boven">
+<Implementation><![CDATA[
+	
+	#dim XCirkel As %Integer = 39
+	#dim YCirkel As %Integer = 19 
+	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
+	#dim VerbinderRechtsBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
+	Set VerbinderRechtsBoven = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_350_" 0) rotate(90)")
+	
+	Do $$$AssertEquals(VerbinderRechtsBoven.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderRechtsBoven.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml
===================================================================
diff -u -r60226 -r60351
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60351)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject</Super>
 
 <Property name="Group">
@@ -9,38 +10,23 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<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())
 	Set ..Group = ##class(TECH.Svg.Basis.Group).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="MaakHoekverbinder">
-<FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer,ID:%String,Transform:%String="translate(0 0) rotate(0)"</FormalSpec>
-<Implementation><![CDATA[
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,1)
-	Set Circle1 = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(XCirkel,YCirkel,3)
-	Set Circle2 = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(YCirkel,XCirkel,3)
-	Do Path.SetFill("#A0A0A0")
-	Do Path.SetOpacity(0.5)
-	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
-	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
-	
-	Do ElementToevoeger.VoegToeElement(..Group, Circle1)
-	Do ElementToevoeger.VoegToeElement(..Group, Circle2)
-	Do ElementToevoeger.VoegToeElement(..Group, Path)
-	Do ..Group.VoegToeTransform(Transform)
-	Do ..Group.VoegToeID(ID)
-]]></Implementation>
-</Method>
-
 <Method name="XMLExport">
 <FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(revision 60351)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker">
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+
+<Property name="BasisElementFactory">
+<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="MaakHoekverbinder">
+<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())
+	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
+	
+	Do ElementToevoeger.VoegToeElement(Hoekverbinder.Group, Circle1)
+	Do ElementToevoeger.VoegToeElement(Hoekverbinder.Group, Circle2)
+	Do ElementToevoeger.VoegToeElement(Hoekverbinder.Group, Path)
+	Do Hoekverbinder.Group.VoegToeTransform(Transform)
+	Do Hoekverbinder.Group.VoegToeID(ID)
+	Quit Hoekverbinder
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>