Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60125 -r60127
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60125)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60127)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen">
-<Super>TECH.Svg.Basis.DomElement,TECH.RegisteredObject</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject,TECH.RegisteredObject</Super>
 
 <Property name="Group">
 <Type>TECH.Svg.Basis.SvgBox</Type>
@@ -145,6 +145,14 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>BeslagenState</State>
+<Data name="BeslagenState">
+<Structure>listnode</Structure>
+<Subscript>"Beslagen"</Subscript>
+<Value name="1">
+<Value>Group</Value>
+</Value>
+</Data>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60106 -r60127
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60106)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60127)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen">
-<Super>TECH.Svg.Basis.DomElement,TECH.RegisteredObject</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject,TECH.RegisteredObject</Super>
 
 <Property name="Group">
 <Type>TECH.Svg.Basis.SvgBox</Type>
@@ -58,7 +58,6 @@
 			Else {
 		
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10,Kleur)
-				Do RugBoring.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
 				Do ..Group.VoegToeElement(RugBoring)
 			}	
 		
@@ -176,7 +175,7 @@
 			Do ##class(Tools.Wlip).%New(238).String("6")
 			If (GrootteBoring<10) {
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur)
-				Do RugBoring.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
+				
 				Do ..Group.VoegToeElement(RugBoring)
 			}Else {
 			
@@ -195,6 +194,13 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>BoringenState</State>
+<Data name="BoringenState">
+<Subscript>"Boringen"</Subscript>
+<Value name="1">
+<Value>Group</Value>
+</Value>
+</Data>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml
===================================================================
diff -u -r60046 -r60127
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60046)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60127)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject</Super>
 
 <Property name="Group">
 <Type>TECH.Svg.Basis.Group</Type>
@@ -50,6 +50,7 @@
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>HoekverbinderState</State>
 <Data name="DomElementState">
 <Value name="1">
 <Value>Fill</Value>
@@ -73,6 +74,13 @@
 <Value>Group</Value>
 </Value>
 </Data>
+<Data name="HoekverbinderState">
+<Structure>listnode</Structure>
+<Subscript>"Hoekverbinder"</Subscript>
+<Value name="1">
+<Value>Group</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/BasisElementSvgObject.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/BasisElementSvgObject.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/BasisElementSvgObject.cls.xml	(revision 60127)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^APPS.Halux100B.BasisElemen3A18S</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>