Index: TECH/Svg/Basis/Group.cls.xml
===================================================================
diff -u -r3657 -r3662
--- TECH/Svg/Basis/Group.cls.xml	(.../Group.cls.xml)	(revision 3657)
+++ TECH/Svg/Basis/Group.cls.xml	(.../Group.cls.xml)	(revision 3662)
@@ -199,6 +199,9 @@
 <Value name="17">
 <Value>Groups</Value>
 </Value>
+<Value name="18">
+<Value>TCross</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: TECH/Svg/Basis/SvgBox.cls.xml
===================================================================
diff -u -r3657 -r3662
--- TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3657)
+++ TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3662)
@@ -166,6 +166,30 @@
 	{
 	do ..SvgBox.Insert(Element) 
 	}
+	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring")
+	{
+		do ..SvgBox.Insert(Element)
+	}
+	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring")
+	{
+		do ..SvgBox.Insert(Element)
+	}
+	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring")
+	{
+		do ..SvgBox.Insert(Element)
+	}
+	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring")
+	{
+		do ..SvgBox.Insert(Element)
+	}
+	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring")
+	{
+		do ..SvgBox.Insert(Element)
+	}
+	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm")
+	{
+		do ..SvgBox.Insert(Element)
+	}
 ]]></Implementation>
 </Method>
 
Index: TECH/Svg/BasisElementFactory.cls.xml
===================================================================
diff -u -r3654 -r3662
--- TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3654)
+++ TECH/Svg/BasisElementFactory.cls.xml	(.../BasisElementFactory.cls.xml)	(revision 3662)
@@ -69,7 +69,7 @@
 </Method>
 
 <Method name="MaakSvgBox">
-<FormalSpec>X:%Integer=0,Y:%Integer=0,Height:%Integer,Width:%Integer</FormalSpec>
+<FormalSpec>X:%Integer=0,Y:%Integer=0,Height:%Integer=0,Width:%Integer=0</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	Set SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New()