Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60226 -r60268
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60268)
@@ -3,21 +3,24 @@
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
 <Method name="VulDrieRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,LosProfiel:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim KaderOffset As %Integer
 	#dim FillS As %String
 	#dim BorderS As %String
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Do KaderGroup.VoegToeID("kader")
 	;Outer Rectangle
-	#dim KDOuter As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
-	#dim KDMiddle As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDMiddle As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Set KaderOffset = KaderdeurObject.ProfType.Breedte
-	#dim KDInner As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
 	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (LosProfiel = 0){
@@ -47,14 +50,15 @@
 <Method name="VulTweeRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Do ##class(Tools.Wlip).%New(238).String(Breedte_" "_Hoogte)
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
-	#dim KDOuter As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	Do ##class(Tools.Wlip).%New(238).String("outer aangemaakt")
 	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-	#dim KDInner As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
+	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
   	Do KaderGroup.VoegToeElement(KDOuter)
@@ -63,6 +67,18 @@
   	Quit KaderGroup
 ]]></Implementation>
 </Method>
+
+<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>
 </Class>