Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml
===================================================================
diff -u -r60206 -r60207
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml	(.../Test.cls.xml)	(revision 60206)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm/MaakBoringSpecialeVorm/Test.cls.xml	(.../Test.cls.xml)	(revision 60207)
@@ -5,7 +5,9 @@
 
 <Method name="Test SD30FREES">
 <Implementation><![CDATA[
-	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New()
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(BasisElementFactoryMock, CoordinatesServiceMock)
 	
 	Do BeslagBoringSpecialeVorm.MaakBoringSpecialeVorm("SD30",350,450,0)
 	
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60197 -r60207
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60197)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60207)
@@ -9,13 +9,21 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory,CoordinatesService:TECH.Svg.Services.CoordinatesService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakBoringSpecialeVorm">
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
 	If (VmlId = "KAD") {
 		Do ..KadFreesRect(Breedte, Lengte, Rotation)	
 	}ElseIf (VmlId ="SD30"){
@@ -25,7 +33,6 @@
 	}ElseIf (VmlId ="REGULA_SM"){
 		Do ..SD35FREES(Breedte, Lengte,Rotation)
 	}
-	Quit $$$OK
 ]]></Implementation>
 </Method>