Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml
===================================================================
diff -u -r60385 -r61639
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60385)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 61639)
@@ -36,8 +36,8 @@
 	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
 	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
 	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
-	#dim ZijBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring = BoringElementFactory.MaakZijBoring(158, 473, 10, 10, 0, ##class(TECH.Svg.enu.Kleur).Zwart())
-	Do BoringElementFactoryMock.VerwachtMethodCall("MaakZijBoring",158, 473, 10, 10, 0, ##class(TECH.Svg.enu.Kleur).Zwart()).DanReturn(ZijBoring)
+	#dim ZijBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring = BoringElementFactory.MaakZijBoring(158, 473, 10, 10, 0, ##class(TECH.Svg.enu.Kleur).Rood())
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakZijBoring",158, 473, 10, 10, 0, ##class(TECH.Svg.enu.Kleur).Rood()).DanReturn(ZijBoring)
 	
 	Do Boringen.VoegToeBoringen(Kaderdeur)
 	
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringELementFactory/Test.cls.xml
===================================================================
diff -u -r61610 -r61639
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringELementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 61610)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringELementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 61639)
@@ -63,7 +63,7 @@
 <Implementation><![CDATA[
 		Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
 		Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-		Set CrossFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossFactory).%New()
+		Set CrossFactoryMock = ##class(vhTest.Mock.TECH.Svg.Tooling.CrossFactory).%New()
 		Set CrossFactory = ##class(TECH.Svg.Tooling.CrossFactory).%New()
 		#dim DummyCrossDiag As TECH.Svg.Tooling.CrossDiag = CrossFactory.MaakCrossDiag(0,0,"kleur")
 		#dim DummySvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,0,0)
@@ -103,7 +103,7 @@
 <Implementation><![CDATA[
 		Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
 		Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-		Set CrossFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossFactory).%New()
+		Set CrossFactoryMock = ##class(vhTest.Mock.TECH.Svg.Tooling.CrossFactory).%New()
 		Set CrossFactory = ##class(TECH.Svg.Tooling.CrossFactory).%New()
 		#dim DummyCirkel As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(0,0,0)
 		#dim DummyCrossDiag As TECH.Svg.Tooling.CrossDiag = CrossFactory.MaakCrossDiag(0,0,"kleur")
@@ -126,7 +126,7 @@
 		#dim Zijboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring
 		Set Zijboring = BoringElementFactory.MaakZijBoring(25,15,10,5,90,##class(TECH.Svg.enu.Kleur).Blauw())
 		
-		Do ..AssertSvg(Zijboring,"<svg x=""20"" y=""12.5"" height=""10"" width=""5"" id=""zijboring"">  <g transform=""rotate(90 5 2.5)"">    <line stroke=""blue"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""10"" y2=""0""></line>    <line stroke=""blue"" stroke-width=""1"" stroke-dasharray=""none"" x1=""5"" y1=""0"" x2=""5"" y2=""5""></line>  </g></svg>")
+		Do ..AssertSvg(Zijboring,"<svg x=""20"" y=""12.5"" height=""10"" width=""5"" id=""zijboring"">  <g transform=""rotate(90 5 2.5)"">    <line stroke=""blue"" stroke-width=""5"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""0"" y2=""5""></line>    <line stroke=""blue"" stroke-width=""2"" stroke-dasharray=""none"" x1=""0"" y1=""2.5"" x2=""10"" y2=""2.5""></line>  </g></svg>")
 ]]></Implementation>
 </Method>
 
@@ -144,11 +144,11 @@
 <Implementation><![CDATA[
 		Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
 		Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-		Set CrossFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossFactory).%New()
+		Set CrossFactoryMock = ##class(vhTest.Mock.TECH.Svg.Tooling.CrossFactory).%New()
 		Set CrossFactory = ##class(TECH.Svg.Tooling.CrossFactory).%New()
 		#dim DummyTCross As TECH.Svg.Tooling.TCross = CrossFactory.MaakTCross(0,0,"kleur")
 		#dim DummySvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,0,0)
-		Do CrossFactoryMock.VerwachtMethodCall("MaakTCross",10,5,##class(TECH.Svg.enu.Kleur).Zwart()).DanReturn(DummyTCross)
+		Do CrossFactoryMock.VerwachtMethodCall("MaakTCross",10,5,##class(TECH.Svg.enu.Kleur).Rood()).DanReturn(DummyTCross)
 		Do BasisElementFactoryMock.VerwachtMethodCall("MaakSvgBox", 20,12.5,10,5).DanReturn(DummySvgBox)
 		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New(,BasisElementFactoryMock,CrossFactoryMock)
 		
@@ -183,7 +183,7 @@
 <Implementation><![CDATA[
 		Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
 		Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-		Set CrossFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossFactory).%New()
+		Set CrossFactoryMock = ##class(vhTest.Mock.TECH.Svg.Tooling.CrossFactory).%New()
 		Set CrossFactory = ##class(TECH.Svg.Tooling.CrossFactory).%New()
 		#dim DummyCrossVH As TECH.Svg.Tooling.CrossVH = CrossFactory.MaakCrossVH(0,0,"kleur")
 		#dim DummySvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,0,0)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r61607 -r61639
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61607)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61639)
@@ -75,7 +75,7 @@
 </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>
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Rotation:%Integer=0,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Rood()</FormalSpec>
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring</ReturnType>
 <Implementation><![CDATA[
 	Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New()
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r61353 -r61639
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61353)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61639)
@@ -70,7 +70,7 @@
 			#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 = ..BoringElementFactory.MaakZijBoring(XPos,YPos,10,10,Rotation,Kleur)
+				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos,YPos,10,10,Rotation)
 				Do ..ElementToevoeger.VoegToeElement(..Group,ZijBoring)
 			}
 			ElseIf(Boring.IsSpecialeBoring()){
@@ -195,7 +195,7 @@
 		Else {
 			#dim Straal As %Integer = GrootteBoring/2
 			If (GrootteBoring<10) {
-				Set RugBoring = ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10, Kleur)
+				Set RugBoring = ..BoringElementFactory.MaakPuntBoring(XPos, YPos,10,10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
 			}
 			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
Index: vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r61353 -r61639
--- vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61353)
+++ vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61639)
@@ -44,7 +44,7 @@
 </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>
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Rotation:%Integer=0,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Rood()</FormalSpec>
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakZijBoring",MidX,MidY,Width,Height,Rotation,kleur)
 ]]></Implementation>
FishEye: Tag 61639 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossFactory/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?