Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60634 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60634)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 61908)
@@ -22,7 +22,6 @@
 	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
 	Set ..CoordinatesService = $$$Inject(CoordinatesService, ##class(TECH.Svg.Services.CoordinatesService).%New())
 	Quit $$$OK
-	w "hoi subversion"
 ]]></Implementation>
 </Method>
 
@@ -31,16 +30,17 @@
 <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)
 	}
@@ -53,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>