Index: TECH/Svg/Basis/SvgBox.cls.xml
===================================================================
diff -u -r3638 -r3780
--- TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3638)
+++ TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3780)
@@ -43,26 +43,40 @@
 </Property>
 
 <Property name="CrossDiags">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag</Type>
+<Type>TECH.Svg.Tooling.CrossDiag</Type>
 <Collection>list</Collection>
 <Parameter name="XMLNAME" value="crossdiag"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
 <Property name="CrossVHs">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH</Type>
+<Type>TECH.Svg.Tooling.CrossVH</Type>
 <Collection>list</Collection>
 <Parameter name="XMLNAME" value="crossvh"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
 <Property name="TCrosss">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross</Type>
+<Type>TECH.Svg.Tooling.TCross</Type>
 <Collection>list</Collection>
 <Parameter name="XMLNAME" value="tcross"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
+<Property name="Groups">
+<Type>TECH.Svg.Basis.Group</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="g"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="SvgBox">
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="svg"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Property name="Transform">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="transform"/>
@@ -98,17 +112,31 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
+<Property name="XLink">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="xmlns:xlink"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="W3Link">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="xmlns"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ViewBox">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="viewbox"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>X:%Integer,Y:%Integer,Height:%Integer,Width:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..X =X
-	Set ..Y = Y 
-	Set ..Height = Height
-	Set ..Width = Width
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -136,18 +164,50 @@
 	{
 	do ..Texts.Insert(Element)
 	}
-	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag")
+	if Element.%IsA("TECH.Svg.Tooling.CrossDiag")
 	{
 	do ..CrossDiags.Insert(Element)
 	}
-	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH")
+	if Element.%IsA("TECH.Svg.Tooling.CrossVH")
 	{
 	do ..CrossVHs.Insert(Element)
 	}
-	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross")
+	if Element.%IsA("TECH.Svg.Tooling.TCross")
 	{
 	do ..TCrosss.Insert(Element)
 	}
+	if Element.%IsA("TECH.Svg.Basis.Group")
+	{
+	do ..Groups.Insert(Element) 
+	}
+	if Element.%IsA("TECH.Svg.Basis.SvgBox")
+	{
+	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>
 
@@ -156,72 +216,6 @@
 <Implementation><![CDATA[	Set ..ID = ID
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<Data name="DomElementState">
-<Value name="1">
-<Value>Fill</Value>
-</Value>
-<Value name="2">
-<Value>Stroke</Value>
-</Value>
-<Value name="3">
-<Value>StrokeWidth</Value>
-</Value>
-<Value name="4">
-<Value>StrokeDashArray</Value>
-</Value>
-<Value name="5">
-<Value>Overflow</Value>
-</Value>
-<Value name="6">
-<Value>Opacity</Value>
-</Value>
-<Value name="7">
-<Value>Rects</Value>
-</Value>
-<Value name="8">
-<Value>Circles</Value>
-</Value>
-<Value name="9">
-<Value>Lines</Value>
-</Value>
-<Value name="10">
-<Value>Paths</Value>
-</Value>
-<Value name="11">
-<Value>Texts</Value>
-</Value>
-<Value name="12">
-<Value>CrossDiags</Value>
-</Value>
-<Value name="13">
-<Value>CrossVHs</Value>
-</Value>
-<Value name="14">
-<Value>TCrosss</Value>
-</Value>
-<Value name="15">
-<Value>Transform</Value>
-</Value>
-<Value name="16">
-<Value>X</Value>
-</Value>
-<Value name="17">
-<Value>Y</Value>
-</Value>
-<Value name="18">
-<Value>Height</Value>
-</Value>
-<Value name="19">
-<Value>Width</Value>
-</Value>
-<Value name="20">
-<Value>ID</Value>
-</Value>
-</Data>
-</Storage>
 </Class>