Index: TECH/Svg/Basis/SvgBox.cls.xml
===================================================================
diff -u -r3638 -r3648
--- TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3638)
+++ TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3648)
@@ -63,6 +63,13 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
+<Property name="Group">
+<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"/>
@@ -99,7 +106,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>X:%Integer,Y:%Integer,Height:%Integer,Width:%Integer</FormalSpec>
+<FormalSpec>X:%Integer=0,Y:%Integer=0,Height:%Integer,Width:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -148,6 +155,10 @@
 	{
 	do ..TCrosss.Insert(Element)
 	}
+	if Element.%IsA("TECH.Svg.Basis.Group")
+	{
+	do ..Group.Insert(Element) 
+	}
 ]]></Implementation>
 </Method>
 
@@ -220,6 +231,9 @@
 <Value name="20">
 <Value>ID</Value>
 </Value>
+<Value name="21">
+<Value>Group</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: TECH/Svg/Basis/Rect.cls.xml
===================================================================
diff -u -r3634 -r3648
--- TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3634)
+++ TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3648)
@@ -42,7 +42,6 @@
 	Set ..Y = Y
 	Set ..Width = Width
 	Set ..Height = Height
-	;Do ..SetParameters()
 	Quit $$$OK
 ]]></Implementation>
 </Method>