Index: TECH/Svg/Basis/Group.cls.xml
===================================================================
diff -u -r3638 -r3731
--- TECH/Svg/Basis/Group.cls.xml	(.../Group.cls.xml)	(revision 3638)
+++ TECH/Svg/Basis/Group.cls.xml	(.../Group.cls.xml)	(revision 3731)
@@ -43,29 +43,37 @@
 </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.CrossDiag</Type>
+<Type>TECH.Svg.Tooling.CrossDiag</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.CrossDiag</Type>
+<Type>TECH.Svg.Tooling.CrossDiag</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="Transform">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="transform"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
 <Property name="ID">
@@ -106,18 +114,22 @@
 	{
 	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)
+	}
 ]]></Implementation>
 </Method>
 
@@ -127,59 +139,11 @@
 ]]></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>Transform</Value>
-</Value>
-<Value name="13">
-<Value>CrossDiags</Value>
-</Value>
-<Value name="14">
-<Value>CrossVHs</Value>
-</Value>
-<Value name="15">
-<Value>TCrosss</Value>
-</Value>
-<Value name="16">
-<Value>ID</Value>
-</Value>
-</Data>
-</Storage>
+<Method name="VoegToeTransform">
+<FormalSpec>Transform:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Transform = Transform
+]]></Implementation>
+</Method>
 </Class>