Index: TECH/Svg/Basis/Rect.cls.xml
===================================================================
diff -u
--- TECH/Svg/Basis/Rect.cls.xml	(revision 0)
+++ TECH/Svg/Basis/Rect.cls.xml	(revision 3622)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Svg.Basis.Rect">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>rect</Default>
+</Parameter>
+
+<Property name="X">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="x"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Y">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="y"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Width">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="width"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Height">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="height"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Fill">
+<Type>TECH.Svg.enu.Kleur</Type>
+<Parameter name="XMLNAME" value="fill"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Stroke">
+<Type>TECH.Svg.enu.Kleur</Type>
+<Parameter name="XMLNAME" value="stroke"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>X:%Integer,Y:%Integer,Width:%Integer,Height:%Integer,Fill:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart(),Stroke:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</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
+	Set ..Fill = Fill
+	Set ..Stroke = Stroke
+	
+	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>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>