Index: TECH/Svg/Basis/Rect.cls.xml
===================================================================
diff -u -r3627 -r3780
--- TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3627)
+++ TECH/Svg/Basis/Rect.cls.xml	(.../Rect.cls.xml)	(revision 3780)
@@ -31,56 +31,26 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
+<Property name="ID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Class">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="class"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..X =X
-	Set ..Y = Y
-	Set ..Width = Width
-	Set ..Height = Height
-	;Do ..SetParameters()
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<State>RectState</State>
-<Data name="RectState">
-<Subscript>"Rect"</Subscript>
-<Value name="1">
-<Value>Width</Value>
-</Value>
-<Value name="2">
-<Value>Height</Value>
-</Value>
-<Value name="3">
-<Value>X</Value>
-</Value>
-<Value name="4">
-<Value>Y</Value>
-</Value>
-<Value name="5">
-<Value>Fill</Value>
-</Value>
-<Value name="6">
-<Value>Stroke</Value>
-</Value>
-<Value name="7">
-<Value>StrokeWidth</Value>
-</Value>
-<Value name="8">
-<Value>StrokeDashArray</Value>
-</Value>
-<Value name="9">
-<Value>Overflow</Value>
-</Value>
-</Data>
-</Storage>
 </Class>