Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60268 -r62979
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60268)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 62979)
@@ -1,44 +1,63 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger">
-<Super>TECH.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="VulDrieRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,LosProfiel:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
 	#dim KaderOffset As %Integer
 	#dim FillS As %String
 	#dim BorderS As %String
-	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+	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, "KDOuter", "clsHidePrint")
 	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)), "KDMiddle", "clsHidePrint")
 	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)), "KDInner", "clsHidePrint")
 	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. 
+	
+	;Als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (LosProfiel = 0){
 		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
 		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"2",BorderS="D":"1",1:"none"))
+		Do KDMiddle.SetFill($S(BorderS="LD":##class(TECH.Svg.enu.Kleur).Geen(),BorderS="D":##class(TECH.Svg.enu.Kleur).Geen(),1:##class(TECH.Svg.enu.Kleur).DonkerGroen()))
+		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"4",BorderS="D":"2",1:"none"))
+		If (FillS="T") {
+			Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
+		}
 		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
 		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	}Else {
-		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDOuter.SetFill()
-		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDMiddle.SetFill()
-		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDInner.SetFill()
 	}
+	
 	Do KaderGroup.VoegToeElement(KDOuter)
 	Do KaderGroup.VoegToeElement(KDMiddle)
 	Do KaderGroup.VoegToeElement(KDInner)
@@ -49,36 +68,25 @@
 
 <Method name="VulTweeRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	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)
-	Do ##class(Tools.Wlip).%New(238).String("outer aangemaakt")
+	
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte, Hoogte, "KDOuter", "clsHidePrint")
 	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))
+	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), "KDInner", "clsHidePrint")
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+  	
   	Do KaderGroup.VoegToeElement(KDOuter)
   	Do KaderGroup.VoegToeElement(KDInner)
  
   	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>