Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml
===================================================================
diff -u -r60130 -r60227
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml	(.../Test.cls.xml)	(revision 60130)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml	(.../Test.cls.xml)	(revision 60227)
@@ -3,28 +3,14 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+</Method>
+
 <Method name="Test aanmaken objecten voor hoekverbinder links boven">
 <Implementation><![CDATA[
-	
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
-	Set BreedteVerbinder = 61
-	Set LengteVerbinder = 41
-	Set XCirkel =39
-	Set YCirkel = 19 
-	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-	Do CoordinatesList.Insert(LeftTopBreed)
-	Do CoordinatesList.Insert(RightTopBreed)
-	Do CoordinatesList.Insert(RightInnerBottomBreed)
-	Do CoordinatesList.Insert(InnerBreed)
-	Do CoordinatesList.Insert(LeftInnerBottomBreed)
-	Do CoordinatesList.Insert(LeftBottomBreed)
+	#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 VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
 	
@@ -36,25 +22,9 @@
 <Method name="Test aanmaken objecten voor hoekverbinder links onder">
 <Implementation><![CDATA[
 	
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
-	Set BreedteVerbinder = 61
-	Set LengteVerbinder = 41
-	Set XCirkel =39
-	Set YCirkel = 19 
-	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-	Do CoordinatesList.Insert(LeftTopBreed)
-	Do CoordinatesList.Insert(RightTopBreed)
-	Do CoordinatesList.Insert(RightInnerBottomBreed)
-	Do CoordinatesList.Insert(InnerBreed)
-	Do CoordinatesList.Insert(LeftInnerBottomBreed)
-	Do CoordinatesList.Insert(LeftBottomBreed)
+	#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 VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_450_") rotate(270)")
 	
@@ -66,25 +36,9 @@
 <Method name="Test aanmaken objecten voor hoekverbinder rechts onder">
 <Implementation><![CDATA[
 	
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
-	Set BreedteVerbinder = 61
-	Set LengteVerbinder = 41
-	Set XCirkel =39
-	Set YCirkel = 19 
-	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-	Do CoordinatesList.Insert(LeftTopBreed)
-	Do CoordinatesList.Insert(RightTopBreed)
-	Do CoordinatesList.Insert(RightInnerBottomBreed)
-	Do CoordinatesList.Insert(InnerBreed)
-	Do CoordinatesList.Insert(LeftInnerBottomBreed)
-	Do CoordinatesList.Insert(LeftBottomBreed)
+	#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 VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_350_" "_450_") rotate(180)")
 	
@@ -96,25 +50,9 @@
 <Method name="Test aanmaken objecten voor hoekverbinder rechts boven">
 <Implementation><![CDATA[
 	
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
-	Set BreedteVerbinder = 61
-	Set LengteVerbinder = 41
-	Set XCirkel =39
-	Set YCirkel = 19 
-	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-	Do CoordinatesList.Insert(LeftTopBreed)
-	Do CoordinatesList.Insert(RightTopBreed)
-	Do CoordinatesList.Insert(RightInnerBottomBreed)
-	Do CoordinatesList.Insert(InnerBreed)
-	Do CoordinatesList.Insert(LeftInnerBottomBreed)
-	Do CoordinatesList.Insert(LeftBottomBreed)
+	#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 VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_350_" 0) rotate(90)")
 	
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml
===================================================================
diff -u -r60192 -r60227
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60192)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60227)
@@ -5,7 +5,7 @@
 
 <Method name="Test: standaardgedrag met rugboring">
 <Implementation><![CDATA[
-	Set Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoring()
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoring()
 	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
 	Do Boringen.VoegToeBoringen(Kaderdeur)
 	Do $$$AssertEquals(Boringen.Group.SvgBox.Count(),1)
@@ -14,7 +14,7 @@
 
 <Method name="Test: standaardgedrag met 2 boringen">
 <Implementation><![CDATA[
-	Set Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoring()
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoring()
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set Boring.BoorDiameter=6
 	Set Boring.BoorDiepte = -1