Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml
===================================================================
diff -u -r60197 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 60197)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 61908)
@@ -1,27 +1,48 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger">
-<Super>%RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="SchuineHoeken">
 <FormalSpec>ProfielBreedte:%Integer,KaderBreedte:%Integer,KaderHoogte:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set SchuineHoekenOffset = ProfielBreedte
+	#dim SchuineHoekenOffset As %Integer = ProfielBreedte
 	Set SchuineHoekGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
-	Set LeftTopLine = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
+	
+	#dim LeftTopLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(0, 0, SchuineHoekenOffset\1, SchuineHoekenOffset\1)
 	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
-	Set RightTopLine = BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
+	
+	#dim RightTopLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(KaderBreedte, 0, KaderBreedte - (SchuineHoekenOffset\1), SchuineHoekenOffset\1)
 	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
-	Set LeftBottomLine = BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
+	
+	#dim LeftBottomLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(0, KaderHoogte\1, SchuineHoekenOffset\1, KaderHoogte-(SchuineHoekenOffset\1))
 	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
-	Set RightBottomLine = BasisElementFactory.MaakLijn(KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1))
+	
+	#dim RightBottomLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(KaderBreedte\1, KaderHoogte\1, KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte - (SchuineHoekenOffset\1))
 	Do RightBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightBottomLine)
+	
 	Quit SchuineHoekGroup
 ]]></Implementation>
 </Method>