Index: TECH/Svg/Basis/Circle.cls.xml
===================================================================
diff -u
--- TECH/Svg/Basis/Circle.cls.xml	(revision 0)
+++ TECH/Svg/Basis/Circle.cls.xml	(revision 3629)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Svg.Basis.Circle">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>circle</Default>
+</Parameter>
+
+<Property name="CX">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="cx"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="CY">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="cy"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="R">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="r"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CX:%Integer,CY:%Integer,R:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CX = CX
+	Set ..CY = CY
+	Set ..R = R
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>CircleState</State>
+<Data name="CircleState">
+<Subscript>"Circle"</Subscript>
+<Value name="1">
+<Value>CX</Value>
+</Value>
+<Value name="2">
+<Value>CY</Value>
+</Value>
+<Value name="3">
+<Value>R</Value>
+</Value>
+<Value name="4">
+<Value>Fill</Value>
+</Value>
+<Value name="5">
+<Value>Stroke</Value>
+</Value>
+<Value name="6">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="7">
+<Value>overflow</Value>
+</Value>
+<Value name="8">
+<Value>Overflow</Value>
+</Value>
+<Value name="9">
+<Value>StrokeDashArray</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>