Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60268 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60268)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 61908)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger">
 <IncludeCode>vhLib.Macro</IncludeCode>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="BasisElementFactory">
 <Type>TECH.Svg.BasisElementFactory</Type>
@@ -27,18 +27,20 @@
 
 <Method name="LosProfiel">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Path</ReturnType>
 <Implementation><![CDATA[
 
-	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
-	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
-	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
-	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
+	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(LosOffset, LosOffset)
+	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte - LosOffset, LosOffset)
+	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(LosOffset, Lengte- LosOffset)
+	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte - LosOffset, Lengte - LosOffset)
 	
-	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(0,0)
-	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte,0)
+	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(0, 0)
+	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte, 0)
 	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(0, Lengte)
 	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
 	#dim CoordinatesList As %ListOfObject
+	
 	If (ProfPlaats="PL") {
 		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
 	}
@@ -51,10 +53,11 @@
 		If (ProfPlaats="PO") {
 		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
 	}
+	
 	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList)
-		Do Path.SetFill("#F0F0F0")
-		Do Path.SetStroke("black",2)
-		Do Path.SetOpacity(0.5)
+	Do Path.SetFill("#F0F0F0")
+	Do Path.SetStroke("black",2)
+	Do Path.SetOpacity(0.5)
 	Quit Path
 ]]></Implementation>
 </Method>